Hücredeki veri tarih değilse..

[acolkesen1]

Merhaba,
Arkadaşlar
If Range("a1"). tarih değilse Then...
ve
If range("a1"). metin değilse Then..

Yukarıda kırmızı ile yazılmış kısımları kod olarak nasıl yazabiliriz acaba?
İlgilenen arkadaşlara teşekkürler..

 

[Necdet]

Merhaba,

Tarih Kontrolü :

If IsDate(Range("A1")) = False Then Range("B1") = "Tarih Değil"

 

[acolkesen1]

Merhaba Sayın Yeşertener,
Sanırım kısaca yazayım derken yanlış anlattım, yapmak istediğim a1 hücresindeki veri tarih değilse mesaj verdirmek. Yani , a1 tarih değilse Msgbox "TARİHİ GİRİNİZ" şeklinde..Aynı şekilde; a1 metin değilse MsgBox " İSİM GİRİNİZ" şeklinde mesaj verdirmek istiyorum..İlginize teşekkür ederim.

 

[Necdet]

Merhaba,

Tarih kontrolü kolay :

If IsDate(Range("A1")) = False Then
MsgBox "A1 Hücresi Tarih Değil, Tarih Giriniz"
End If

Doğrudan metin kontrolü var mı bilmiyorum ama, A1 hücresi tarihse ya da rakamsa metin olmadığı anlaşılır. Biraz dolaylı oldu ama :

If IsDate([A1]) = True Or IsNumeric([A1]) = True Then
    MsgBox "A1 Hücresine İsim Giriniz"
End If

 

[acolkesen1]

Necdet bey teşekkür ederim ilginize. İyi çalışmalar, esen kalın..

 

[haso_excel]

Sayın Necdet bey,

Bu kodu formul olarak nasıl uygulayacağız. IS fonksiyonlarının içinde yok.
ISBLANK(value)
ISERR(value)
ISERROR(value)
ISLOGICAL(value)
ISNA(value)
ISNONTEXT(value)
ISNUMBER(value)
ISREF(value)
ISTEXT(value)