Fala pessoal.
Estou precisando de uma ajuda aqui, o código não funcionou e preciso da mesma solução que o amigo: " salvar em qualquer computador", sem precisar mexer no código.
Além de salvar em pdf, envio por e-mail
Segue código que estou usando:

Dim OutApp As Object, OutMail As Object
    Dim Nome As String
    Dim assunto As String
    Dim email_forn As String
    Dim caminhopdf As String
       
    email_forn = txtobservacao
    Nome = Sheets("gerar_voucher&quot.Range("AA1&quot
    caminhopdf = VBA.Environ("userprofile&quot & "\Desktop"
    assunto = "Senha de agendamento Cremer - CD Indaial:  " & Nome
    ThisWorkbook.Sheets(Array("gerar_voucher&quot).Select

'Ajuste da largura das paginas:
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.Orientation = Excel.xlPortrait '(retrato)
.Zoom = False
.FitToPagesWide = 1
End With
Application.PrintCommunication = True

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
caminhopdf & "\" & Nome & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
   
    Set OutApp = CreateObject("Outlook.Application&quot
    Set OutMail = OutApp.CreateItem(0)

Olá, pessoal.
Preciso de um recurso para uma planilha no Google onde lanço a posição de alguns pedidos que devo controlar de cada aba (EX: MARIA, JÕAO, KEVIN). Quando este pedido recebe o "FINALIZADO" na coluna L, preciso que os dados ali presentes sejam movidos para outra aba (FINALIZADOS), movendo a linha completa. No Excel imagino que dê para fazer por VBA, mas no Google não estou conseguindo. Alguma dica de código?

Pessoal, já fiz isso, mas não lembro

Eu tenho uma planilha de clientes:
 
NOME CÓDIGO INTERNO PEDRO 11111111111 PRISCILA 11111111112 CINTIA 11111111113 MARIA 2 11111111114 MARIA 4 11111111115 PEDRO PAULO 11111111116 VIRGINIA 11111111117 PEDRO 20011112222 PRISCILA 20011112223 CINTIA 20011112224 MARIA 2 20011112225 MARIA 4 20011112226 PEDRO PAULO 20011112227 VIRGINIA 20011112228

E tenho uma planilha Geral, onde vou preencher o que preciso. Exemplo
   
CLIENTE MCI CÓDIGO / BEM VENDA EM  CINTIA 20011112224 525711700 CLIMATIZADOR ELGIN  2020

Eu quero que, ao selecionar de uma lista suspensa o nome do cliente, automaticamente o excel/libreoffice preencha o código interno.

Eu lembro que era relativamente fácil, mas não lembro como fazer, sinceramente.

Preciso da linguagem que exporta relatório do SAP e cola na base do Excel.


EX: Tenho uma base que preciso exportar um relatório todos os dias, para não precisar ficar exportando manualmente preciso que a automação entre e faça essa extração e cole na base.

Prezados, gostaria de saber onde encontrar, no MSOffice Enterprise 2007, o arquivo de autopreenchimento (autocorreção do Excel). Uso o W10 indicado abaixo. Gostaria de fazer um back-up do meu arquivo -- uso muito as autocorreções para acelerar o trabalho de digitação, e não estou conseguindo achar onde está para fazer o bkp.
Grato.

Notebook
Core i7-3630QM CPU 2.40 GHz
RAM-16,0GB  SSD 1TB
Windows 10 Pro

Olá, amigos. Tentei fazer a concateção com os critério de A, B e C, mas não consegui. Tenho uma tabela onde nas colunas A, B e C eu tenho os tipos de critérios,
na coluna D eu tenho a situação. A ideia é juntar textos da coluna C (entre vírgulas) dependendo dos critérios das colunas A e B. Exemplo:

    A            B          C          D            E     
Critério 1  Critério 2  Critério 3    Situação      (#1) - (NF34) - (CRIT34) - situação1, situação2, situação3.
#1              NF34        CRIT34      situação1      (#2) - (NF21) - (CRIT87) - situação4, situação5.
#1              NF34        CRIT34      situação2      (#3) - (NF35) - (CRIT63) - situação1, situação2, situação3, situação4.
#1              NF34        CRIT34      situação3      (#4) - (NF27) - (CRIT19) - situação5.
#2              NF21        CRIT87      situação4     
#2              NF21        CRIT87      situação5     
#3              NF35        CRIT63      situação1     
#3              NF35        CRIT63      situação2     
#3              NF35        CRIT63      situação3     
#3              NF35        CRIT63      situação4     
#4              NF27        CRIT19      situação5     

Resultado na coluna E

(#1) - (NF34) - (CRIT34) - situação1, situação2, situação3.
(#2) - (NF21) - (CRIT87) - situação4, situação5.
(#3) - (NF35) - (CRIT63) - situação1, situação2, situação3, situação4.
(#4) - (NF27) - (CRIT19) - situação5.

Com 2 critérios o expert Mário Lúcio fez com perfeição

=let(a; byrow(map(A2:A11;B2:B11;lambda(x;y;hstack(concatenar("(";x;&quot"concatenar("(";y;&quot&quot))); lambda(x; join(" - "; x))); byrow(unique(a); lambda(y; y&" - "&join(", "; filter(C2:C11; a=y)))))

Tentei fazer com 3 e não consegui; Fiz assim:

=let(a; byrow(map(A2:A;B2:B;C2;C;lambda(x;y;z;hstack(CONCATENATE("(";x;&quot"CONCATENATE("(";y;&quot"CONCATENATE("(";z;&quot&quot))); lambda(x; join(" - "; x))); byrow(unique(a); lambda(y; y&" - "&join(", "; lambda(z; z&" - "&join(", "; filter(C2:C; a=y)))))

segue o link da planilha: https://docs.google.com/spreadsheets/d/132QpWzffjhTnuJQcfOq2EpH_fkOr7uksqM_DGgWgjHY/edit#gid=658516220

Ficaria muito agradecido se alguém puder me ajudar.

Ivan

Boa tarde amigos,

Tenho o seguinte problema.
Obtive os dados de um testes mecânico da seguinte forma:

Time (s),Load (N),Displacement (mm)  (408 mil linhas de dados )
0,461,0,5,0,085

onde: 
Time (s)      Load (N)     Displacement (mm)
0,461            0,5                0,085


existe alguma forma de separar os caracteres mantendo os nº 0 à esquerda?

Muito obrigado pela ajuda e bom resto de dia

Bom dia!

Preciso tabular a quantidade de compras dos clientes, sendo que minha base de dados é bastante extensa e apresenta algumas particularidades.

Meu sistema duplica números de pedidos para cada cliente em função do número de itens no documento (e deixa assim na extração para Excel). Então preciso contar o número de pedidos (por registro único) e a partir disso, determinar as respostas solicitadas na aba "Retorno": quantas compras x determinada faixa de valor (admitindo valor total como critério) temos na base de dados.

Estou enviando um recorte do que tenho para que me ajudem se possível.

Muito obrigada.

Preciso de ajuda com a seguinte duvida: Na função SOMASE quando a célula do intervalo da soma está vazia é possível trazer vazia ao invés de 0?

Boa noite a todos!

Gostaria de uma ajuda com uma planilha do Excel, tenho uma aba principal com o nome Clientes e outras com cada mes do ano, na aba clientes coloco todas as vendas e cadastro dos clientes, o que eu queria era ao colocar o mes de janeiro na aba clientes que fosse para a aba Janeiro, em clientes eu coloco o nome e ja da certo com a formula ='Clientes'!E8 e assim por diante, so que cria que fosse automatico ao colocar o mes para a aba do proprio mes, alguem poderia me ajudar?

Pessoal estou tentando baixar dados de um site para o Excel, porem qdo eu faço a conexão com o Power Query ele não encontra a tabela da qual eu estou buscando retirar os dados, porem o mesmo site no PBI ele encontra as tabelas  que preciso puxar os dados.


Minha duvida é:

Existe algo que possa ser habilidado/instalado ou alguma maneira que possa ser feita para que se consiga baixar os dados do site para o Excel?


Quem quiser testar pode testar neste site https://ge.globo.com/futebol/brasileirao-serie-a/ que vai ficar claro o que busco.


Agradeço!!!

Olá,

Tudo bem galera?!

Estou montando uma planilha de acordo com uma base de dados em que os itens são separados por depósitos específicos com suas respectivas quantidades. Pode ocorrer que um mesmo item esteja repetido em mais de um deposito.

O desafio é criar uma visão segregada de cada item por cada deposito. Também existem um mesmo material alocado no mesmo deposito com quantidades diferentes, nesse caso o painel traria a soma se os campos anteriores fossem iguais.

Na planilha mostro um exemplo de como gostaria e na guia "base", consta a base de dados do exemplo.

Caso alguém puder me ajudar, ficarei grato.

Prezados, boa tarde.

recebi um anúncio de que teria que assinar o Microsoft 365 pois estava extrapolando o OneDrive. Eu utilizo uma conta empresarial para usar os produtos Office, por isso nunca assinei na minha conta pessoal. Imediatamente, apaguei diversas pastas do OneDrive e logo em seguida da lixeira (burro) e elas foram excluídas de TODOS os meus dispositivos (celular, computador). Eu achei que estava excluindo apenas do OneDrive. Assinei o 365 logo em seguida mas a recuperação retorna com as pastas vazias, sem os arquivos. Já pedi auxílio ao suporte, que gerou um número de controle, mas estou sem resposta há uma semana. Ainda estou dentro da janela de 30 dias, será que há chance de recuperação? Grato pela atenção.

Bom dia a todos,

No arquivo em anexo está todas as dúvidas que tenho. Caso alguém puder ajudar, fico grato. Essa planilha é para verificar o número de acert0s comparando duas tabelas e colocando o resultado em uma terceira.

Gratidão

Como fazer para imprimir documento word ? Impressora só 
Imprime colorido doc scaneando direto na impressora hp ink net wireless 416

Sou iniciante em VBA estou criando uma planilha para editar ?produtos
criei o formulário e está funcionando, queria modificar o seguinte

Quando localizar mais de um produto com o parâmetro informado ele abrir outra tela, permitir selecionar o item, clicar em confirmar e depois carregar os dados desse produto na tela principal

segue abaixo código atual

Public Linha As Double
Public UltimaLinha As Double

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
'On Error GoTo Erro

If TextBox1 = "" Then
MsgBox "Precisa fornecer criterio de pesquisa", vbCritical, "PESQUISA"
TextBox1.SetFocus
Exit Sub
End If

Dim Pesquisa As Integer
  On Error Resume Next
    Pesquisa = Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    texto = Planilha2.Range("C3&quot.AutoComplete(Pesquisa)
    If Pesquisa <> "0" Then
   
    Linha = ActiveCell.Row
        If Linha < UltimaLinha Then
        Call limpar
        MsgBox "Fim Da Pesquisa", vbInformation, "Pesquisa"
        Exit Sub
        End If
       
       
       
       
    UltimaLinha = Linha
   
    Call Carregar
   
    Else
    MsgBox "produto não encontrador", vbInformation, "PESQUISA"
    Call limpar
    End If
   
   
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"

End Sub

Sub Carregar()
On Error GoTo Erro

TextBox2 = Planilha2.Cells(Linha, 1).Value
TextBox3 = Planilha2.Cells(Linha, 2).Value
TextBox4 = Planilha2.Cells(Linha, 3).Value
TextBox5 = Planilha2.Cells(Linha, 4).Value
CommandButton2.Enabled = True



Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"

End Sub
Sub limpar()

TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
Linha = Empty
UltimaLinha = Empty


CommandButton2.Enabled = False
Planilha2.Range("A1&quot.Select

End Sub
Private Sub CommandButton2_Click()
On Error GoTo Erro

If TextBox5 = "" Then
MsgBox "CAMPO QUANTIDADE VAZIO", vbInformation, "EDITAR"
Exit Sub
End If

Dim quantidade As Double
On Error Resume Next
quantidade = TextBox4

Planilha2.Cells(Linha, 1).Value = TextBox2
Planilha2.Cells(Linha, 2).Value = TextBox3
Planilha2.Cells(Linha, 3).Value = TextBox4
Planilha2.Cells(Linha, 4).Value = TextBox5


Call limpar
TextBox1 = ""
TextBox1.SetFocus

MsgBox "Produto Alterado", vbinfomation, "ERRO"



Exit Sub
Erro:
MsgBox "Erro!", vbInformation, "ERRO"

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub TextBox1_Change()

Call limpar

End Sub

Private Sub TextBox2_Change()


End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Linha = Empty
UltimaLinha = Empty

TextBox1 = SetFocus

CommandButton2.Enabled = False
Planilha2.Range("A1&quot.Select




End Sub


segue em anexo imagem da tela atual

Boa tarde, preciso de uma ajuda em como solucionar meu problema no excel.

Trabalho com equipamentos em clientes, e esses equipamentos possuem 5 tamanhos com metas diferentes e cada cliente pode ter mais de um equipamento.

Tenho o total de compra do cliente e preciso saber se cada equipamento bateu a meta.

Exemplo: cliente possui 3 equipamentos, 1 meta 25, 1 meta 50 e 1 meta 75. Comprou 125 cx, preciso que o excel me fale que ele bateu a meta do 75 e do 50 e o outro tem 0 até o momento. 

Porém não consegui fazer isso, atualmente pego o total de divido por 3 o que daria 41 de realizado para cada equipamento falando que ele bateu apenas um deles, sendo que bateu a meta em mais. 

Como posso resolver isso no excel?

Fiz uma planilha dinamica e nela preciso fazer um somase para obter um resultado, porém a formula não traz o resultado que preciso.

A soma é a seguinte: 
Rótulos de Linha Soma de VALOR RECEBIDO NF2023131  R$                                4.862,26 NF2023136  R$                                2.991,72 NF2023140  R$                                3.000,00 (vazio)  R$                             10.994,92 Total Geral  R$                             21.848,90

Fiz a formula SOMASE(C2:C5;"<>";D2:d5) No entanto traz o valor total 21.848,90 e não a soma dos valor de NF.

Alguem pode me ajudar?

Boa noite a todos,


Tenho andado sumido do fócum, agora, necessito da ajuda da comunidade. Em anexo está a planilha. Eu preciso contar com dois critérios, mas, um critério está nas linhas e outro em uma coluna.

Tentei utilizar a função CONt.SES com a função Soma, mas não deu...


Agradeço a quem puder ajudar.