Formule kopieren tot laatste gevulde rij

[poelie01]

Hallo,

Zou graag een formule in Cel V2 willen kopieeren naar beneden tot aan de laatst gevulde rij ( hier zitten ook lege regels tussen)

Echter als ik de cellen met SHIFT+END+Pijl naar beneden selecteer dan selecteerd hij tot rij 1048576.

Iemand enig idee hoe ik dit zou kunnen doen?

Groeten,

Stefan

 

[arrie23]

Als je weet wat de laatste rij is.
Stel je formule staat in cel B1 en de laatste rij is 12000
Kies voor CTRL+G (Ga Naar). Kies bij Verwijzing voor B1:B12000
Druk op F2 en druk vervolgens op CTRL+ENTER

 

[poelie01]

Hallo Arrie23,

De laatste rij met gegevens veranderd dagelijks, er worden namelijk dagelijks nieuwe regels ingevoegd.

 

[MarcelBeug]

De laatste rij in kolom A, stel dit zet je in Z1:

=VERGELIJKEN(9,9999999999999E+307;$A:$A)

Je zou de formule in V2 naar beneden kunnen doortrekken tot het maximum aantal regels dat je ooit zou verwachten en kijken of je voorbij de laatste regel bent:
=ALS(RIJ(V2)>$Z$1;"";formule)

Edit: bovenstaande geldt alleen voor numerieke gegevens in kolom A.
Ingeval van alfanumerieke gegevens kun je de volgende array formule gebruiken (bevestigen met Ctrl+Shift+Enter):

=MAX(ALS(A1:A10000<>"";RIJ(A1:A10000)-RIJ(A1)+1))

10000 aanpassen naar het maximum aantal regels dat je ooit zou verwachten.

 

[VenA]

Met een kleine macro die je onder een sneltoets kan zetten.

Sub VenA()
With ActiveCell
    .AutoFill Range(Cells(.Row, .Column), Cells(ActiveSheet.UsedRange.SpecialCells(11).Row, .Column))
End With
End Sub

 

[poelie01]

Na wat onderzoek kan ik toch een laatste regel aanwijzen.

In deze laatste regel heb ik een opmerking gezet om als dusdanig te kunnen bepalen.

In het voorbeeld wil ik dus d.m.v. zoeken naar opmerking "tot hier" zoeken naar deze laatste regel en vervolgens alle gegevens onder de actieve cel leeg maken.

Heeft iemand hier een code voor?Bekijk bijlage Voorbeeld zoeken tot hier.xlsx

 

[Haije]

kijk eens hier: http://www.helpmij.nl/forum/showthread.php/870167-zoek-de-juiste-cel

 

[poelie01]

hallo Haije,

Bedankt voor je link.

Mis alleen nog de code voor het stukje voor verwijderen van de gegevens onder de actieve cel, is deze ook ergens te vinden?

 

[Haije]

poelie,

probeer het eens hiermee:

Sub vind_laatste_regel()
x = Cells.Find(What:="laatste regel", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Row
alles = ActiveSheet.UsedRange.Rows.Count
Range("A" & x + 1 & ":A" & alles).EntireRow.Delete
End Sub

 

[poelie01]

Hallo Haije,

Top het werkt!

Uitermate bedankt!

Groeten