AccessTr.neT

Bul · 07/12/2020, 15:24

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?

Bul · 07/12/2020, 16:01

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

Bul · 07/12/2020, 17:03

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

Bul · 07/12/2020, 17:05

denediniz mi? sorunsuz çalışıyor mu

Bul · 07/12/2020, 17:18

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.

Bul · 07/12/2020, 17:35

(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

AccessTr.neT

Textbox Aktarma

Textbox Aktarma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri