Copiar e Colar dados de várias abas para uma única aba
Enviado: 30 Out 2018 às 17:17
Preciso sistematizar alguns dados, que estão dispostos da mesma forma em várias abas, para uma única aba. E fazer este mesmo processo para 71 planilhas.
Todas as abas começam com LA , e variam de LA 1 a LA 18 (Tem planilha que tem de LA 1 a LA 3 e outras de LA 1 a LA 18).
Eu criei uma aba para sistematizar esses dados, com o nome "Nova"
O que eu preciso copiar e colar para todas as abas com nome LA é (note que eu preciso colar transposto na aba "Nova"):
Sheets("LA 1").Select
Range("C9").Select
Selection.Copy
Sheets("Nova").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("LA 1").Select
Range("M21:R34").Select
Selection.Copy
Sheets("Nova").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("LA 1").Select
Range("S21:X34").Select
Selection.Copy
Sheets("Nova").Select
Range("P2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("LA 1").Select
Range("S41:S47").Select
Selection.Copy
Sheets("Nova").Select
Range("AD2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("LA 1").Select
Range("T41:T47").Select
Selection.Copy
Sheets("Nova").Select
Range("AK2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("LA 1").Select
Range("U41:U47").Select
Selection.Copy
Sheets("Nova").Select
Range("AR2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("LA 1").Select
Range("I79:I111").Select
Selection.Copy
Sheets("Nova").Select
Range("AY2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Obs1: eu já consegui nomear os titulos das colunas da aba "Nova"
Obs2. eu gravei o comando da LA 1, mas precisaria fazer a mesma coisa para 18 abas.
Alguém sabe um código em que eu possa dizer que se a aba começa com LA, então faça a mesma coisa, colando abaixo dos dados da LA anterior?
Todas as abas começam com LA , e variam de LA 1 a LA 18 (Tem planilha que tem de LA 1 a LA 3 e outras de LA 1 a LA 18).
Eu criei uma aba para sistematizar esses dados, com o nome "Nova"
O que eu preciso copiar e colar para todas as abas com nome LA é (note que eu preciso colar transposto na aba "Nova"):
Sheets("LA 1").Select
Range("C9").Select
Selection.Copy
Sheets("Nova").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("LA 1").Select
Range("M21:R34").Select
Selection.Copy
Sheets("Nova").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("LA 1").Select
Range("S21:X34").Select
Selection.Copy
Sheets("Nova").Select
Range("P2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("LA 1").Select
Range("S41:S47").Select
Selection.Copy
Sheets("Nova").Select
Range("AD2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("LA 1").Select
Range("T41:T47").Select
Selection.Copy
Sheets("Nova").Select
Range("AK2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("LA 1").Select
Range("U41:U47").Select
Selection.Copy
Sheets("Nova").Select
Range("AR2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("LA 1").Select
Range("I79:I111").Select
Selection.Copy
Sheets("Nova").Select
Range("AY2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Obs1: eu já consegui nomear os titulos das colunas da aba "Nova"
Obs2. eu gravei o comando da LA 1, mas precisaria fazer a mesma coisa para 18 abas.
Alguém sabe um código em que eu possa dizer que se a aba começa com LA, então faça a mesma coisa, colando abaixo dos dados da LA anterior?