Este fórum está sendo desativado

[PietroFerrari]

Caros, bom dia!

Caros preciso de uma macro que copie a célula F54 de uma aba do arquivo 1 e cole em F55 na aba com mesmo nome no arquivo 2. Porem nem todas as abas do arquivo 1 estão no arquivo 2.

Exemplo:
No arquivo 1 tenho as abas "Joao", "Jose" e "Maria"
No arquivo 2 tenho as abas "Joao", "Mario" e "Felipe"
Preciso que a macro copie e cole os dados apenas nas abas que tiverem o mesmo nome.
Neste exemplo copiaria e colaria apenas os dados da aba "Joao".

O código abaixo funciona para copiar e colar os dados entre os arquivos, mas se os arquivos não tiverem exatamente as mesmas abas a macro dá erro!

For Each ws In Arquivo1.Worksheets
Arquivo2.Sheets(ws.Name).Range("F54").Value = ws.Range("F55").Value
Next ws

Conto com a ajuda de vocês!

Obrigado!!

[mprudencio]

Use um if antes de colar.

Alem é claro de fazer um outro for para pesquisar o nome da guia.

[PietroFerrari]

mprudencio Obrigado pela resposta! porém ainda estou com duvidas de como continuar. Voce poderia escrever o codigo para mim por favor??

Abraço