İki koşullu Find Komutu

[seddur]

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)

 

[Saban Sertkaya]

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]

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

 

[Saban Sertkaya]

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]

Kitap1.xlsm dosyasını indir - download

Kitap1.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

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.

 

[Saban Sertkaya]

İstediğiniz böyle birşey midir ?

Kitap1.rar dosyasını indir - download

Kitap1.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

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

 

[seddur]

Evet aradığım böyle bir uygulamaydı katkınız için teşekkür ederim.

 

[Saban Sertkaya]

Rica ederim, kolay gelsin.