makro ya ekleme veyahut düzenleme;

[abbasonline]

Sub sorgula()
Set s1 = Sheets("liste")
Set s2 = Sheets("rapor")
basla = Time
s2.[a2:e65536].ClearContents
For a = 2 To [b65536].End(3).Row
If s1.[g2] <> "" And s1.Cells(a, "b") <> s1.[g2] Then GoTo 20
If s1.[h2] <> "" And s1.Cells(a, "c") <> s1.[h2] Then GoTo 20
If s1.[I2] <> "" And s1.Cells(a, "d") < s1.[I2] Then GoTo 20
If s1.[j2] <> "" And s1.Cells(a, "d") > s1.[j2] Then GoTo 20
If s1.[k2] <> "" And s1.Cells(a, "e") < s1.[k2] Then GoTo 20
c = c + 1
s2.Range("a" & c + 1 & ":e" & c + 1) = s1.Range("a" & a & ":e" & a).Value
20 Next
bitis = Time
MsgBox c & " adet veri bulunmuştur." & Chr(13) & Chr(13) & "Sorgulama Süresi: " & Format(bitis - basla, "hh:mm:ss")
End Sub



bu makroda kırmızı olan yerde nesıl bir düzenleme yaparak sadece hücrede olanı arattırabiliriz, örneğin ben sıfırı (0) aramak istiyorum ancak (0) sıfırlı tüm rakamları buluyor örneğin 100,200,220 vb. gibi