lege cellen moeten datum krijgen

[Spiesse]

een verdere uitbreiding op deze topic... hoe geraak in na uw laatste code naar de eerstvolgende lege cel in kolom a in de tabel? Ik weet een code om naar de eerstvolgende lege regel te gaan, maar die springt tot de eerste regel onder de tabel... dit zou me namelijk alweer een seconde of 2 tijd sparen

ik ben benieuwd.

thx!!!

 

[Niels28]

2 opties.

Deze werkt vanaf boven, als je er lege regels tussen hebt staan gaat hij hierna toe.

Application.Goto (Cells(1, 1).End(xlDown).Offset(1, 0))

Deze werkt vanaf onder, als je tabel helemaal gevult is kom je in A1 terecht.

Application.Goto (Cells(Rows.Count, "A").End(xlUp).End(xlUp).Offset(1, 0))

de plaats in de macro is afhankelijk van wanneer je naar kolom A wilt gaan.
Als dat is na het invullen van een datum in kolom H dan zet je hem net boven mijn laatste "end if"

Niels

 

[Spiesse]

de laatste doet het! great!!!!!!!

 

[Spiesse]

Toch wel als hobby.
Maar daar zijn ze op mijn werk ook achter gekomen dus daar maak ik ook regelmatig programma's.

Niels

lol! hier van hetzelfde dus ge krijgt ook de vrijheid tijdens de uren om op het forum te vertoeven
wat doe je van job?