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
