Soru İki sayfa arasında tc eşleşen kayıtlardaki sicil numaralarını alma

[oornek1]

Merhaba
Data adlı sayfamda; D hücresi TC Numaraları, L hücresi ise sicil numaralarını aldığım satır.
TumListe Adlı sayfamda; C hücresi TC Numaraları, B hücresi ise Sicil Numaralarının olduğu satır,

Yapmak istediğim Data sayfamda personelin TC numarasını girdiğimde, TümListe sayfamdaki TC ile eşleşen kayıttaki sicil numarasını almak

Örnek olarak

Data adlı sayfadaki
D hücresindeki 1111111111 tc numarasına sahip kişiyi Tümliste sayfasında C hücresinde bularak Tümliste sayfasındaki B hücresinde olan sicil numarasını, data sayfamdaki o tc numaraya ait L hücresine yazdırmak.

Örnek Dosya için

İndir Ornek

Dosyayı indir Ornek

dosya.co

 

[cems]

Deneyin
Dosya makro calısması için .xlsm ye cevrildi

Ornek.xlsm dosyasını indir - download

Ornek.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[oornek1]

merhaba altın üyeliğim süresi dolmuş mail adresime dosyayı göndermeniz mümkünmüdür. yada başka bir yöntem ile

 

[veyselemre]

Sub test()
    Dim v, i
    With CreateObject("Scripting.Dictionary")
        v = Sheets("TumListe").Range("A1").CurrentRegion
        For i = 2 To UBound(v)
            .Item(v(i, 3)) = v(i, 2)
        Next i
        v = Sheets("Data").Range("A1").CurrentRegion
        For i = 2 To UBound(v)
            If .Item(v(i, 4)) Then
                Sheets("Data").Cells(i, "L").Value = .Item(v(i, 4))
            End If
        Next i
    End With
End Sub

Sub test2()
    Dim son
    son = Sheets("TumListe").Cells(Rows.Count, 1).End(3).Row
    With Sheets("Data")
        With .Range("L2:L" & .Cells(Rows.Count, 1).End(3).Row)
            .Formula = "=XLOOKUP(D2,TumListe!$C$2:$C" & son & ",TumListe!$B$2:$B" & son & ","""",0,1)"
            .Value = .Value
        End With
    End With
End Sub

 

[oornek1]

makroyu çalıştırdığımda Data L hücresine =XLOOKUP(D2,TumListe!$C$2:$C" & son & ",TumListe!$B$2:$B" & son & ","""",0,1)" bu kısmı atıyor. bu arada kullandığım excel Türkçe bir excel

 

[veyselemre]

Excel versiyonunuz 2003 ise, xlookup(çarprazara) fonksiyonu yoktur ilk makroyu çalıştırın.

 

[oornek1]

İlk makroyu hücreye her defasında TC girdiğimde otomatik çalışırmı, yoksa her işlemden sonra makroyu tekrar çalıştıracakmıyım