E respondendo a dúvida: wba.sheets("nome da planilha").Range("A1").select só funcionará se a planilha "nome d...

Já experimentou "Compartilhar a Pasta de Trabalho"? pode parecer estranho, mas deixe-me explicar... Ao compartilhar a pasta de trabalho, me...

finaljustice, Bom Dia! A lógica é essa mesma que está no código. Aqui eu coloquei dentro do evento Workbook_Open. Ou seja, quando o arquivo que eu q...

finaljustice, Boa Tarde! Antes de mais nada, parabéns pelo esforço e dedicação na elaboração do seu projeto. Somente quem conhece pode realmente sab...

Altere : Format(UserForm5.TextBox2, "$###,##.00") = UserForm5.TextBox2 Por : UserForm5.TextBox2 = Format(TextBox2, "$###,##.00") ...

Boa tarde!! Tente algo do tipo...faça sua adaptação!! TextBox1 = Format(TextBox1, "$#,##0.00") Obrigado por responder prontamente, ...

final, se entendi corretamente, a rotina abaixo está no Userfom3 : Sub finalped() Que apos executar algumas ações Oculta o UserForm3.Hide e chama o Us...

Boa noite!! Use apesquisa do fórum!! Quanto a sua 1° dúvida isso não resolve. Workbooks("NomeArquivoAqui").window(1).hidden = T...

Boa tarde, Opa, deixa assim: If wsBDNF.Range("C2:C" & UltL).Find(what:=filtcpf, LookIn:=Values) Is Nothing Th...

Boa tarde finaljustice, Altera a declaração da variável de: Dim wsBDNF As Worksheets para Dim wsBDNF As Worksheet Qualquer coisa da o grito...

Boa noite finaljustice, Fica um pouco difícil sem um modelo, mas vê se ajuda: Sub histvend() 'apply filter then gets that client's shopping history ...