wisselen tussen workbooks zonder naam te definiëren.

[jackhol]

goedemorgen

daar ben ik weer met een nieuwe vraag.

ik heb gister met de hulp van cobbe mijn probleem van plaatsing opgelost.

maar nu heb ik besloten om het bron document samen te voegen met een ander bron document zodat deze niet meer in dezelfde workbook staat maar in 1 apparte bron waar alles vandaan wordt gehaald.

het probleem is dat ik niet de namen van de workbooks wil gebruiken.

het zoeken naar de goede waarde gaat prima het probleem zit hem als ik op de regel kom waarin ik de cell wil selecteren waarin de waarde moet komen. ik wissel dan van active workbook en kan dus niet meer wisselen tussen thisworkbook en activeworkbook (aangezien deze dezelfde zijn geworden).

Sub MacroTest2()

Dim Zoek As String
Dim ClmLtr As String

Zoek = ThisWorkbook.Sheets("totaal").Range("O5")
ActiveWorkbook.Sheets("WiP").Select
    Cells.Find(What:=Zoek, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
ClmLtr = ColLetter(Selection)

ThisWorkbook.Sheets("Truck").Range("Q5").Select
   ActiveCell = ActiveWorkbook.Sheets("WiP").Range(ClmLtr & "25")
Thisworkbook.sheets("Truck").Activate
Range("R5").Select
   ActiveCell = Sheets("WiP").Range(ClmLtr & "25").Offset(0, 1)

omdat ik meerdere cellen moet kopieren (vandaar de offset welke in totaal zich 4x met een verschillende offset herhaald). moet ik wisselen tussen de 2 workbooks. maar ik loop vast bij de eerste regel

ThisWorkbook.Sheets("Truck").Range("Q5").Select

hoe kan ik tussen de 2 workbooks wisselen zonder de namen te gebruiken. de 2e workbook (activeworkbook) wil ik op het einde ook afsluiten.

alvast bedankt voor jullie meedenken.

 

[jackhol]

ik denk dat ik het heb opgelost door de volgende code te gebruiken.

ThisWorkbook.Sheets("Breda Truck").Range("Q5") = ActiveWorkbook.Sheets("WiP").Range(ClmLtr & "25")