Fóruns Microsoft Excel - 2... 2024 - VBA & Macros Macro que copia cel... Notifications Clear all Macro que copia celulas 2024 - VBA & Macros Post Recente por Fernando Fernandes 10 anos atrás 6 Posts 2 Usuários 0 Reactions 1,639 Visualizações RSS Arihern (@arihern) Posts: 0 New Member Topic starter Pessoal Preciso de uma macro que copie as celulas D30 e D32 de TODAS as abas presentes na pasta de trabalho e cole em uma nova aba nesta mesma pasta nas celulas D1 e F1. Ou seja, a macro pega a primeira abba da Pasta de trabalho e copia a celula D30 e cola na celula D1 da nova aba, depois copia a D32 e cola na F1 da nova aba. Depois que ela for pra segunda aba, ela deve copiar D30 e D32 mas desta vez, colar em D2 e F2 e assim por diante ate acabar de copiar todas as abas da pasta de trabalho. Desde já, muito obrigado Postado : 14/11/2014 12:38 pm Arihern (@arihern) Posts: 0 New Member Topic starter Ninguém? preciso muito dessa informação.... Postado : 17/11/2014 12:12 pm Fernando Fernandes (@fernandofernandes) Posts: 43750 Illustrious Member Boa noite Leia: viewtopic.php?f=7&t=12600 []s Postado : 17/11/2014 6:32 pm Fernando Fernandes (@fernandofernandes) Posts: 43750 Illustrious Member Bom dia!! Veja se essa gambiarra te ajuda Sub AleVBA_13525() Dim ws As Worksheet Application.ScreenUpdating = False If Range("D30").Value <> "" Then For Each ws In ActiveWorkbook.Worksheets If ws.Name <> "nova aba" Then ws.Range("D30").Copy Sheets("nova aba").Cells(Rows.Count, "D").End(xlUp).Offset(1).PasteSpecial xlPasteValues End If Next Else For Each ws In ActiveWorkbook.Worksheets If ws.Name <> "nova aba" Then ws.Range("D32").Copy Sheets("nova aba").Cells(Rows.Count, "F").End(xlUp).Offset(1).PasteSpecial xlPasteValues End If Next End If Application.ScreenUpdating = True End Sub Postado : 18/11/2014 7:06 am Arihern (@arihern) Posts: 0 New Member Topic starter Opa amigo, obrigado pela ajuda! COmo que eu posso executar isso? desculpe a pergunta, sou meio novo em macros.. Coloquei em novo módulo mas quando clico em macros, nao aparece nada.. sabe me dizer? se ajudar posso anexar o arquivo! Postado : 18/11/2014 1:55 pm Fernando Fernandes (@fernandofernandes) Posts: 43750 Illustrious Member Boa tarde!! Anexe seu arquivo, ou ... Com seu arquivo aberto, aperte as teclas Alt+F11, depois aperte Alt+I+M, cole o código dentro. Salve seu arquivo no formato xlxm!! ...........e... por favor click na mãozinha!!! Att Postado : 18/11/2014 2:21 pm Super Globals Requests: Server: Options and Features route: community use_home_url: url: https://planilhando.com.br/community/ pageid:1 default_groupid: 3 2022