Fill from first populated cell to top

[mucah!t]

Hello all,

How do I get the value of a textbox [on a userform] copied from the first populted cell in lets say column "M" till the top of that column.

Actually M1 has a columnhead, so this needs to be ignored when looking for the first populated cell.

Ideas?

 

[VoG]

Perhaps like this

Private Sub CommandButton1_Click()
Dim NR As Long
NR = Range("M1").End(xlDown).Row
Range(Cells(2, 13), Cells(NR - 1, 13)).Value = TextBox1.Text
End Sub

 

[mucah!t]

Thank you VoG!
I seems to work just fine.
What do I need to change to apply it to another worksheet.
I tried the following but that does not work:

Private Sub CommandButton1_Click()
Dim NR As Long
With Worksheets("Database")
NR = Range("M1").End(xlDown).Row
Range(Cells(2, 13), Cells(NR - 1, 13)).Value = TextBox1.Text
End With
End Sub

 

[VoG]

Try this

Private Sub CommandButton1_Click()
Dim NR As Long
With Worksheets("Database")
    NR = .Range("M1").End(xlDown).Row
    .Range(.Cells(2, 13), .Cells(NR - 1, 13)).Value = TextBox1.Text
End With
End Sub

 

[mucah!t]

That worked thanks VoG!