Zamboni_du

@Basole , Muito obrigado, eu havia utilizado o código abaixo porém ele trazia uma por uma e demorava, da forma que você postou ficou ficou melhor!!!!!! muito obrigado!!!!!!! For Contador2 = 8 To UltLin msgbox Planilha1.Cells(1 + Contador2, 17) Next

@Basole Bom dia, tudo bem? Como sou iniciante no VBA estou tendo dificuldades de adaptar o código, primeiro gostaria de saber como faço para alterar a barra "/" por ponto "."?

Boa tarde pessoa, tudo bem? Preciso finalizar uma rotina com uma MSGBOX que traga as informações que estarão na coluna P. A primeira informação está em P9 e a ultima irá depender de quantas informações foram inseridas. Eu consigo apenas trazer a informação da primeira linha no caso P9. Estou usando a variável UltLin para encontrar a ultima linha preenchida, tentei inserir junto mas não funcionou.

Boa noite pessoal, Preciso abrir uma planilha anexa que recebo diariamente em meu e-mail, copiar as informações e colar em outra planilha. O que eu preciso é um código para abrir esse arquivo anexo no Outlook. O arquivo tem o mesmo nome porém com a data do dia do envio no final (teste - 29/12/2021).

@Basole , boa noite!!! Eu havia feito algo simples (InputBox(Environ("UserName") & " - " & "Insira a data do lançamento" & " " & " Ex.: dd.mm.aaaa", "Data do lançamento", "01.01.2000"), porém vou testar o que você enviou.

Bom dia pessoal, Eu inseriu uma inputbox para o usuário inserir uma dada que é armazenada em "E4", eu gostaria que ao digitar a data no inputbox aparecesse automaticamente o separador (no meu caso o ponto ".") e travar em 10 caracteres para evitar erro de digitação.

@Patropi, segue conforme solicitado: Eu substituí o código Selection.PrintPreview pelo ActiveSheet.PrintOut e acrescente o comando Call para chamar a segunda Sub.

Resolvido!!!!

Boa noite @Lucas Siqueira Você pode usar o seguinte: Sub somaum() ThisWorkbook.Sheets(1).Range( "a1" ).Value = Range( "a1" ).Value + 1 End Sub onde Sheets(1) seria a aba 1, e ThisWorkbook seria "Essa pasta de trabalho" ( a planilha atual). Clique do lado direito em Curtir se a resposta foi útil.

alguém?

Boa noite, Estou tentando automatizar uma tarefa para vários usuários onde em uma planilha inseri uma rotina do SAP com o VBA que funciona perfeitamente na minha máquina porém quando pedi para outro usuário rodar em outa máquina o código dá erro. Analisei as rotinas e verifique que o "findbyid" é diferente de uma máquina para outra, como posso corrigir isso de uma forma que funcione para vários usuários em máquinas diferentes? Segue abaixo a parte da rotina que está diferente: rotina na minha máquina: session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").currentCellColumn = "TEXT" session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").selectedRows = "0" session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").clickCurrentCell Rotina na outra máqui e outro usuário: session.findById("wnd[1]/usr/ssub/1/cntlG51_CONTAINER/shellcont/shell").currentCellColumn = "TEXT" session.findById("wnd[1]/usr/ssub/1/cntlG51_CONTAINER/shellcont/shell").selectedRows = "0" session.findById("wnd[1]/usr/ssub/1/cntlG51_CONTAINER/shellcont/shell").clickCurrentCell

Pessoal, Eu tenho um botão para impressão, porém gostaria que a impressão fosse automática após finalizar uma rotina, segue abaixo o código que uso no botão de impressão: Sub ImprimirSelecao() 'Seleciona a área de impressão priLin = ThisWorkbook.Sheets(1).Range("A1048576").End(xlUp).Row + 1 ThisWorkbook.Sheets(1).Range("A1:A" & priLin).Select Selection.PrintPreview End Sub Sub ImprimirSelecao2() 'Seleciona a área de impressão priLin = ThisWorkbook.Sheets(2).Range("A1048576").End(xlUp).Row + 1 ThisWorkbook.Sheets(2).Range("A1:A" & priLin).Select Selection.PrintPreview End Sub

@Basole boa tarde, Muito obrigado pela ajuda, sou totalmente iniciante em VBA, quebrei a cabeça um pouco mas consegui adaptar o que você me passou ao que eu já tinha!!! abraço e muito obrigado mais uma vez!!!!!!!

@Basole, eu tenho uma pequena duvida, tem como eu colocar apenas o nome do arquivo sem a extensão? No momento eu uso teste. mhtml pois o arquivo é exportado assim, porém para alguns usuário o arquivo é extraído com teste.xlsx.

@Basole eu totalmente novato em VBA você pode me passa o código completo para eu entende a aplicação? @Basole, deu uma pesquisada e entendi a aplicação. Não testei ainda mas obrigado pela atenção.

Boa tarde pessoal, Preciso criar uma macro para abrir um arquivo, porém gostaria que no código eu digitasse apenas o nome do arquivo e não o endereço (C:\Users\zp0004\Documents\.....) pois o nome de usuário muda.

@DJunqueira , boa noite!!!! Eu gostaria de utilizar a linha do tempo para realizar as análises, e como a coluna B está com formula não habilita essa opeção.

@Midori Você pode me ajudar novamente? Eu fiz uma alteração e acrescentei uma coluna na planilha Dados com o nome de Data de entrega, teria como acrescentar uma linha de comando na rotina que você criou para converter a coluna Data de entrega em data no lugar da formula que existe nela? Botão incluir.zip

Boa tarde pessoal, tudo bem? Preciso de um comando para acrescentar em uma rotina. A coluna B contem uma formula que trás o próximo dia útil, porém preciso converter essa coluna no formato de data (DD/MM/AAAA) para que eu consiga inserir a linha do tempo como filtro. cada vez que eu rodar a rotina ele acrescenta mais dados e converte a coluna B em data. Pode copiar da coluna B para a coluna A porém como se trata de uma tabela a cópia não pode gerar mais linhas. FCH.xlsx

Boa tarde, Preciso de um comando onde insira o auto filtro do Excel automaticamente e elimine o numero "zero". O código abaixo eu fiz através da gravação de macro, porém ele coloca alguns critério de seleção e o que eu preciso seria apenas remover nesse caso a linha com número "zero". Range("A1:P1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$P$5000").AutoFilter Field:=9, Criteria1:=Array("1", _ "10", "11", "12", "13", "14", "15", "16", "17", "2", "20", "21", "216", "24", "3", "35", "4", _ "40", "5", "6", "60.000", "7", "8", "9"), Operator:=xlFilterValues

@Midori , pode me ajudar?

@Midori , mas isso não acontece, se eu lançar o Km e hora de uma linha na planilha Entregas e rodar a macro a macro preenche a planilha Dados com o km e a hora porém as demais linhas fiam em branco e ao digitar a segunda linha e rodar a macro nada acontece pois na primeira vez a macro preencheu as linhas vazia e na segunda vez que rodo nada acontece, então eu vou na planilha Dados seleciono as colunas em branco aí sim a macro funciona. porque na sua está diferente? Tem como vê postar ela aqui?

@Midori , não resolve pois se excluir as linhas vai excluir as informações. Eu gostaria de realizar o processo da seguinte forma, inserir as informações de KM e hora da primeira entrega (planilha Entregas) clicar no botão inserir e as informações serem lançadas na planilha Dados, na segunda entrega a mesma coisa, ou seja inserir um a um, é possível? Na planilha que eu inseri os códigos que você enviou se eu fizer dessa forma não funciona o preenchimento das demais entregas apenas da primeira.

@Midori, me ajude por gentileza, você mencionou que mesmo a célula estando em branco elas não estão vazias, porém eu preciso que elas fiquem vazias, isso é possível? Eu preciso disso porque temos dois veículos então não tem uma ordem de lançamento. Na planilha que enviei para testar isso seria você lançar os dados do dia 26 e depois do dia 30 e depois do dia 27, quando faço isso os dados do dia 27 não aparecem.

@Midori Boa tarde, seria possível inserir no código um linha para após rodar o código na mesma seleção seja excluído o numero 0(zero)