hi
I need fixing this code
Code
Private Sub CommandButton1_Click()
Dim i As Integer
Dim lastRow As Long
lastRow = Sheets("DATA").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To 4
Sheets("DATA").Cells(lastRow + i, "A").Value = Controls("textbox" & i).Value
Next i
End Sub
t just copy in one column . each four textboxes (CODE,BRAND,TYPE,ORIGIN) should copy to columns A,B,C,D
currently the code copy to column A and just textbox1,2,3 ,4 with ignore the rest of textboxes
so I truly appreciate if anybody help.