Sayfa Boşsa Makro Çalıştırma!

[mavisachal]

Arkadaşlar Aradim ama Databasede yok sanirim daha once geçmişte sorulmamış olsa gerek.

Sayfa adina bakmaksizin sayfa boşsa makro çalışmasın istiyorum.

Bunun için if activesheet="" then şeklinde kullandim ama olmadi. Sanirim başka bir kod yazmam gerekiyor.

Hangi kodu yazmam gerekiyor? Yardımcı olabilir misiniz?

Teşekkürler.

 

[ASMET67]

Selam
Bu şekilde bir kod işinizi görürmü?

Dim say As Long
say = Cells(65536, 1).End(xlUp).Row
If say = 0 Then End

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub TEST()
    If WorksheetFunction.CountBlank(ActiveSheet.Cells) = 16777216 Then
    MsgBox "MAKRO ÇALIŞMAZ !", vbCritical
    Else
    MsgBox "MAKRO ÇALIŞIR.", vbInformation
    End If
End Sub

 

[Necdet]

Merhaba,

Benimkisi bir beyin jimnastiği, bir deneyin isterseniz.

Denemenin başarılı olup olmadığını anlamak için [A1:E10] arasında kontrol yaptım.

Aşağıdaki kodları Workbook'un kod sayfasına ekleyip deneyebilirsiniz.

Sub Workbook_SheetActivate(ByVal Sh As Object)
i = Application.WorksheetFunction.CountA([A1:E10])
If i > 0 Then MsgBox "Merhaba...."
End Sub

Baya geç kalmışım

 

[mavisachal]

Arkadaşlar çok teşekkürler.