erickmonteiro

Realmente cara, ficou muito mais leve essa ai, valeu, só que a macro nao rodou não... ai ela funcionou?

Mano,valeu, vou refazer essa planilha ai pra ficar mais leve mesmo, mas ai vou ter aquele mesmo problema do formulario, nao consigo nem a pau colocar ele pra rodar enquanto envio os dados...

valeu Edcronos, vou tentar fazer aqui: O objetivo é mandar da Lista de controle pra lista de certificados e enquanto manda mostrar o formulario tipo loading... to postando as planilhas pra vocês sacarem, to achando elas muito pesadas também, sou novo nessa bagaça kk valeu Excel enviar.rar

Não consigo anexar os arquivos .xlsm ....

Galera, ajuda ae

Galera, bom dia! Sou novo no Vba e estou com uma dúvida aparentemente simples: Tenho uma macro que copia e cola dados de uma planilha em outra, observem: ------------------------------------------------------------------------------------------------------ Sub Teste() Workbooks.Open ("R:\CERTIFICADOS\Lista Certificados (GERAL).xlsm") ActiveWorkbook.Sheets("Plan1").[b6:B100000].Value = ThisWorkbook.Sheets("PT-LC-001").[b6:B100000].Value ActiveWorkbook.Sheets("Plan1").[C6:C100000].Value = ThisWorkbook.Sheets("PT-LC-001").[C6:C100000].Value ActiveWorkbook.Sheets("Plan1").[D6:D100000].Value = ThisWorkbook.Sheets("PT-LC-001").[D6:D100000].Value ActiveWorkbook.Sheets("Plan1").[E6:E100000].Value = ThisWorkbook.Sheets("PT-LC-001").[E6:E100000].Value ActiveWorkbook.Sheets("Plan1").[F6:F100000].Value = ThisWorkbook.Sheets("PT-LC-001").[F6:F100000].Value ActiveWorkbook.Sheets("Plan1").[G6:G100000].Value = ThisWorkbook.Sheets("PT-LC-001").[G6:G100000].Value ActiveWorkbook.Sheets("Plan1").[H6:H100000].Value = ThisWorkbook.Sheets("PT-LC-001").[H6:H100000].Value ActiveWorkbook.Sheets("Plan1").[i6:I100000].Value = ThisWorkbook.Sheets("PT-LC-001").[i6:I100000].Value ActiveWorkbook.Sheets("Plan1").[J6:J100000].Value = ThisWorkbook.Sheets("PT-LC-001").[J6:J100000].Value ActiveWorkbook.Sheets("Plan1").[K6:K100000].Value = ThisWorkbook.Sheets("PT-LC-001").[K6:K100000].Value ActiveWorkbook.Sheets("Plan1").[M6:M100000].Value = ThisWorkbook.Sheets("PT-LC-001").[M6:M100000].Value ActiveWorkbook.Sheets("Plan1").[N6:N100000].Value = ThisWorkbook.Sheets("PT-LC-001").[N6:N100000].Value ActiveWorkbook.Sheets("Plan1").[O6:O100000].Value = ThisWorkbook.Sheets("PT-LC-001").[O6:O100000].Value ActiveWorkbook.Sheets("Plan1").[P6:P100000].Value = ThisWorkbook.Sheets("PT-LC-001").[P6:P100000].Value ActiveWorkbook.Sheets("Plan1").[s6:S100000].Value = ThisWorkbook.Sheets("PT-LC-001").[s6:S100000].Value ActiveWorkbook.Close savechanges:=True End Sub ________________________________________________________________ e tenho um formulário com webbroser de um (gif animado loading) que gostaria que aparecesse enquanto essa macro acima fosse exercida mas se antes dela eu colocar : UserForm1.show é aberto o formulário, mas a macro de copiar e colar nao funciona, gostaria que ficasse exibido o formulario enquanto a macro de copiar e colar e quando ela terminasse o formulário fechasse (unload UserForm1). Alguem tem ideia de como fazer? Obrigado