Sayfalardaki Sıfır Değerleri Silme

[ANTALYA 01]

Merhabalar
Ekteki çalışmada A sayfasından I sayfasına kadar A sütunundaki O Sıfır Değerlerin hepsini silecek makroya ihtiyacım bulunmaktadır.tşk.

 

[Orion1]

Dosyanız ektedir.

Sub sifir_sil()
Dim dizi(), i As Long, k As Byte
dizi = Array("", "A", "B", "C", "D", "E", "F", "G", "H", "I")
Application.ScreenUpdating = False
For k = 1 To 9
    For i = Sheets(dizi(k)).Cells(65536, "A").End(xlUp).Row To 2 Step -1
        If Sheets(dizi(k)).Cells(i, "A").Value <> "" And _
        Sheets(dizi(k)).Cells(i, "A").Value = 0 Then
            Sheets(dizi(k)).Range("A" & i & ":B" & i).EntireRow.Delete (xlUp)
        End If
    Next i
Next k
Application.ScreenUpdating = True
MsgBox "Sıfırlar Silindi." & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[Selçuk1]

Sn. Antalya 01

dosyanız ektedir. "Sayfa1" sayfasında dosyanızdaki sayfaları sıraladım. ve döngüyü oradaki sayfa isimleri üzerine kurdum. yalnızca değeri "0" olan hücreleri silmeyi istiyoruz şeklinde anladığım için o şekilde yaptım. yani müşteri adı sütununda silme işlemi yapılmıyor. eğer isterseniz kodda gerekli düzenlemeler yapılabilir.

iyi geceler..

 

[ANTALYA 01]

H

Tam istediğim gibi teşekkürler

 

[Orion1]

Tam istediğim gibi teşekkürler

Rica ederim.
İyi çalışmalar.