VERİ ÇEKME

[yamahato]

Merhaba
Kısaca söyle yazayım textBox 1 de bir arama kodum VAR. Bu kod sayesinde TextBox1 girdiğim değer ListBox 1 de çıkıyor.
Aşağıda ki kod ile de ListBox1 de çıkan koda tıkladığımda ise TextBox2 de TIKLANAN o kodla ilgili SAHİBİNDEN sayfasında ki B sütününda ki bilgi geliyor.

Private Sub ListBox1_Change()

If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")

Şimdi sunu beceremedim.
TextBox1 değer girdiğimde ListBox 1 de çıkan değere tıklayınca tıkladığım kodu "STOK" sayfasında arasın bulsun ve o kodun" I" SÜTÜNÜNDA Kİ stok miktarını TextBox3 GETİRSİN.
BEN SÖYLE YAPTIM AMA HATA VERİYOR
Private Sub ListBox1_Change()

If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")

Set s2 = Sheets("STOK")
son = s2.Cells(Rows.Count, "B").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s2.Range("B1:B" & son), 0) (BURASI SARI YANIYOR)
TextBox3.Text = s2.Cells(sat, "I")
End Sub

 

[yamahato]

Çözdüm s2 leri s1 yapıca düzeldi.

 

[yamahato]

Çözdüm s2 leri s1 yapıca düzeldi.

Aşağıda ki gibi s2 leri s1 yapıca önce sorun çıkmadı ama

If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")

Set s1 = Sheets("STOK")
son = s1.Cells(Rows.Count, "B").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("B1:B" & son), 0)
TextBox3.Text = s1.Cells(sat, "I")
End Sub

AMA ŞİMDİ GENE
sat = WorksheetFunction.Match(ListBox1.Value, s2.Range("B1:B" & son), 0) (BURASI SARI YANIYOR)

 

[yamahato]

örnek dosya ekledim.

İndir STOK

Dosyayı indir STOK

dosya.co

 

[yamahato]

yardımcı olabilir misiniz lütfen?

 

[YUSUF44]

Stok sayfasındaki Volhast kodlarınız B sütununda olmasına rağmen siz aramayı A sütununda yapıyorsunuz.

Set s1 = Sheets("STOK")
son = s1.Cells(Rows.Count, "B").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox3.Text = s1.Cells(sat, "I")


YErine

Set s1 = Sheets("STOK")
son = s1.Cells(Rows.Count, "B").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("B1:B" & son), 0)
TextBox3.Text = s1.Cells(sat, "I")

Olmalı.

Bu durumda yine hata veriyor ama hatanın nedeni muhtemelen Stok sayfasındaki #BAŞV hataları. Hata yerine değerler olduğunda hata vermeyecektir.