Laatste regel zoeken

[johanrr]

Bekijk bijlage invoeren vrije tekst.xlsHallo Forumgebruiker,

Ik wil een aantal regels invoeren in een excel bestand, dat elke keer een ander aantal regels heeft. Ik wil dus vanaf regel 90 (omdat er een aantal verborgen cellen tussen zitten) onderstaande macro uitvoeren. Kan dit via een macro die vanaf bv rij 90 gaat kijken of er iets in cell a90 staat, indien ja kijk in cell a91 etc. Tot hij komt bij een lege cell en daar moet dan de tekst in komen. Wie kan me daarmee helpen?

Sub tekstinvoer() ' test_invoegen Macro
ActiveWindow.SmallScroll Down:=9
    Rows("2990:3000").Select
    Range("B200").Activate
    Selection.EntireRow.Hidden = False

End Sub

Mvg
Johan

 

[E v R]

Wil je steeds onder de laatst ingevulde regel of zitten er vanaf rij 90 ook lege regels tussen die eerst gevuld moeten worden?

 

[johanrr]

Beste Eric,
Vanaf de onderste rij zitten er nog lege rijen, tot rij 3000. Daar zitten weer de celsamenvoegingen. Vanaf rij 90 zitten geen lege regels meer.

Gr. Johan

 

[Cobbe]

Heb ik het goed begrepen?

Sub tekstinvoer() ' test_invoegen Macro
    rij = Range("a2500").End(xlUp).Row + 1
       If rij < 91 Then rij = 91
          Rows("2990:3000").Copy Destination:=Rows(rij)
End Sub

Succes, Cobbe

 

[E v R]

Eerst zichtbaar maken en dan eerste lege cel selecteren?

sub tst()
Range("A90", Cells.Find(What:="*", After:=[A2990], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address).EntireRow.Hidden = False
Cells(2990, 1).End(xlUp).Offset(1, 0).Select
end sub

 

[Roncancio]

In 1 regel:

Sub Invullen()
Range("A90").CurrentRegion.Rows(Range("A90").CurrentRegion.Rows.Count).Offset(1, 0).Value = "TEXT"
End Sub

Met vriendelijke groet,


Roncancio

 

[johanrr]

Beste Eric, Cobbe, Roncancio,

Drie werkbare opties, alle werken, Bedankt !
Gr. Johan