use assim: Sub Copier_Coler_GT() Application.ScreenUpdating = False Dim ws As Worksheet Dim UL(1 To 2) As Long Set ws = Sheets("Tab_Total&qu...

ve se ajuda: Sub Copier_Coler_GT() Application.ScreenUpdating = False Dim ws As Worksheet Dim UL(1 To 2) As Long Set ws = Sheets("Tab_Total...

Wagner Morel boa tarde! Deu certinho, muito obrigado pela ajuda amigo. Abraços,

Veja o ex. se te ajuda: Basole bom dia! É mais ou menos isso mesmo que preciso. Testei aqui e realmente saiu apenas na ultima pagina, porem gostaria...

Dei uma verificada no post indicado, mas é melhor fazer na mao mesmo, vai na raça hehehe. Tentei entender e localizar as partes que necessito, mas é m...

A sim, entendi. Tenho bastante ID para pesquisar e irei fazer isso para cada ID e uma Sheets correspondente para cada uma. Me disseram que da pra dar ...

Ola alexandrevba. Funcionou perfeitamente. Muito obrigado. Só uma duvida: se eu quiser colocar mais criterios e mais Sheets é so eu ir incluindo mais...