FARKLI BİR HÜCREYE AYNI RAKAM GİRİLDİĞİNDE UYARI VERSİN!!!

[ArzuAK]

ÇALIŞMIŞ OLDUĞUM TABLODA BAZEN AYNI RAKAMI MÜKERRER OLARAK GİRMEK DURUMUNDA KALIYORUM.FORM SAYFALARINI KARIŞTIRDIM.FAKAT Bİ SONUÇ ELDE EDEMEDİM.BU KONUDA DETAYLI OLARAK FORMÜL DİZİLİMİNİ YAZIP YARDIMCI OLACAK ARKADAŞLARIN CEVAPLARINI BEKLİYORUM.TEŞEKKÜRLER.... :kafa: :agla:

 

[kombo]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.
Bu kod A sütununda çalışır . Hangi sütunda çalışmasını istiyorsanız kırmızı yerleri değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
say = WorksheetFunction.CountIf(Range("a1:a" & Target.Row - 1), Target)
If say > 0 Then
MsgBox "BU KAYIT MEVCUTTUR"
Target.Select
Target = ""
End If
End Sub

Kodlar sn. leventm'e aittir.

 

[ArzuAK]

teşekkür ediyorum.farklı bi yoldan çözüme ulaştım.sizin önerdiğinizide uygulayacağım.tekrar teşekkürler... k::

 

[Necdet]

Sayın ArzuAK,

aşağıdaki linki inceleyebilirsinz

http://www.excel.web.tr/viewtopic.php?t=7387

 

[ArzuAK]

Sayın Necdet Bey dün uzun araştırma sonucu size ait olan bu linke ulaştım ve sizin sayenizde sorunumu çözdüm.yeniden ilgi gösterip yardımcı olduğunuz içinde ayrıca teşekür ederim.saygılarımla...