Textbox Aktarma - Baskı Önizleme

Textbox Aktarma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Textbox Aktarma (/konu-textbox-aktarma.html)

Sayfalar: 1 2

RE: Textbox Aktarma - berduş - 07/12/2020

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?

RE: Textbox Aktarma - berduş - 07/12/2020

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

RE: Textbox Aktarma - malatyalı - 07/12/2020

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

RE: Textbox Aktarma - berduş - 07/12/2020

denediniz mi? sorunsuz çalışıyor mu

RE: Textbox Aktarma - malatyalı - 07/12/2020

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.

RE: Textbox Aktarma - berduş - 07/12/2020

(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