vba/macro simples porém complexa (copiar dados de pasta diferentes com planilhas com mesmo nome)

[analfabeto]

Bom dia amigos, agradeço a ajudar e altruísmo de todos vocês e a grande qualidade do fórum.

Minha duvida é preciso copiar valores de pastas de trabalhos diferentes que possuem planilhas com nome e formatação identicas, gostaria de saber como faço para proceder sem precisar colocar macro o nome de todas as planilhas.

 

EXPLICANDO:  Tenho dois arquivos (pastas de trabalho) com 46 planilhas possuindo nomes identicos (nome dos funcionarios) e formatação iguais entre si. Elas são preenchida com dados (horas trabalhadas),

Quero copiar uma seleção (C9:F33) da pasta de trabalho de nome JUNHO da planilha chamada ABEL (FUNCIONARIO) e colar essa seleção na outra pasta de trabalho JULHO, na planilha com mesmo nome ABEL (o mesmo funcionario) na area C3:F27; porém no meu macro tenho que inserir o nome de cada planilha, como são 46 planilhas/funcionarios em cada pasta o trabalho essa etapa é demorada.

Existe algum código em vba que copia os valores selecionados das guias/abas de um pasta de trabalho e cole em outra pasta de trabalho com guias/abas com nomes idênticos e ja existentes?

 

Meu exemplo de macro

 

na pasta junho

    Sheets("ABEL").Select

    ActiveWindow.SmallScroll Down:=-12

    Range("C3:F27").Select

    Windows("JULHO .xlsx").Activate

    Sheets("ABEL").Select

    ActiveWindow.SmallScroll Down:=-15

    Range("C9:F33").Select

    Selection.Copy

    Application.CutCopyMode = False

    Selection.Copy

    Windows("JUNHO.xlsm").Activate

    ActiveWindow.SmallScroll Down:=-9

    ActiveSheet.Paste

    Range("G9").Select

    ActiveWindow.SmallScroll Down:=15

    Range("C28").Select

    Sheets("WILSON").Select                                  ----- WILSON É A OUTRA ABA (FUNCIONARIO) DA PLANINHA 

    ActiveWindow.SmallScroll Down:=-18

    Range("C3:F27").Select

    Windows("JULHO .xlsx").Activate

    Sheets("WILSON").Select                  

    ActiveWindow.SmallScroll Down:=-12

    Range("C9:F33").Select

    Application.CutCopyMode = False

    Selection.Copy

    Application.CutCopyMode = False

    Selection.Copy

    Windows("JUNHO.xlsm").Activate

    ActiveWindow.SmallScroll Down:=-18

    ActiveSheet.Paste

    ActiveWindow.SmallScroll Down:=9

    Range("C28").Select

[Visitante]

Experimente:

Sub CopiaCola() Dim WBjun As Workbook, WBjul As Workbook, ws As Worksheet  Set WBjun = Workbooks("JUNHO")  Set WBjul = Workbooks("JULHO")   For Each ws In WBjun.Worksheets    WBjul.Sheets(ws.Name).Range("C3:F27").Value = ws.Range("C9:F33").Value   Next wsEnd Sub

[analfabeto]

Amigo, muito obrigado, sua ajuda foi de grande importância e funcionou perfeitamente. Obrigado