De laatste cel van een ingevulde rij opvragen

[PeterJanssen1948]

In de bijlage heb ik een verjaardag lijstje gemaakt.

Het werkt, maar als ik onderaan een naam en gegevens toevoeg moet die meegenomen in de macro 'sorteren'. Dat kan met de hand, maar natuurlijk is daar een opdracht voor om het automatisch naar de laatste ingevulde kolom en rij te gaan.

Ik heb me al suf gezocht, maar nog geen bevredigende oplossing gevonden.

Heeft iemand een oplossing?

 

[JEC.]

Probeer het eens met deze

Sub jec()
 With Sheets(1).Cells(1).CurrentRegion.Resize(, 8)
   .Sort .Cells(2, 7), 1, , , , , , 1
 End With
End Sub

PS: als je een echte tabel gebruikt gaat het allemaal vanzelf

 

[PeterJanssen1948]

Wat ik bedoel, hoe bepaal ik de waarde van de cel in de macro: .SetRange Range("A1:H39"), wanneer die rij ingevuld is en op de macro sorteren druk.

H39 zou dan automatisch H40 enz. moeten worden...

Ja, van die tabel weet ik, maar ik werk met Excel 365 en als ik nu op de rij er onder gegevens invul, dat is de naam en geboortedatum, dan worden de formules van de rij er boven overgenomen, dat gebeurt in een tabel niet.

 

[JEC.]

Ik denk dat bovenstaande macro voldoende is ter vervanging van je huidige. Probeer het maar eens

 

[PeterJanssen1948]

Ik denk dat bovenstaande macro voldoende is ter vervanging van je huidige. Probeer het maar eens

Ok, werkt nu niet, waar moet ik die dan in de macro zetten?

Sub Sorteren()
'
' Sorteren Macro
'

'
Range("A1:H39").Select
ActiveWorkbook.Worksheets("VerjaardagQuery").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("VerjaardagQuery").Sort.SortFields.Add2 Key:=Range( _
"G2:G39"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("VerjaardagQuery").Sort
.SetRange Range("A1:H39")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("I7").Select
End Sub

 

[JEC.]

Deze macro verwijderen en die van mij plakken, dat zou moeten werken

 

[PeterJanssen1948]

Deze macro verwijderen en die van mij plakken, dat zou moeten werken

Op die fiets... Nu nog uitzoeken hoe die werkt, maar werken doet ie :shocked: :d

Bedankt!