dynamic range aan passen

[tobo100]

deze functie zoekt laatste rij gegevens in een sheet.
in het sheet staan standaard 45 rijen met borders/kaders
de data invoer beperkt zich soms tot een paar rijen
de functie selecteert daarom altijd tot rij 45 (dynamic range)
is er een mogelijkheid om deze functie aan te passen zo dat er alleen naar de getypte data gezocht word
en er niet gekeken word
naar de kaderranden
vast bedankt vr gr tobo

Function LastRow1(sh As Worksheet)
    
    LastRow1 = sh.Cells.Find(what:="*", _
                            after:=sh.Range("a1"), _
                            lookat:=xlPart, _
                            LookIn:=xlValues, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
    On Error GoTo 0
End Function

 

[sylvester-ponte]

gokje

function LastRow1(sh as as worksheet) 
       LastRow1 = sh.Range("a1").CurrentRegion.rows.count
End Function

 

[tobo100]

Jammer sylvester-ponte helaas blijft gelijk zo toch bedankt voor je inzet:thumb:

 

[sylvester-ponte]

plaats eens een voorbeeld bestandje, dat vergroot de kans.

 

[pixcel]

Dit soort zoek-laatste-rij functies zijn een beetje achterhaald. Bind je gegevens mbv een Excel tabel (Invoegen > Tabel) en je hoeft nooit te twijfelen over de laatste rij.

With me.listobjects(1)
    set rLaatsteRij = .listrows(.listrows.count).range
end with