sütunda ilk negatif sayıyı bulmak

[acar6783]

Sub negatif_ilk_satr()
deg = "<0"
Set neg = Range("E2:E50").Find(deg, , , xlWhole)
[a19] = neg.Row
End Sub

Bu kodla neden ilk negatif sayı içeren satırı bulamıyorum?
Döngü kurmadan bulmam gerekiyor

 

[asi_kral]

Sub negatif_ilk_satr()
deg = "<0"
Set neg = Range("E2:E50").Find(deg, , , xlWhole)
[a19] = neg.Row
End Sub

Bu kodla neden ilk negatif sayı içeren satırı bulamıyorum?
Döngü kurmadan bulmam gerekiyor

Merhaba
Kodu bununla değiştirip dener misiniz ?

Sub negatif_ilk_satr()
deg = "-"
Set neg = Range("E2:E50").Find(deg, , xlValues, xlPart)
[a19] = neg.Row
End Sub

 

[acar6783]

Çok mantıklı

Teşekkürler...

 

[asi_kral]

Çok mantıklı

Teşekkürler...

Kolay Gelsin.