İçerik Kontrolü

[mesudiye_052]

Selamlar

Aşağıdaki kodda sadece isempty'de sonuça ulaşamıyorum
yani boş hücreleri sayı olarak algılıyor
Boş hücreleri msgbox'da Boş ibaresi nasıl getirebiliriz.

Sub İcerik_Kontrol()

Select Case True
Case Application.IsText(ActiveCell)
MsgBox "Yazı"
Case IsNumeric(ActiveCell)
MsgBox "Sayı"
Case IsDate(ActiveCell)
MsgBox "Tarih"
Case IsEmpty(ActiveCell)
MsgBox "Boş"
Case IsError(ActiveCell)
MsgBox "Hata"
End Select

End Sub

Saygılar;

 

[Ömer]

Merhaba,

Case IsEmpty(ActiveCell)
MsgBox "Boş"

ifadesini sayı şartından önce yazarsanız istediğiniz olacaktır.

.

 

[mesudiye_052]

Selamlar

Sayın Ömer

Çok teşekkür ederim

Saygılar;