hüçreler arasında hücredeki metni aratma

[ismailayan]

merhaba arkadaşlar...
öyle bir derde düştümkü sormayınnn.


Derdim şudur. derman ararımm.

bir isim listesi 3000 kişi var ve isimlerde eklenmeye devam ediyorum..

benim istediğim sizdende ricam ben isim eklemeye devam ettikçe eğer aynı isim varsa yan tarafına var veya yok yazsın..


HELP ME PLEASE...
bu arada bütün arkadaşların geçmiş kurban bayramını kutlarımmm

 

[nziya]

'AYNI DEÐER 2 DEFA GİRİLİRSE UYARI VERİR "A sütunu için"
Bu kodu ilgili sayfanın kod bölümüne kopyalayınız.
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

 

[emrh]

Türkçesini de yazabilir miyiz acaba?