İki Koşullu If Then

[seddur]

Arkadaşlar iki koşullu If Then makrosu yazmaya çalışıyorum,beceremedim,yardımlarınızı bekliyorum.Aşağıda çalışmayan yaptığım kodu paylaşıyorum.

If Sheets("Liste").Cells(i, "d").Value = Sheets("Anasayfa").Range("A1") And Sheets("Liste").Cells(i, "a").Value = ComboBox2.Value Then

 

[Korhan Ayhan]

Ne gibi bir sorun oluşuyor?

 

[fehdur]

Aşağıdaki kod bloğu ile kullanıyorum satır hata veriyor. 3 numaralı satırı If Sheets("Liste").Cells(i, "d").Value = Sheets("Anasayfa").Range("A1"
şeklinde yazarsam çalışıyor.Ama iki koşullu olarak yazarsam kabul etmiyor.

ListItems.Clear
Set S1 = Sheets("Liste")
For i = 2 To S1.Cells(Rows.Count, "c").End(xlUp).Row
If Sheets("Liste").Cells(i, "d").Value = Sheets("Anasayfa").Range("A1") And Sheets("Liste").Cells(i, "a").Value = ComboBox2.Value Then
Set List = .ListItems.Add(, , S1.Cells(i, "a").Text)
List.ListSubItems.Add , , S1.Cells(i, "b").Text
List.ListSubItems.Add , , S1.Cells(i, "c").Text
List.ListSubItems.Add , , S1.Cells(i, "d").Text
List.ListSubItems.Add , , S1.Cells(i, "e").Text
List.ListSubItems.Add , , S1.Cells(i, "f").Text
List.ListSubItems.Add , , S1.Cells(i, "g").Text
List.ListSubItems.Add , , S1.Cells(i, "h").Text

End If
Next
End With

 

[Korhan Ayhan]

Örnek dosya paylaşır mısınız?

 

[ÖmerFaruk]

Kod hata verdiğinde ilgili satırdaki değerleri kontrol edin. Mouse ile üzerine gelince değerleri görmeniz gerek.
Eğer göremiyorsanız
For i = 2 To S1.Cells(Rows.Count, "c").End(xlUp).Row satırından hemen sonra
Bak1= Sheets("Liste").Cells(i, "d").Value
Bak2=Sheets("Anasayfa").Range("A1")
Bak3=Sheets("Liste").Cells(i, "a").Value
Bak4=ComboBox2.Value

satırlarını ilave ederek bu yeni değişkenlerin durumuna bakın.

 

[fehdur]

Korhan Bey dosyayı ekliyorum.Dosya açıldığında önce Menü Aç butonu tıklanacak.Yapılmak istenen Comboboxdan masa no seçilince Userform1 açılarak Liste sayfasından aldığı verilerin dökümünü verecek.Üç koşullu arama yaptırmak istiyorum.Buna göre A sütununda masa no aratılacak(combobox2) daha sonra D sütununda seçili tarihi arayacak(Textbox1) ve sonunda üçüncü koşul olarak G sütununun boş olması istenecek.Bu üç koşulu sağladığında açık olan masanın dökümünü masa1 adlı Listviewde gösterecek.Başka çözüm bulamadım.Kodu şimdilik Userform1 deki butona yazdım.ama combobox2'nin click olayına yazmayı düşünüyorum.Checkbox'lar ile masa çağırmada olabilir ama kodu yazılabilirmi bilmiyorum.Önce öyle düşünmüştüm ama kod bulamayınca bu sisteme döndüm.

yeni.internet.xlsm dosyasını indir - download

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

s7.dosya.tc