Vanaf lege rij invullen..

[safe]

Hallo,

Middels de volgende code van het internet gehaald, maar ik wil graag dat het de gegevens vanaf de eerste lege cel vanaf cel "C21" invult.
Dergelijke als : .End(xlUp).Offset(1).Select en dergelijke heb ik geprobeerd, maar daar kom ik niet mee verder.

Iemand een idee wat ik daar wel voor moet gebruiken?

Private Sub CommandButton1_Click()
Dim Data As String, DataLen As Integer
With Me



  
    Data = .TextBox1.Text & Space(1) & .TextBox2.Text & Space(1) & .TextBox3.Text
    DataLen = Len(.TextBox1.Text)
End With
With Sheets("Acc.lijst").Range("C21")
    .Font.Bold = False
    .WrapText = True
    .Value = Data
    .Characters(1, DataLen).Font.Bold = False
End With
End

M.vr.gr.
Safe

 

[Cobbe]

Deze zou dat toch moeten voor elkaar krijgen:

With Sheets("Acc.lijst").Range("C" & Sheets("Acc.lijst").Range("C" & Sheets("Acc.lijst").Rows.count).end(xlup).row+1)

De code kan iets korter indien de commandbutton in het zelfde blad staat.

 

[safe]

Top !!

Werkt naar behoren!!

Cobbe bedankt !!

M.vr.gr.
Safe