Zoeken naar laatste rij met data

[martinus1988]

Hallo,

Ik heb een probleem met
For IntLp = 2 To 99
In deze macro is er een loop van row 2 tot 99. De rows fluctueren door een andere macro dus geeft deze macro een fout bij lege waarde. Hoe kan ik dit aanpassen dat hij zoekt naar row 2 tot laatste row met data?

Alvast bedankt

Sub openAndCopyPartlist()

    Dim wbCopy As Workbook
    Dim wsCopy As Worksheet
    Dim rngCopy As Range
    Dim wbPaste As Workbook
    Dim wsPaste As Worksheet
    Dim rngPaste As Range
    Dim IntLp As Integer
    
    For IntLp = 2 To 99 
    
    Set wbCopy = Workbooks.Open(ThisWorkbook.Sheets("Master").Range("H" & IntLp).Value)
    Set wsCopy = wbCopy.Worksheets("Blad1")
    Set rngCopy = wsCopy.Range("a1:m100").EntireColumn
    Set wbPaste = Workbooks("Voorraad beheer.xlsm")
    Set wsPaste = wbPaste.Worksheets(ThisWorkbook.Sheets("Master").Range("I" & IntLp).Value)
    Set rngPaste = wsPaste.Range("a1")
    Application.DisplayAlerts = False
    
    
    rngCopy.Copy
    rngPaste.PasteSpecial
    wbCopy.Close savechanges:=False
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    
    Next IntLp

 

[HSV]

Hallo Martinus,

Beetje een vreemde code als ik zo vriendelijk mag zijn.
Het opent en sluit het bestand zo 99 keer.

Ik weet niet vanuit welk kolom je wil rekenen wat het aantal rijen is.
Dat kan met.....

 activesheet.usedrange.rows.count

....maar die is niet betrouwbaar genoeg.

Wat wel betrouwbaar is, is....

for i = 2 to activesheet.cells(rows.count,1).end(xlup).row

...gebaseerd op de lengte van kolom A (de 1 in de regelcode).