- 27 Jul 2019 às 10:33
#46091
Bom dia
Estou tentando copiar algumas linhas e colunas de uma planilha para outra, sendo que essas linhas e colunas são alteradas em função da seleção feita em uma caixa suspensa.
Tentei dessa maneira, mas não obtive exito
Sub copiarDadosEntrePlanilhas()
'Copiar dados
Sheets("Cadastro IT 07").Range("B55:X76").Copy
'Ativa a planilha de destino
Sheets("IT-07").Activate
'Seleciona o intervalo de destino
Range("C67").Select
'Cola os dados no destino
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Alguém pode me dar uma idéia?
Grato
Estou tentando copiar algumas linhas e colunas de uma planilha para outra, sendo que essas linhas e colunas são alteradas em função da seleção feita em uma caixa suspensa.
Tentei dessa maneira, mas não obtive exito
Sub copiarDadosEntrePlanilhas()
'Copiar dados
Sheets("Cadastro IT 07").Range("B55:X76").Copy
'Ativa a planilha de destino
Sheets("IT-07").Activate
'Seleciona o intervalo de destino
Range("C67").Select
'Cola os dados no destino
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Alguém pode me dar uma idéia?
Grato