blad in een ander bestand selecteren

[duco243]

Hallo,

Ik zit met de volgende kwestie:

Ik heb 2 bestanden.

C:\Users\duco\Documents\Overzicht.xlsm met 27 bladen, het eerste blad heet "Info" en de anderen A tm Z
C:\Users\duco\Documents\Maand.xlsx met 12 bladen genaamd Januari tm December

In bestand Overzicht staat in blad Info in cel H8 de tekst "Juli"
Nu wil ik vanuit bestand Overzicht van blad A een range kopieeren naar het andere bestand in blad Juli (obv de tekst in cel H8 van blad Info)

Kan iemand mij helpen met de code op de blauwe regel.
Zoiets:

Range("A1:G1").Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\duco\Documents\Maand.xlsx"
Sheets ("[C:\Users\duco\Documents\Overzicht.xlsm]" & "Info!H8").Select
Range("A1").Select
ActiveSheet.Paste


b.v.d.


Duco

 

[VenA]

't is wel een beetje onleesbaar verhaal. Plaats code tussen code tags en het liefst ook een voorbeeldbestandje.

Waarschijnlijk wil je zoiets

Sub VenA()
With Sheets("Info")
    c00 = .[H8].Value
    .Range("A1:G1").Copy
End With
Workbooks.Open Filename:="C:\Users\duco\Documents\Maand.xlsx"
Application.Goto Sheets(c00).[A1]
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Of zonder te kopiëren

Sub VenA1()
With Sheets("Info")
    Ar = .Range("A1:G1")
    c00 = .[H8].Value
End With
Workbooks.Open Filename:="C:\Users\duco\Documents\Maand.xlsx"
Sheets(c00).[A1].Resize(1, 7) = Ar
End Sub

 

[duco243]

VenA, je oplossing werkt perfect!

Dat is wat ik bedoelde, hartelijk dank weer.