Hücredeki Hataya Göre Uyarı Mesajı Versin

[SilinenUye8231]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın O3 hücresindeki formül hata verdiğinde ekrana tarih hatalı mesajını vermesini istiyorum.

Yardımcı olur musunuz?

 

For Döngüsü ile Son Dolu Satır

Google Visualization API Query to Excel

[52779]

Selamlar,
Dosyanıza göre, benim çözümüm
L3 hücresinde değişiklik yapılıp, L3 hücresi Tarih değilse Mesaj verilmekte...

Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)

 

[Ömer BARAN]

Sayın @SilinenUye8231 .

Bu veya başka bir belgenizde çalıştırdığınız kodlar sanıyorum,
Application.EnableEvents = False
şeklinde kod içeriyor olmalı ki Worksheet_Change kodu da devreye giremiyor.

Sayın @52779 'un verdiği çözümün, dosyanızda devreye girmesi için; bir defaya mahsus şu kodu çalıştırın.

Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)

 

[SilinenUye8231]

Selamlar,
Dosyanıza göre, benim çözümüm
L3 hücresinde değişiklik yapılıp, L3 hücresi Tarih değilse Mesaj verilmekte...

Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)

Merhaba ilginiz için çok teşekkür ediyorum, kodlar benim benim istediğimi karşılamıyor, gönderdiğim örneğe göre yardımcı olur musunuz?

Yapmak istediğim ektedir.

 

[SilinenUye8231]

Sayın @SilinenUye8231 .

Bu veya başka bir belgenizde çalıştırdığınız kodlar sanıyorum,
Application.EnableEvents = False
şeklinde kod içeriyor olmalı ki Worksheet_Change kodu da devreye giremiyor.

Sayın @52779 'un verdiği çözümün, dosyanızda devreye girmesi için; bir defaya mahsus şu kodu çalıştırın.

Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)

Merhaba Ömer Bey, ilginiz için çok teşekkür ediyorum

 

[Ömer BARAN]

@SilinenUye8231
Teşekkür tamam da, isteğiniz karşılandı mı karşılanmadı mı onu anlayamadım.

 

[SilinenUye8231]

Merhaba Ömer Bey, ilginiz için çok teşekkür ediyorum

@SilinenUye8231
Teşekkür tamam da, isteğiniz karşılandı mı karşılanmadı mı onu anlayamadım.

Sayın Ömer Bey, istediğim gibi olmadı, yapmak istediğim 4.mesajımda gönderdiğim örnek.

O3 hücresini bir türlü tetiklettiremiyorum. Aşağıdaki gibi yapıyorum yine olmuyor.


Private Sub Worksheet_Change(ByVal Target As Range)
If [O3] = "#DEĞER" Then
MsgBox "Hatalı tarih"
End If
End Sub

 

[Ömer BARAN]

@SilinenUye8231

Sayın @52779 'un verdiği kodda esasında bir sorun yok. Sorunun kaynağı L3 hücresine veri girişinin elle yapılmıyor oluşu.

Belgede uygun bir Module veya sayfanın kod bölümüne şu kodu ekleyin.
Sonra da sayfadaki 3 nesneye ayrı ayrı sağ tıklayıp MAKRO ATA >> makronun adını seçip işlemi onaylayın.

Artık L3 hücresinde anlamlı olmayan bir tarih oluşturulursa HATA mesajını alırsınız. O3 hücresinin kullanılmasına gerek yok bence.

Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

.

 

[SilinenUye8231]

@SilinenUye8231

Sayın @52779 'un verdiği kodda esasında bir sorun yok. Sorunun kaynağı L3 hücresine veri girişinin elle yapılmıyor oluşu.

Belgede uygun bir Module veya sayfanın kod bölümüne şu kodu ekleyin.
Sonra da sayfadaki 3 nesneye ayrı ayrı sağ tıklayıp MAKRO ATA >> makronun adını seçip işlemi onaylayın.

Artık L3 hücresinde anlamlı olmayan bir tarih oluşturulursa HATA mesajını alırsınız. O3 hücresinin kullanılmasına gerek yok bence.

Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

.

Sayın Ömer Bey, çok teşekkür ediyorum.

Hayırlı günler diliyourm.