(24/10/2020, 22:27)feraz yazdı: If kacinci > 1 Then
        MsgBox "ilgili veri bulundu", vbCritical, "mükerrer"
    End If

Yukarıdaki kodun if ile end if arasına yazılabilir mesaj silinip.
Zaten kaçıncı>1 demek kaçıncı bulunan satır no demektir.satir ise yazılan verinin bulunduğu satır no.
Mobilden kafadan örnek olarak yazayım yanlışlık olabilir.

Cells(satir,1).value = sayfa2.cells(kacinci,1).value

Bunun gibi olabilir bir deneme yapın abey

---

Kod şöyle çalışır.
Tel,tc no,yada ad soyad sütunlarına veri girince arama yapar.Örneğin Ad soyad girdiniz varsa mesaj verir eklemez.Diğerleride aynı.
Aslında ad soyad varsa birde tc no ve telefonada baktırılabilinirdi esasen.
Malum aynı ad soyadlı insanlar olabilir.
Gerçi zaten tc no ve tel olayına bakıyor kod

hocam Cells(satir,1).value = sayfa2.cells(kacinci,1).value yapınca ilgili kaydın ilk sütunundaki veriyi getiriyor, ancak bu noktadan sonra kacıncı=1 oluyor ve diğer sütunlarda ilgili satırın sütun başlığını alıyor, diğer sütunlar için ne yapabilirim ?