1 - formda metin kutuları 4er 4er değişiyor neden step 3 yaptınız
2 - boş satırlar gelmesin demişsiniz ama burada 4 metin kutusu 1 satır oluşturuyor dolsayısıyla sadece 4ü de boşsa atlanması gerekmez mi?

hücrelere veri atama kodunu aşağıdaki gibi düzenleyip dener misiniz?
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

Ellerin Dert Görmesin. Allah ne muradın varsa nasip eylesin.

denediniz mi? sorunsuz çalışıyor mu

Ustam Allah razı olsun. Bende sıkıntısız çalıştı. Allah iki cihanda huzur ve mutluluk nazip etsin inşallah.

Eğer zamanınız var ise
Sayfaya aktardığımız verileri commandbutton ile textboxlara nasıl alabiliriz?
Olur ya bir değişiklik yapılacaksa form üstünden yapılsın.

(07/12/2020, 17:18)malatyalı yazdı: Sayfaya aktardığımız verileri commandbutton ile textboxlara nasıl alabiliriz?

bu konuyu referans olarak gösterip yenı konu açmalısınız

---

ama forumda zaten sayfadan userforma veri almayla ilgili örnekler var. önce onları araştırıp çözmeye çalışın yapamazsanız yardımcı olmaya çalışırız