Üsttekiyle Aynı Olanlarda Uyarı Verme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Epakambalaj

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
370
Excel Versiyonu
Excel 2010
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

Çözüm
AhmetRasim' Alıntı:
Merhaba, ekteki dosyadaki kodları, kullandığınız Excel dosyasında ilgili sayfanın kod bölümüne ekleyiniz.
Genişletmek için tıklayın ...
Hocam kod çalışmadı
İlginiz için çok teşekkür ediyorum

Daha önce siz ve diğer değerli hocalarımdan aldığım veriler üzerinden atıp tutarak kodu uyarlardım. Allah hepinizden razı olsun.

Bu kodla girilen veri, bir üst hücre ile aynı ise, uyarı mesaj açılıyor

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then
If Target.Offset(-1, 0) = Target.Offset(0, 0).Value Then
MsgBox "SON VERİYİ TEKRARLADINIZ !", vbCritical

End If
End If

End Sub
Tarihe göre sırala Oylamaya göre sırala
Merhaba Makro harici D sütununu sütun harfine tıklayıp komple seçin... Veri doğrulama -----> Özel kısmından aşağıdaki formülü yazıp sonra Hata uyarısı kısmındaki Hata iletisine de yazmak istediğiniz uyarıyı yazıp da bu mesajı alabilirsiniz. Dosyanızı incelersiniz.

=EĞERSAY(D:D;D1)=1

Not : Eğer Tüm sütun kontrolü değil de Sadece Bir üstteki ile aynı olduğu durumlarda uyarı versin istiyorsanız D2 den misal D100 e kadar mouse ile alanı seçin aşağıdaki formülü kullanın.

=EĞERSAY(D1:D2;D1)=1
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Mehmet' Alıntı:
Merhaba Makro harici D sütununu sütun harfine tıklayıp komple seçin... Veri doğrulama -----> Özel kısmından aşağıdaki formülü yazıp sonra Hata uyarısı kısmındaki Hata iletisine de yazmak istediğiniz uyarıyı yazıp da bu mesajı alabilirsiniz. Dosyanızı incelersiniz.

=EĞERSAY(D:D;D1)=1

Not : Eğer Tüm sütun kontrolü değil de Sadece Bir üstteki ile aynı olduğu durumlarda uyarı versin istiyorsanız D2 den misal D100 e kadar mouse ile alanı seçin aşağıdaki formülü kullanın.

=EĞERSAY(D1:D2;D1)=1
Genişletmek için tıklayın ...
Hocam ilginiz ve emeğiniz için teşekkür ederim.

Bunu kastetmemiştim
Dosya kaydederken ctrl+s yapmak yerine dalgınlıkla ctrl+d hatası yapıyoruz. Böylece farkına varmadan seçili hücreye bir üstteki veriyi tekrarlamış oluyoruz.

Eğer mümkünse makro ile uyarı mesajı almak istiyoruz.
 
Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
Merhaba, ekteki dosyadaki kodları, kullandığınız Excel dosyasında ilgili sayfanın kod bölümüne ekleyiniz.
Genişletmek için tıklayın ...
Hocam kod çalışmadı
İlginiz için çok teşekkür ediyorum

Daha önce siz ve diğer değerli hocalarımdan aldığım veriler üzerinden atıp tutarak kodu uyarlardım. Allah hepinizden razı olsun.

Bu kodla girilen veri, bir üst hücre ile aynı ise, uyarı mesaj açılıyor

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then
If Target.Offset(-1, 0) = Target.Offset(0, 0).Value Then
MsgBox "SON VERİYİ TEKRARLADINIZ !", vbCritical

End If
End If

End Sub
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt