Sütunda aynı verinin ilkine gitme

[obsesyonur]

Merhaba;
Benim sorunum su; A sütununda rakamlardan oluşan verilerim var, ben söz konusu sütuna veri girişi yaparken tekrarlayan kayıt olması durumunda koşullu biçimlendirme ile hücrelerin arka planlarını renklendirebiliyor ve bir vba kodu ile " Bu veri daha önce girilmiştir,lütfen verinizi ilk kaydın üzerine yapınız" şeklinde excel sayfası üzerinde hata mesajı kutusu olusturabiliyorum.Benim istediğim ise bu hata mesajındaki tamam kutucuğuna tıkladığım anda veya ilave bir buton koyarak söz konusu tekrarlayan kaydın ilkine gitmesi olacaktır.Bu mümkün müdür? Konuya ilgi gösteren herkese şimdiden teşekkür eder,çalışmalarında başarılar dilerim

 

[Zeki Gürsoy]

Mevcut kodunuzu görmeden çözüm üretmek zor ancak muhtemelen worksheet_change olayı altında çalışıyordur.

"Tamam" butonuna bastıktan sonra şunu yazın:

range("a1:a" & target.row).find(target.value, lookat:=xlwhole).select

 

[obsesyonur]

sayın zeki bey öncelikle soruma göstermiş olduğunuz ilgiden dolayı teşekkür ederim.mevcut hata mesajı kodunu mesajıma ekliyorum.iyi çalışmalar.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A5000")) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Range("A2:A5000"), Target) > 1 Then
MsgBox "BU VERİ DAHA ÖNCE GİRİLMİŞTİ....", vbCritical, "OBSESYONUR"
End If
End Sub
Not:Vermiş olduğum kod worksheet change olayında çalışmakta.

 

[Zeki Gürsoy]

Yukarıda yazdığım gibi; yukarıdaki kodu "MsgBox" ile "End If" arasına ilave edin.

 

[obsesyonur]

zeki bey size çok teşekkür eder,çalışmalarınızda üstün başarılar dilerim.