Tão simples... Valeu DJANES Vou fazer umas adaptações para ficar do jeito certinho. Obrigado.

Existe a possibilidade de deixar na mesma linha da declaração? Está dando erro. Global NomeArquivo As String: Set NomeArquivo = Range("A1&...

No arquivo postado está tudo ok. Como falei, Queria deixar algo assim: Global NomeArquivo As String: Range("A1") e Global Const User As...

Boa tarde alexandre, Coloquei em anexo apenas o arquivo com os códigos. Eu estou tentando aos poucos deixar meus macros mais simples e dinâmico. Qu...

Consegui desse jeito, mas possivelmente deve ter um código mais simplificado. O que vale é o esforço rsrs Sub Teste() Application.ScreenUpdati...

Alguem pode me ajudar com a rotina For Next ? Sou iniciante em VBA mas dá pra enrolar... Fiz 4 For Next para atender minha necessidade... Porém qu...

Muito bom Issamu, Me tire só mais uma dúvida. Caso queria somar final 1, 2 e 3 por exemplo na mesma formula. Teria algum jeito sem que eu faça 3 SO...

alexandrevba, Está certo esse código? If rngData1.Find(aCell.Value) Is Nothing Then Sheets(SecondSheet)&#...

Boa tarde alexandre, Estou com outro probleminha no código e não consegui resolver. Na linha " Sheets(ResultSheet).Range("B&quo...

Seriam as colunas "J" (Documento SD) e "E" (Cliente)" Pois força um 'concatenar' do Cliente com um número de documento.

Entendi, eu precisava que essa condição dosse duas colunas. Fiz um Concatenar de duas colunas e coloquei no 'SAP' e 'TB.BASE' Mas ai não localiza po...