değeri sıfır olan veya boş olan hücreyi silme makrosu

[torik52]

sn necdet beyin boş satır silme kodudur bu kodu sıfır olan hucreyi silme şekline getirebilirmiyiz saygılar
Sub sil()
Dim i As Long
Dim SonSat As Long
Dim adet As Integer
SonSat = Selection.SpecialCells(xlCellTypeLastCell).Row 'Son hücrenin satır numarası
Application.ScreenUpdating = False
For i = SonSat To 2 Step -1
If Application.WorksheetFunction.CountA(Range("A" & i & ":E" & i)) = 0 Then Range("A" & i & ":E" & i).Delete Shift:=xlUp
Next i
Application.ScreenUpdating = True
MsgBox "Silinecek Hücreleri Sildim...."
End Sub

 

[numan şamil]

Yanlış anlamışım

 

[torik52]

SN ŞAMİL emeğinize teşekkür ediyorum sağolun.
bu kodu ilgili sayfanın koduna mı kopyalasam daha iyi olur yoksa normal modülemi saygılar.
vaya bu kodu diğer bir kodun içine yazarsam daha doğrusu diğer kodun end sub dan önceki aralığa yazmak istersem araya ne yazmalıyım biraz karışık oldu ancak kusura kalmayın altın uyeliğim yok dosya ekleyemiyorum.çok teşekkür ederim bu işler kafa yoruyor biliyorum abcak bilgileriniz saygı duyuyorum.

 

[numan şamil]

Merhaba
Kırmızı boyalı kodlar yalnız "A" sütununda "0" (sıfır) ları siler
1 nolu mesajınız daki kodlara eklenmiştir

Sub sil()
Dim i As Long
Dim SonSat As Long
Dim adet As Integer
SonSat = Selection.SpecialCells(xlCellTypeLastCell).Row 'Son hücrenin satır numarası

Application.ScreenUpdating = False
For i = SonSat To 2 Step -1
[COLOR="Red"]If Range("A" & i).Value = 0 Then
Range("A" & i).Value = ""
End If[/COLOR]
If Application.WorksheetFunction.CountA(Range("A" & i & ":E" & i)) = 0 Then Range("A" & i & ":E" & i).Delete Shift:=xlUp
Next i

Application.ScreenUpdating = True
MsgBox "Silinecek Hücreleri Sildim...."
End Sub