Hücreye girilen bilgiyi Karşılaştırıp Getirme

[efem67]

Merhabalar ANALISTE.XLS excel dosyamda bilgilerim var.

Diğer excel dosyam SONUC.XLS de LISTE1 LISTE2 LISTE3 LISTE.... Diye sayfalarım var

H hücresine TC Kimlik numarasını girdiğim anda .
ANALISTE.XLS Dosyasındaki
UYE sayfasındaki TC kimlik Noyu bulacak eşleştirecek ve LISTE1 LISTE2 LISTE3 LISTE.... sayfalarına MAHALLE,ADI,SOYADI,BABA ADI ,ANA ADI D.TARİHİ (Buraya Önce İlini Sonra araya - koyarak Doğum tarihi birleşik getirilecek) ve , CEP NO bilgilerini CEP TEL otomatik olarak getirecek CEP TEL yoksa EV TEL NOSU getirilecek...
Sonra diğer H Hücrelerine geçtiğimde bilgiler kaybolmayacak
TC Kimlik no bulamayan hücrelere Bilgi yok yazabilir..

Yardımlarınız için şimdiden çok teşekkür ederim...

 

[YUSUF44]

Bu sorunuz için biraz uğraştım ama maalesef sonuç alamadım. Öncelikle ANALISTEM dosyanızdaki UYE sayfasını SONUÇLAR dosyanıza taşıdım. Sonra aşağıdaki kodları LISTE1, LISTE2 gibi sayfalarınızın kod bölümüne yazdım. Ancak nedense kodlar sadece UYE sayfasında 2. satırdaki TC no girildiğinde çalıştı. Diğer kişilerin TC nosu girildiğinde sonuç vermedi. NEden anlamadım:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub

If IsNumeric(Target) = True And Len(Target) = 11 Then
[K6] = Target 'kodların çalışıp çalışmadığını anlamak için kontrol satırı, düzgün çalışınca silinebilir
Set s1 = Sheets("UYE")
For i = 2 To s1.Cells(Rows.Count, "C").End(3).Row
If s1.Cells(i, "C") * 1 = Target * 1 Then
sıra = i
[k1] = s1.Cells(Rows.Count, "C").End(3).Row 'kodların çalışıp çalışmadığını anlamak için kontrol satırı, düzgün çalışınca silinebilir
[k2] = i 'kodların çalışıp çalışmadığını anlamak için kontrol satırı, düzgün çalışınca silinebilir
i = s1.Cells(Rows.Count, "C").End(3).Row
End If
ActiveSheet.Cells(Target.Row, "B") = s1.Cells(sıra, "B")
ActiveSheet.Cells(Target.Row, "C") = s1.Cells(sıra, "D")
ActiveSheet.Cells(Target.Row, "D") = s1.Cells(sıra, "E")
ActiveSheet.Cells(Target.Row, "E") = s1.Cells(sıra, "F")
ActiveSheet.Cells(Target.Row, "F") = s1.Cells(sıra, "G")
ActiveSheet.Cells(Target.Row, "G") = s1.Cells(sıra, "H") & " - " & s1.Cells(sıra, "I")

If s1.Cells(i, "J") = "" Then
ActiveSheet.Cells(Target.Row, "I") = s1.Cells(sıra, "K")
Else
ActiveSheet.Cells(Target.Row, "I") = s1.Cells(sıra, "J")
End If

Next
End If
End Sub