İstenilen hücre boşsa o sayfayı sil

[dgdizayn]

Merhabalar,
Elimde makro kodlar var. Bu kodlar Sheet1, Sheet2, Sheet3 şeklinde sayfalar oluşturuyor. Bu sayfalar içerisinde A3 hücresi içerisi boşsa olduğu sayfa silinsin istiyorum. Bu mümkün müdür acaba. Teşekkürler.

 

[Greenblacksea53]

Sub a3Bossasil()
Dim sil As Long
sil = ActiveWorkbook.Sheets.Count
ReDim benimarray(1 To sil)
For I = 1 To sil
    benimarray(I) = ActiveWorkbook.Sheets(I).Name
    Next

For I = 1 To sil
If ActiveWorkbook.Sheets(benimarray(I)).Cells(3, "A").Value = "" Then
ActiveWorkbook.Sheets(benimarray(I)).Select
Application.DisplayAlerts = False
ActiveWorkbook.Sheets(benimarray(I)).Delete
End If
Next
End Sub
Kod işiniiz görecektir

 

[Muzaffer Ali]

Merhaba.
Alternatif.

Sub Test()
    Dim syf As Worksheet
    Application.DisplayAlerts = False
    For Each syf In ThisWorkbook.Worksheets
        If syf.Range("A3") = "" Then syf.Delete
    Next
    Application.DisplayAlerts = True
End Sub

 

[dgdizayn]

Greenblacksea53 ve Muzaffer Ali Bey çok teşekkür ederim ilginize.

Muzaffer Bey in kod kısa olmasından dolayı ilk onu denedim ve çalışıyor. Emeğinize sağlık.