eklediğim kodlar sadece LMNO sütunlarına textbox değerini eklemekle ilgili
Private Sub CommandButton1_Click()
'hy______________________________________________Eklenen
xTxt2 = 2
For xTxt = 1 To 20
If Len(Controls("textbox" & 4 * (xTxt - 1) + 1).Value & Controls("textbox" & 4 * (xTxt - 1) + 2).Value & Controls("textbox" & 4 * (xTxt - 1) + 3).Value & Controls("textbox" & 4 * (xTxt - 1) + 4).Value) > 0 Then
Sheets("VERİLER").Range("L" & xTxt2).Value = Controls("textbox" & 4 * (xTxt - 1) + 1).Value
Sheets("VERİLER").Range("M" & xTxt2).Value = Controls("textbox" & 4 * (xTxt - 1) + 2).Value
Sheets("VERİLER").Range("N" & xTxt2).Value = Controls("textbox" & 4 * (xTxt - 1) + 3).Value
Sheets("VERİLER").Range("O" & xTxt2).Value = Controls("textbox" & 4 * (xTxt - 1) + 4).Value
xTxt2 = xTxt2 + 1
End If
Next xTxt
'hy______________________________________________Bitti
sonsat = Sheets("VERİLER").[L65536].End(3).Row + 1
s = 12: a = 2
For i = 1 To 77 Step 3
Cells(sonsat, s) = Controls("TextBox" & i + 1)
If s >= 10 Then a = 2
s = s + 1
Next i
End Sub