Find fonksiyonu hata

[Fenomen]

Herkese İyi çalışmalar dilerim.

ekteki dosyamda kullandığım find makrosu aramada hata yapıyor

kod şu şekilde;

Private Sub ipcns1_Change()
ipfyt1.Value = 0
ipfytd1.Value = 0

If ipno1 <> "" Then
s = Sheets("veriip").Cells(65000, 1).End(xlUp).Row
t = Sheets("veriip").Cells(2, 256).End(xlToLeft).Column
Set ara = Sheets("veriip").Range(Sheets("veriip").Cells(2, 1), Sheets("veriip").Cells(s, 1)).Find(ipno1)
Set tar = Sheets("veriip").Range(Sheets("veriip").Cells(2, 1), Sheets("veriip").Cells(2, t)).Find(ipcns1)
x = ara.Row
y = tar.Column


If Sheets("veriip").Cells(1, y) = "TL" And Sheets("veriip").Cells(x, y) <> 0 Then
ipfyt1.Value = Sheets("veriip").Cells(x, y)
ipfyt1.Value = Format(Sheets("veriip").Cells(x, y).Value, "#,##0.00")
ipfytd1.Value = Sheets("veriip").Cells(x, y) / Sheets("verikur").Cells(1, 2)
ipfytd1.Value = Format(Sheets("veriip").Cells(x, y) / Sheets("verikur").Cells(1, 2), "#,##0.00")
End If
If Sheets("veriip").Cells(1, y) = "$" And Sheets("veriip").Cells(x, y) <> 0 Then
ipfytd1.Value = Sheets("veriip").Cells(x, y)
ipfytd1.Value = Format(Sheets("veriip").Cells(x, y).Value, "#,##0.00")
ipfyt1.Value = Sheets("veriip").Cells(x, y) * Sheets("verikur").Cells(1, 2)
ipfyt1.Value = Format(Sheets("veriip").Cells(x, y) * Sheets("verikur").Cells(1, 2), "#,##0.00")
End If
End If
End Sub



hatayı şu şekilde farkettim;

aradığım değer flamlı ring viskon olduğunda sonuç geliyor ancak sadece ring viskon olduğunda sonuç flamlı ring viskonun sonucu geliyor.

Yapmak istediğim şey:

ilk comboboxtaki değer ve ikinci comboboxtaki değerin kesiştiği hücredeki değeri tektboxa getirmek

acaba yanlış fonksiyonumu kullanıyorum yoksa fonksiyonu yanlış mı kullanıyorum yardım ederseniz. sevinirim
şimdiden teşekkür ederim

 

[fedeal]

Set ara = Sheets("veriip").Range(Sheets("veriip").Cells(2, 1), Sheets("veriip").Cells(s, 1)).Find(ipno1[COLOR="red"], , xlValues, xlWhole[/COLOR])
Set tar = Sheets("veriip").Range(Sheets("veriip").Cells(2, 1), Sheets("veriip").Cells(2, t)).Find(ipcns1[COLOR="Red"], , xlValues, xlWhole[/COLOR])

Merhaba, kırmızı kodları ekleyerek deneyin

 

[Fenomen]

Sn. fedeal

teşekkür ederim düzeldi elinize sağlık

iyi çalışmalar dilerim

 

[fedeal]

iyi çalışmalar.