Eerste gebruikte cel

[Stone52]

Excellers,


Om de laatst gebruikte cel / rij te vinden kan je gebruik maken van: Lastrow = Range("A65536").END(xlUp).Row
Is er ook een variant die zoekt "van boven naar beneden" vanaf A1 en die het rij-nr geeft van de eerste gevulde cel (of laatste lege cel) ?

 

[Palmpje]

Gokje:

Firstrow = Range("A1").END(xlDown).Row

Het proberen waard?

 

[Stone52]

Helaas . . . o.a. deze had ik al geprobeerd.
Het is de bedoeling dat het resultaat van de uitvraging is dat het rij-nr ("van boven naar beneden") van de laatste niet gevulde of eerste wel gevulde cel (van de opgegeven kolom) wordt teruggegeven.

 

[LucB]

Deze code selecteert de eerste lege cel na de laatste gevulde cel.

Sub laatste_regel()
Dim LaatsteRegel As Range
Range("A1").Select
Set LaatsteRegel = Range("a65536").End(xlUp)
Selection(LaatsteRegel + 1, 1).Select
End Sub


Opm. Met End(xlDown) mag er geen lege cel van bovenaf tussen zitten . Er wordt dan gestopt bij die lege cel.

Met End(xlUp) komt dit niet voor.

 

[Stone52]

Alweer helaas . . .
Voor de duidelijkheid: bv de cellen A1 t/m A5 zijn leeg, de cellen A6 t/m A999 zijn gevuld. Ik zoek het Firstrow equivalent van de Lastrow = Range("A65536").END(xlUp).Row die mij de waarde 5 (de laatste lege cel) of 6 (de eerste niet-lege cel van "bovenaf gezien") teruggeeft.

 

[LucB]

Deze selecteert de 1e gevulde cel van boven.

Hopelijk nu meer succes.

Sub EerstGevuldeVanBoven()
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

 

[Stone52]

Na het nodige puzzelwerk blijkt dat de eerst gegeven oplossing (Firstrow = Range("A1").END(xlDown).Row) alleen correct werkt indien de eerste cel (A1) niet gevuld is: als de eerste cel wel gevuld is dan wordt als resultaat de rij-waarde van de eerste niet-lege cel NA de gevulde cellen teruggegeven.
De moraal van het verhaal: zorg dat je met genoemde Firstrow constructie start vanuit een lege cel.

Allen hartelijk bedankt voor de inzet !

 

[jzeedijk]

Hoi stone,

Wat dacht je van een Excel-oplossing:
=max((A1:A999<>"")*Rij(A1:A999))

Invoeren als matrixformule (Shift & Ctrl & Enter tegelijk indrukken)

Jeroen