Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro que copia cel...
 
Notifications
Clear all

Macro que copia celulas

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
1,649 Visualizações
RSS
 Arihern
(@arihern)
Posts: 33
Eminent 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: 33
Eminent Member
Topic starter
 

Ninguém? preciso muito dessa informação....

 
Postado : 17/11/2014 12:12 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite

Leia:

viewtopic.php?f=7&t=12600

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/11/2014 6:32 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!
Veja se essa gambiarra te ajuda :D 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/11/2014 7:06 am
 Arihern
(@arihern)
Posts: 33
Eminent 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
 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/11/2014 2:21 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico