ListBoxtan Şeçileni Diğer Sayfaya Kayıt Yapsın

[mustafakoker]

Merhaba Arkadaşlar
Ekli Çalışmamda Listeboxtan Seçtiğim kişileri Kaydet butonana bastığımda makbuz sayfasına kayıt yapıyorum ve makbuzunu yazdırıyorum buraya kadar tamam
Sorunum kayıt yaptığımda Seçtiğim kişinin Sayfasında borç kısmına tarih ve borç miktarınıda kaydetsin istiyorum Örnek41 Nolu Sayfa da
böylelikle hem makbuzları yazdırıp hemde dükkan sahiplerini aynı anda borçlandırmış olacağım ilgilenen arkadaşlara teşekkürler

 

[asi_kral]

Merhaba Arkadaşlar
Ekli Çalışmamda Listeboxtan Seçtiğim kişileri Kaydet butonana bastığımda makbuz sayfasına kayıt yapıyorum ve makbuzunu yazdırıyorum buraya kadar tamam
Sorunum kayıt yaptığımda Seçtiğim kişinin Sayfasında borç kısmına tarih ve borç miktarınıda kaydetsin istiyorum Örnek41 Nolu Sayfa da
böylelikle hem makbuzları yazdırıp hemde dükkan sahiplerini aynı anda borçlandırmış olacağım ilgilenen arkadaşlara teşekkürler

Merhaba
Userform'daki Commandbutton1 kodunu bununla değiştirip dener misiniz_?

Private Sub CommandButton1_Click()
'Konu       :   Listboxtan Sçtiğimiz Sayfaya Kayıt ve Makbuz
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
'Not        :   Koda İlave Yapılmıştır.
On Error Resume Next
Sheets("MAKBUZ").Range("E5") = TextBox1.Text
Sheets("MAKBUZ").Range("O14") = TextBox2.Text
Sheets("MAKBUZ").Range("N9") = TextBox3.Text * 1
Sheets("MAKBUZ").Range("Y5") = TextBox4.Text
Sheets("MAKBUZ").Range("Y4") = TextBox5.Text
a = Sheets(ListBox1.Text).Range("A" & Rows.Count).End(xlUp).Row
Sheets(ListBox1.Text).Range("A" & a + 1) = CDate(TextBox5.Text)
Sheets(ListBox1.Text).Range("C" & a + 1) = CDbl(TextBox3.Value)
If TextBox3 = Empty Then MsgBox "Listeden Firma Seçmediniz Galiba Ama Neden!!!!!", vbInformation: Exit Sub
MsgBox "İşlem Tamam." & vbLf & _
"Yeni Makbuz İçin Makbuzu Yazdırıp Temizleyin"
 End Sub

Dosyanız Ekte.

 

[mustafakoker]

Sayın Asi Kıral Yardımlarınız için teşekkür ederim Saolun varolun

 

[asi_kral]

Sayın Asi Kıral Yardımlarınız için teşekkür ederim Saolun varolun

Kolay Gelsin.