Sadece 0 Olanları Silme

[xtrkax]

Merhaba arkadaşlar, ilgili sayfanın tamamını seçip sadece tek rakam olan "0" ları nasıl silebilirim ctrf - f değiştir yöntemi ile.

Normalde 0 yazıp değiştirme uygularsa 100 veya 50 gibi 0 içeren rakamlar varsa onların yanında yer alan 0'ları da siliyor. Ben sadece tek rakam "0" olanları silmek istiyorum

 

[levo26]

Merhaba; Aşağıdaki kodları deneyiniz..

Sub sıfırlarısil()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("G6:H65536") 'hücre aralığını düzeltiniz
If c.Value = 0 Then
c.ClearContents
End If
Next c
Application.ScreenUpdating = True
End Sub

 

[Ömer BARAN]

Merhaba.

CTRL+H tuşlarına bastığınızda açılan küçük ekranın sağ tarafındaki SEÇENEKLER düğmesine tıkladığınızda, pencere biraz genişler.

Ortaya çıkan yeni kısımda "TÜM HÜCRE İÇERİĞİNİ EŞLEŞTİR" şeklinde bir seçenek var.

-- Bu seçenek işaretli değilken: ARANAN kısmına yazılan değer hücre içlerindeki tüm eşleşenleri değiştirir
(aşağıdaki kod parçasında xlWhole kısmını xlPart olarak kullanma hali),

-- Bu seçenek işaretli iken: ARANAN kısmına yazılan değer ile hücre içeriği TAM OLARAK eşleştiğinde değiştirme gerçekleşir.

Aşağıdaki örnekte, ARANAN : 0 ;
-- xlWhole yazılıysa (TÜM HÜCRE İÇERİĞİNİ EŞLEŞTİR seçeneği işaretliyse), 100 yazılı hücredeki 0'lar silinmez,
-- xlPart yazılıysa (TÜM HÜCRE İÇERİĞİNİ EŞLEŞTİR seçeneği işaretli değilse), 100 yazılı hücredeki 0'lar silinir.

[FONT="Arial Narrow"]Sub SIFIRLARI_SİL()
    Cells.Replace What:="[B][COLOR="red"]0[/COLOR][/B]", Replacement:="", LookAt:=[B][COLOR="Blue"]xlWhole[/COLOR][/B], SearchOrder :=xlByRows
End Sub[/FONT]