Hücrelerdeki sıfırları yok etmek

[ASLAN7410]

Merhaba hayırlı geceler.

Aşağıdaki kod ile sıfırları yok ediyorum, ancak sayılar arasında bulunan sıfırları da yok ediyor.

Benim yapmak istediğim J4:AH500 bu aralıktaki hücrelerde sadece sıfır olanları kod ile yok etmek istiyorum.
Sıfırların görünmemesini istemiyorum, sıfırların kaldırılmasını istiyorum.

Sub SıfırlarıYokEt()
    Range("J4:AH500").Replace What:="0", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows
    Range("J4").Select
End Sub

Benim istediğim gibi bir çalışma bulamadım, yardımcı olur musunuz?

 

[işsiz123]

Merhabalar Hayırlı geceler
Kodları aşağıdaki gibi değiştiriniz.

Sub SıfırlarıYokEt()

    Range("J4:AH500").Replace What:="0", Replacement:="", LookAt:=[B][COLOR="Red"]xlWhole[/COLOR][/B], _
        SearchOrder:=xlByRows
    Range("J4").Select
End Sub

 

[ASLAN7410]

Sayın işsiz123 ilginiz için çok teşekkür ederim, tam istediğim sonucu aldım, hayırlı geceler, hayırlı Ramazanlar diliyorum.

 

[işsiz123]

Rica ederim. Hayırlı Ramazanlar.