Sitemize Hoşgeldiniz

Türkiye'nin en geniş özeliklere sahip forumu olan ExcelDestek.Com üzerinde soru sorabilmek, daha önceki sorulan sorulara, açılan konulara cevap yazabilmek, puan kazanabilmek, kazandığınız puanlar ile dosya indirebilmek ve çok daha fazla özellikten yararlanabilmek için sitemize üye olunuz.
Hemen Üye Ol ya da Giriş Yap

Sorun Cevaplayalım

Excel'e dair sorularınızı sorun, cevaplayalım.

Excel Eğitimi Almak İstiyorum

Site yöneticilerimizden online Excel eğitimi almak ister misiniz?

Destek Ekibimiz Sizlerle

Ücretli destek ve özel hizmet talep edebilirsiniz.

Genel VBA  Veri çekme

YAMAHATO

Yeni Üye
Kullanıcı
Katılım
20 Haz 2020
Mesajlar
16
Excel Versiyonu, Dili
excel 2010 tr

Reputation:

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

Yeni Üye
Kullanıcı
Katılım
20 Haz 2020
Mesajlar
16
Excel Versiyonu, Dili
excel 2010 tr

Reputation:

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)
 

MESKO

Yeni Üye
Kullanıcı
Katılım
2 Eki 2018
Mesajlar
72
Excel Versiyonu, Dili
Excel 2003 TR

Reputation:

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)
Dosya ekleyiniz lütfen. Bu şekilde yardım almanız zor gibi.
 

leguminosea

Destek Takımı
Destek Ekibi
Kullanıcı
Katılım
8 Şub 2020
Mesajlar
120
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Aşağıdaki gibi deneyiniz
Ama önce stok sayfasındaki formüllerdeki hataları düzeltin.
Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
 

YAMAHATO

Yeni Üye
Kullanıcı
Katılım
20 Haz 2020
Mesajlar
16
Excel Versiyonu, Dili
excel 2010 tr

Reputation:

Aşağıdaki gibi deneyiniz
Ama önce stok sayfasındaki formüllerdeki hataları düzeltin.
Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
Merhaba,
Öncelikle ilginize ve alakanıza teşekkür ederim.
1-. düzeltmeyi yaptım ama gene hata veriyor.
2- "Ama önce stok sayfasındaki formüllerdeki hataları düzeltin" demişsiniz nasıl bir hata var acaba.?
 

leguminosea

Destek Takımı
Destek Ekibi
Kullanıcı
Katılım
8 Şub 2020
Mesajlar
120
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Bende hata kodu görünüyor. Başka çalışma kitaplarına başvuru varsa belki ondandır.
 

leguminosea

Destek Takımı
Destek Ekibi
Kullanıcı
Katılım
8 Şub 2020
Mesajlar
120
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Stok sayfası bu şekilde görünüyor.
Hatalı yerlere elle rastgele veri yazdığımda yani #BASV! vb. hatalar olmadığında
5 nolu mesajda verdiğim kod çalışmaktadır.

1593154395582.png

1593156415427.png
 
Üst