write down values from txtbox into spreadsheet

[tomanton]

Hi all,
Can anyone help me with creating a simple VBA code to copy down values from single txtbox in userform onto spreadsheet column I where a range in that column would be equal to COUNTA($A$4:$A$23), depending on how many cells have been completed on column A.
thank you

 

[Luke M]

Does this help with the syntax?

'Using default names
'Info is going into col J, at same row as last data in col A
With Worksheets("Sheet1")
    .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, "I") = UserForm1.TextBox1.Value
End With

 

[tomanton]

Luke, thanks for your replay. I may have been not clear enough:
so I need column "I" to automatically fill down as many rows as there are filled in column A
so if a user uses A4:A15 so data in column "I" should be filled down I4:I15.

 

[Luke M]

Ah. This will fill in Col I wherever there is a constant value in col A.

Sub Fill()
Range("A:A").SpecialCells(xlCellTypeConstants).Offset(0, 8).Value = UserForm1.TextBox1.Value
End Sub

 

[tomanton]

Yes, that works like a charm!

 

[tomanton]

Thank you!