Eğer Hücre Boş ise Yan hücre silinsin

[hadromer]

Merhaba,
Fotoğraftaki gibi bir hücre boş (sıfır) ise yanındaki hücrenin silinmesini veya onunda sıfırlanmasını istiyorum. Bir dosya içerisinde 16 adet sayfam var. Her sayfada sütunlar sabit. AE-AF, AI-AJ, AM-AN sütunlarına uygulanacak sadece. Yardımlarınız için teşekkür ederim.

 

[cicosz]

Merhaba,

İşinizi görür mü?

 

[hadromer]

Merhaba, ilginiz için teşekkür ederim fakat ben bu çalışmayı günlük tekrarlayan birisiyim. bir excel dosyasında 16 sayfa mevcut ve her sayfaya aynı işlemi yapıyorum. O yüzden bir makro kodu oluşturulabilir mi acaba diye buraya yazdım. Burdaki dosya örnek dosyadır, ana çalışma dosyam değildir

 

[Ömer]

Merhaba

Alternatif.
Eğer işleme girmeyecek sayfa varsa, with satırından sonra if ile bu sayfa adları hariç demeniz gerekir.

Sub duzenle()
    
    Dim i As Integer, alan, j As Byte, c As Range, Adr As String
    
    alan = Array("AE", "AI", "AM") 'aranan sütunlar
    
    Application.ScreenUpdating = False
    
    For i = 1 To Worksheets.Count
        With Sheets(i)
            For j = 0 To UBound(alan)
                Set c = .Columns(alan(j)).Find(0, , xlValues, xlWhole)
                If Not c Is Nothing Then
                    Adr = c.Address
                    Do
                        .Cells(c.Row, Columns(alan(j)).Column + 1) = 0
                        Set c = .Columns(alan(j)).FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> Adr
                End If
            Next j
        End With
    Next i
    
End Sub

 

[hadromer]

Merhaba

Alternatif.
Eğer işleme girmeyecek sayfa varsa, with satırından sonra if ile bu sayfa adları hariç demeniz gerekir.

Sub duzenle()
   
    Dim i As Integer, alan, j As Byte, c As Range, Adr As String
   
    alan = Array("AE", "AI", "AM") 'aranan sütunlar
   
    Application.ScreenUpdating = False
   
    For i = 1 To Worksheets.Count
        With Sheets(i)
            For j = 0 To UBound(alan)
                Set c = .Columns(alan(j)).Find(0, , xlValues, xlWhole)
                If Not c Is Nothing Then
                    Adr = c.Address
                    Do
                        .Cells(c.Row, Columns(alan(j)).Column + 1) = 0
                        Set c = .Columns(alan(j)).FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> Adr
                End If
            Next j
        End With
    Next i
   
End Sub

çok teşekkür ederim