Copiar dados para outra Planilha

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Copiar dados para outra Planilha

Mensagempor fabio.cmaa » Sex Jun 14, 2019 3:24 pm

Boa tarde galerinha!!!

preciso de um help..


tenho uma macro, para copiar os dados de uma planilha que está dentro da mesma pasta de Destino...

Quero copiar os dados da coluna A2:K100000, da planilha>> Locais a colher - PIMS.xlsx, nome da aba está Planilha1

e

quero colar os dado na coluna A2:K100000, da planilha >>>Situação Geral SFR 2019-2020.xlsm, nome da aba está Buscar

ambos anexos estão na mesma pasta


Porem não está colando os dados, poderia me dar uma ajuda??


MACRO





Sub Copiar_dados_de_outro_arquivo()


Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet

'Passo 2: Especifica o intervalo que deseja excluir os dados na planilha de destino.
'Neste caso está sendo excluído todos os dados da planilha, exceto a primeira linha.
Range("A2:k100000").ClearContents

'Passo 3: Especifica o caminho do arquivo de origem.
Workbooks.Open Filename:="C:\Users\fabio.candido\Desktop\Plano de Coheita\Locais a colher - PIMS.xlsx"

'Passo 4: Especifica o nome e a aba do arquivo de origem, que deseja copiar os dados.
Set wsOrigem = Workbooks("Locais a colher - PIMS.xlsx").Worksheets("Planilha1")

' Passo 5: Especifica a aba no arquivo de destino, que deseja colar os dados.
Set wsDestino = Workbooks("Situação Geral SFR 2019-2020.xlsm").Worksheets("Buscar")

'Passo 6: Realiza o procedimento de copiar e colar os dados, no intervalo que desejar. Neste caso está sendo copiado todos os dados da planilha, exceto a primeira linha.
With wsOrigem
Range("A2:k100000").Copy Destination:=wsDestino.Range("A2:k100000").PasteSpecial

End With

'Passo 7: Especifica o nome da planilha de origem, para salvar e fechar.
Workbooks("Locais a colher - PIMS.xlsx").Close

End Sub
Avatar do usuário
fabio.cmaa
Membro
Membro
 
Mensagens: 162
Registrado em: Qua Jul 20, 2016 7:34 am
Has thanked: 52 times
Have thanks: 8 times

{ SO_SELECT }

Re: Copiar dados para outra Planilha

Mensagempor wagner » Sex Jun 14, 2019 8:03 pm

fabio.cmaa,

Sua postagem está fora das regras do fórum. Gentileza EDITAR a mesma e inserir o código VBA dentro das TAG CODE.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5331
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 94 times
Have thanks: 2275 times

Re: Copiar dados para outra Planilha

Mensagempor fabio.cmaa » Seg Jun 17, 2019 7:30 am

bom dia Wagner!!!

Como eu faria isso?

teria que ser dentro de um anexo ? tipo txt ?
Avatar do usuário
fabio.cmaa
Membro
Membro
 
Mensagens: 162
Registrado em: Qua Jul 20, 2016 7:34 am
Has thanked: 52 times
Have thanks: 8 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 3 visitantes