×
Ir ao conteúdo
  • Cadastre-se

Zamboni_du

Membro Pleno
  • Posts

    141
  • Cadastrado em

  • Última visita

  • Qualificações

    0%
  1. 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.
  2. 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).
  3. @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.
  4. 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.
  5. @Patropi, segue conforme solicitado: Eu substituí o código Selection.PrintPreview pelo ActiveSheet.PrintOut e acrescente o comando Call para chamar a segunda Sub.
  6. 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.
  7. 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
  8. 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
  9. @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!!!!!!!
  10. @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.
  11. @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.
  12. 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.
  13. @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.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Curso de Hacker Ético

LANÇAMENTO!

CLIQUE AQUI E CONFIRA!

* Este curso não é ministrado pela equipe do Clube do Hardware.