Soru birçok kritere göre ara

[sirkülasyon]

Ustam
ListBox1 Yüklenici sayfasının E5:E1000 sütununa bakacak
ListBox2 Yüklenici sayfasının J5: J1000 sütununa bakacak
ListBox3 Yüklenici sayfasının C5:C1000 sütununa bakacak
ListBox4 Yüklenici sayfasının D5: D1000 sütununa bakacak
eşitlik sağlanırsa eğer
Textbox1'e Yüklenici sayfasının H5:H1000 Aralığında ki ilgili hücrenin değerini getirecek
eşitlik sağlanmazsa eğer
Textbox1'e 0,00 yazacak
bir kod için yardımınıza ihtiyacım var. Mümkünse yardımcı olabilirseniz memnun olurum.

 

[ÖmerFaruk]

Sub Soru()
If ListBox1.ListIndex = -1 Or ListBox2.ListIndex = -1 Or _
    ListBox3.ListIndex = -1 Or ListBox4.ListIndex = -1 Then Exit Sub
    
    Set Sh1 = Sheets("Yüklenici")
    Say1 = WorksheetFunction.Match(ListBox1.Value, Sh1.Range("E5:E100"), 0)
    say2 = WorksheetFunction.Match(ListBox2.Value, Sh1.Range("J5:J100"), 0)
    say3 = WorksheetFunction.Match(ListBox3.Value, Sh1.Range("C5:C100"), 0)
    Say4 = WorksheetFunction.Match(ListBox4.Value, Sh1.Range("D5:D100"), 0)

    If Say1 = say2 And say2 = say3 And say3 = say Then
        TextBox1 = Range("H5").Offset(Say1 - 1)
    Else
        TextBox1 = 0#
    End If
End Sub

 

[sirkülasyon]

Allah Razı Olsun.
Eline, emeğine, beynine binlerce teşekkür
Sağ ol

 

[sirkülasyon]

ÖmerFaruk Ustam
Textbox1 kısmına hep "0" geliyor. Rica etsem müsait bir zamanda bakabilir misiniz?

 

[ÖmerFaruk]

If Say1 = say2 And say2 = say3 And say3 = say4 Then

 

[sirkülasyon]

Hakkını helal edesin ustam. Kod düzeldi. Teşekkür ederim