• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Textbox u boş hücreye yazdırma

S

sahika51

Altın Üye
Katılım
28 Ekim 2006
Mesajlar
187
Excel Vers. ve Dili
2010-2019
Çok kıymetli ustalar iyi akşamlar. Yardımcı olursanız sevinirim.
Proramımda userform daki Textboxları ilgili sayfanın ilgili hücrelerine yazdırıyorum. Takıldığım nokta;

TextBox 60 = üstteki Textboxların toplamı
Textbox 61 = Textbox60 ın %18
TextBox62 = Genel Toplam sonuçlarının FATURA sayfasına yazdırılması gerekiyor.
Ben bunun direkt hücreye yazdırabilirim. Ancak örnekleme yaparsam; 3 ürün satarsam faturanın 3 satırını kullanacağımdan TextBox60 ın 5. satıra, TextBox61, TextBox62 nin 7. satıra T sütünuna yazılmasını, Label20 ninde Textbox62 satırındaki Bsütununa yazılması gerekiyor. kod aşağıdadır.




Private Sub cmdButonYaz_Click()

'check for a Name number
If Trim(Me.TextBox1.Value) = "" Then
Me.TextBox1.SetFocus
MsgBox "Lütfen Formu Doldurun"
Exit Sub
End If
'copy the data to the database
ActiveSheet.Range("t13").Value = TextBox2.Text
ActiveSheet.Range("b6").Value = TextBox3.Text
ActiveSheet.Range("b9").Value = TextBox8.Text
ActiveSheet.Range("b13").Value = TextBox4.Text
ActiveSheet.Range("b14").Value = TextBox59.Text
ActiveSheet.Range("ı30").Value = TextBox5.Text
ActiveSheet.Range("ı31").Value = TextBox6.Text
ActiveSheet.Range("ı32").Value = TextBox7.Text
ActiveSheet.Range("A18").Value = TextBox9.Text
ActiveSheet.Range("B18").Value = TextBox10.Text
ActiveSheet.Range("R18").Value = TextBox11.Text
ActiveSheet.Range("S18").Value = TextBox12.Text
ActiveSheet.Range("T18").Value = TextBox13.Text
ActiveSheet.Range("A19").Value = TextBox14.Text
ActiveSheet.Range("B19").Value = TextBox15.Text
ActiveSheet.Range("R19").Value = TextBox16.Text
ActiveSheet.Range("S19").Value = TextBox17.Text
ActiveSheet.Range("T20").Value = TextBox18.Text
ActiveSheet.Range("A20").Value = TextBox19.Text
ActiveSheet.Range("B20").Value = TextBox20.Text
ActiveSheet.Range("R20").Value = TextBox21.Text
ActiveSheet.Range("S20").Value = TextBox22.Text
ActiveSheet.Range("T20").Value = TextBox23.Text
ActiveSheet.Range("A21").Value = TextBox24.Text
ActiveSheet.Range("B21").Value = TextBox25.Text
ActiveSheet.Range("R21").Value = TextBox26.Text
ActiveSheet.Range("S21").Value = TextBox27.Text
ActiveSheet.Range("T21").Value = TextBox28.Text
ActiveSheet.Range("A22").Value = TextBox29.Text
ActiveSheet.Range("B22").Value = TextBox30.Text
ActiveSheet.Range("R22").Value = TextBox31.Text
ActiveSheet.Range("S22").Value = TextBox32.Text
ActiveSheet.Range("T22").Value = TextBox33.Text
ActiveSheet.Range("A23").Value = TextBox34.Text
ActiveSheet.Range("B23").Value = TextBox35.Text
ActiveSheet.Range("R23").Value = TextBox36.Text
ActiveSheet.Range("S23").Value = TextBox37.Text
ActiveSheet.Range("T23").Value = TextBox38.Text
ActiveSheet.Range("A24").Value = TextBox39.Text
ActiveSheet.Range("B24").Value = TextBox40.Text
ActiveSheet.Range("R24").Value = TextBox41.Text
ActiveSheet.Range("S24").Value = TextBox42.Text
ActiveSheet.Range("T24").Value = TextBox43.Text
ActiveSheet.Range("A25").Value = TextBox44.Text
ActiveSheet.Range("B25").Value = TextBox45.Text
ActiveSheet.Range("R25").Value = TextBox46.Text
ActiveSheet.Range("S25").Value = TextBox47.Text
ActiveSheet.Range("T25").Value = TextBox48.Text
ActiveSheet.Range("A26").Value = TextBox49.Text
ActiveSheet.Range("B26").Value = TextBox50.Text
ActiveSheet.Range("R26").Value = TextBox51.Text
ActiveSheet.Range("S26").Value = TextBox52.Text
ActiveSheet.Range("T26").Value = TextBox53.Text
ActiveSheet.Range("A27").Value = TextBox54.Text
ActiveSheet.Range("B27").Value = TextBox55.Text
ActiveSheet.Range("R27").Value = TextBox56.Text
ActiveSheet.Range("S27").Value = TextBox57.Text
ActiveSheet.Range("T27").Value = TextBox58.Text
'TextBox60 kaç ürün girişi yapılmışsa hemen alt satırına yazması
'TextBox61 TextBox60 nın hemen alt satırına yazması
'TextBox62 TextBox61 nın hemen alt satırına yazması
'TextBox62 nin değeri yazı ile TextBox62 nin altındaki B sütununa yazılması gerekiyor
End Sub
 
Merhaba,

Aşağıdaki satır ile veri girişi yapılmış son boş satırı bulup fatura toplamı için kullandığınız textboxları hücrelere yazdırırken kullanabilirsiniz.

Kod: 
Satir = Cells(Rows.Count, "A").End(3).Row + 1[code]
 
Korhan bey aslında sizin bu önerinizi başka konularda gördüm. Denedim yapamadım. Bana örneğin textbox60 için T sütunundaki T18 ile T30 arasında yazdıracak bir kod örneği yazabilir misiniz.
 
Kullandığınız kod koşulsuz bütün satırlara veri yazıyor. Bu sebeple benim verdiğim satırı ekleseniz dahi istediğiniz sonucu alamayacaksnız.

Boş olan satırları sayfaya aktarmamanız gerekiyor. Bunun için ilk mesajınızda paylaştığınız kod için EĞER TEXTBOX BOŞ DEĞİLSE SAYFAYA AKTAR koşulunu bütün textboxlar için vermeniz gerekiyor.

Bu şekilde düzenlerseniz gerisi kolay...
 
Korhan bey teşekkür edrim ilgileniyorsunuz. Ben userformda şöyle bir değişiklik yaptım
Texbox10 ile Textbox19 arası sıra numarası (a18 den başlayacak)
Textbox 20 ile Textbox 29 arası ürün adları (b18 den başlayacak)
Textbox30 ile Textbox39 arası Miktarı (r18 den başlayacak)
Textbox40 ile Textbox49 arsı BirimFiyat (s 18 den başlayacak)
Textbox50 ile Textbox62 arasınıda Tutarlar, Tutar, KDV ve Genel topalam yaptım. (t18 den başlayacak)


Bunları ayrı ayrı dizi olarak tanımlayıp üstteki satır dolu ise alta yazdır şeklinde yazdırabilirmiyiz peki
 

Ekli dosyalar

Korhan Ayhan' Alıntı:
Kullandığınız kod koşulsuz bütün satırlara veri yazıyor. Bu sebeple benim verdiğim satırı ekleseniz dahi istediğiniz sonucu alamayacaksnız.

Boş olan satırları sayfaya aktarmamanız gerekiyor. Bunun için ilk mesajınızda paylaştığınız kod için EĞER TEXTBOX BOŞ DEĞİLSE SAYFAYA AKTAR koşulunu bütün textboxlar için vermeniz gerekiyor.

Bu şekilde düzenlerseniz gerisi kolay...
Genişletmek için tıkla ...

Şöyle birşey yaptım sadece 1. sıradakileri yazıyor diğerleri yok. burda ne yapabilirim. Korhan bey
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst