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

SilinenUye8231

Kullanıcı
Katılım
12 May 2019
Mesajlar
620
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
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...

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(3 satır)
 
Oyla 0 Olumsuz oyla
52779' Alıntı:
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...

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
Genişletmek için tıklayın ...
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.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(3 satır)
Genişletmek için tıklayın ...
Merhaba Ömer Bey, ilginiz için çok teşekkür ediyorum
 
Oyla 0 Olumsuz oyla
ASLAN7410' Alıntı:
Merhaba Ömer Bey, ilginiz için çok teşekkür ediyorum
Genişletmek için tıklayın ...

Ömer BARAN' Alıntı:
@SilinenUye8231
Teşekkür tamam da, isteğiniz karşılandı mı karşılanmadı mı onu anlayamadım.
Genişletmek için tıklayın ...
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
 
Oyla 0 Olumsuz oyla
@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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)

.
Genişletmek için tıklayın ...
Sayın Ömer Bey, çok teşekkür ediyorum.

Hayırlı günler diliyourm.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt