İki koşullu Find Komutu

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Aşağıdaki kod ile "A" sütunuda bulunan ve comboboxdan seçilmiş olan değeri aratabiliyoruz.Fakat yapılan arama iki koşullu ise yani hem "A" sütununda ve hem "B" sütununda yer alan veriye göre arama yapılacaksa kod nasıl yazılabilir.Örneğin "A" sütununda 1- 10 arası,"B" sutununda ise a,b,c,d,e değerleri var.Biz 4-C'ye denk gelen değeri FİND komutu ile nasıl aratacağız.Teşekkür ederim.


Set c = S1.[A:A].Find(ComboBox1, , xlValues, xlWhole)
 
Katılım
6 Temmuz 2015
Mesajlar
925
Excel Vers. ve Dili
2003
Merhabalar, find komutu ile değil ama, kullanmak isterseniz şöyle deneyebilirsiniz.

For a = 1 To [A1048576].End(xlUp).Row
If Cells(a, 1) = Int(ComboBox1) And Cells(a, 2) = "c" Then
Cells(a, 1).Select
Exit For
End If
Next a

Üstteki kodda "c" ifadesi kod içinde giriliyor. Siz bunu dışarıdan girmek için;
ya bir combobox daha yapıp oradan seçebilirsiniz. Veya inputbox ile girilmesini sağlayabilirsiniz.
 

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
2.satır hata verdi.Sanırım Combobox'ın yazılışını kabul etmiyor.onun dışında kod (a,1) de yazlı olan değere göre mi arama yapıyor
 
Katılım
6 Temmuz 2015
Mesajlar
925
Excel Vers. ve Dili
2003
Rakam değilde metinsel değer var ise hata verecektir. Ona göre düzenleme yapınız. Veya dosyanızın harici bir upload sitesinden linkini verin bakalım.
 

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Sayfada SATIŞ yazan textbox'a Satış tutarını getirmeye çalışıyorum.Yani comboboxdan bulunan isme göre "J" sütununda bulunan ve SATIŞ yazan değer Textboxda gösterilmeye çalışılıyor.Diğer textboxlarda sorun yok düşeyara çalışıyor.
 
Katılım
6 Temmuz 2015
Mesajlar
925
Excel Vers. ve Dili
2003
İstediğiniz böyle birşey midir ?


İsim seçildikten sonra, satış veya taksit seçilirse, (Eşleşen değer olursa) H sütunundaki değer textbox'a gelecektir.
 

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Evet aradığım böyle bir uygulamaydı katkınız için teşekkür ederim.
 
Üst