cari takip dosyam için yardım

[ckkaraca]

Ekli dosyayı görüntüle 77060hazırlamaya çalıştığım cari hesaplar isimli dosyamda düşeyara ile ilgili yardımlarınızı talep ediyorum

 

[meslan]

Merhaba.

Dim kontrol As Boolean
Dim s1 As Worksheet
Private Sub ComboBox1_Change()
If kontrol = True Then Exit Sub
kontrol = True
Set s1 = Sheets("MÜŞTERİLER")
Set duseyara = s1.[a:a].Find(ComboBox1.Value, lookat:=xlWhole)
If Not duseyara Is Nothing Then
ComboBox2.Value = s1.Cells(duseyara.Row, 2)
TextBox1.Value = s1.Cells(duseyara.Row, 3)
TextBox2.Value = s1.Cells(duseyara.Row, 4)
TextBox3.Value = s1.Cells(duseyara.Row, 5)
TextBox4.Value = s1.Cells(duseyara.Row, 6)
TextBox5.Value = s1.Cells(duseyara.Row, 8)
End If
Set s1 = Nothing
kontrol = False
End Sub
Private Sub ComboBox2_Change()
If kontrol = True Then Exit Sub
kontrol = True
Set s1 = Sheets("MÜŞTERİLER")
Set duseyara = s1.[B:B].Find(ComboBox2.Value, lookat:=xlWhole)
If Not duseyara Is Nothing Then
ComboBox1.Value = s1.Cells(duseyara.Row, 1)
TextBox1.Value = s1.Cells(duseyara.Row, 3)
TextBox2.Value = s1.Cells(duseyara.Row, 4)
TextBox3.Value = s1.Cells(duseyara.Row, 5)
TextBox4.Value = s1.Cells(duseyara.Row, 6)
TextBox5.Value = s1.Cells(duseyara.Row, 8)
End If
Set s1 = Nothing
kontrol = False
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "MÜŞTERİLER!A2:A" & Sheets("MÜŞTERİLER").[A65536].End(3).Row
ComboBox2.RowSource = "MÜŞTERİLER!B2:B" & Sheets("MÜŞTERİLER").[B65536].End(3).Row
End Sub

Kolay gelsin.

 

[ckkaraca]

örnek dosyayı eklermisiniz mehmet hocam yardımlarınız için gerçekten çok teşekkür ederim

 

[meslan]

örnek dosyayı eklermisiniz mehmet hocam yardımlarınız için gerçekten çok teşekkür ederim

Dosyanızı ekledim.

 

[ckkaraca]

tam olarak yapmak istediğim userformda ana sayfa da müşteri ismini seçip satış formundan satılacak ürünleri seçip , koli sayısını girip fiyatlandırmayı a-01 müşterisi için fiyat sayfasındaki f sütunundan aratmak ve sonrasında yazdır butonunu tıkladığımda yazdırma sayfasında seçilen malların ,fiyatların ve müşteri bilgilerinin ilgili hücrelere yazılmasını sağlamak.

 

[ckkaraca]

yukarıda satılacak ürünler diye bahsettiğim fiyat sayfasındaki b sütunudur

 

[meslan]

2. mesajda dosyayı yeniledim. Kalan kısma yarın devam ederiz.

 

[ckkaraca]

ok tesekkurler yarın akşam görüşürüz