VBA code naar laatste vrije cel gaan

[tonissteiner]

Allen,

ik ben geen primus op gebied van VBA en breek al enkele avonden mijn hoofd op een code waarmee ik naar een laatse vrije cel in een kolom/bereik kan gaan. iets waar jullie waarschijnlijk maar 10 seconden aan werken. in bijlage de exel waarmee ik wil werken. als je op de knop "nieuwe werknemer" drukt zal automatisch een lijn ingevoegd worden. graag zou ik dus automatisch naar de laatste vrije cel in kolom B springen.

alvast bedankt.

mvg

 

[Emil S]

Met :
Range("b65536").End(xlUp).Offset(1, 0).Select

wellicht

 

[tonissteiner]

Met :
Range("b65536").End(xlUp).Offset(1, 0).Select

wellicht

nope, dat is het niet echt. heb de code ingevoerd maar die brengt ne naar een andere, niet de laatst lege, in het bereik

sorry

 

[paulva]

Is het dit?

    Dim intTeller As Integer
    intTeller = 35
    While Cells(intTeller, 2).Value <> ""
        intTeller = intTeller + 1
    Wend
'   Cells(intTeller, 2) is na deze loop de eerste vrije cel

 

[tonissteiner]

    Dim intTeller As Integer
    intTeller = 35
    While Cells(intTeller, 2).Value <> ""
        intTeller = intTeller + 1
    Wend
'   Cells(intTeller, 2) is na deze loop de eerste vrije cel

nope dit werkt ook niet. ik heb zelf iets proberen uitwerken in het file-ke in bijlage maar geen van de drie oplossingen brengt me naar de laatst lege cel

nog iemand een id?

 

[paulva]

Ja, het moest natuurlijk de LAATSTE cel zijn. Sorry.
Dat kan je onder andere door te kijken naar de hoogte van de rij.

    intTeller = 35
    While Cells(intTeller, 2).Value <> ""
        intTeller = intTeller + 1
    Wend
    While Cells(intTeller, 2).Height = 30
        intTeller = intTeller + 1
    Wend
    
    Cells(intTeller - 1, 2).Select

 

[tonissteiner]

Ja, het moest natuurlijk de LAATSTE cel zijn. Sorry.
Dat kan je onder andere door te kijken naar de hoogte van de rij.

    intTeller = 35
    While Cells(intTeller, 2).Value <> ""
        intTeller = intTeller + 1
    Wend
    While Cells(intTeller, 2).Height = 30
        intTeller = intTeller + 1
    Wend
    
    Cells(intTeller - 1, 2).Select

yep, het werkt. vreet wel bedankt voor de moeite

mvg