TextBox Value Transfer in worksheets

[nidhipatel]

my userform contain 7 Textbox i would like This 7 Textbox value Transfer in Worksheet1 In "D" Column. every time data transfer in last blank cell in D Columun
with vba macro

 

[My Aswer Is This]

This script will do what you want and enter data into active sheet.
If you need it added to another sheet I need sheet name.
I did not understand:

Worksheet1

Did you mean Sheet(1)
Or sheet named
Sheet1

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
'Modified  9/14/2018  5:04:16 PM  EDT
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "D").End(xlUp).Row + 1
Dim ctrl As Control
    For i = 1 To 7
        Cells(Lastrow, "D").Value = Me.Controls("TextBox" & i).Value
        Me.Controls("TextBox" & i).Value = ""
        Lastrow = Lastrow + 1
        Next
    
    Application.ScreenUpdating = True
End Sub

​