excelde tablo hk.

[arifbirgen]

excelde tablonun aynı sutununda başka hücreye sutundaki aynı veriyi girdiğimde ikaz uyarısını nasıl alabirim.

 

[nziya]

Bu kodu sayfa kod bölümüne kopyalayınız A:A sütunu için geçerlidir değişebilir.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bul As Range, Adres
On Error GoTo HATA
If Target.Column = 1 And Not Target = "" Then
Set Bul = Range("A:A").Find(Target, LookAt:=xlWhole)
Adres = Bul.Address
Set Bul = Range("A:A").FindNext(Bul)
If Not Bul.Address = Adres Then
MsgBox Target & " değeri daha önce girilmiş"
Target.Select
End If
End If
HATA:
End Sub

 

[mr.murat]

valla süper bişi ben denedim
eline sağlık
nziya kardeş!