Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Sayfalar Arası Veri Çekme

mert_0671
mert_0671
Excel Cevaplanmış Soruları
11
367

Sayfalar Arası Veri Çekme

#7
mert_0671
Üye
mert_0671
Bul
Üye
Adı Soyadı:
Yaşı: 39
Konum:
Ofis Versiyonu:
Son Oturumu: 23/12/2023,04:25
Yorumları: 34
Konuları: 5
Kayıt Tarihi: 17/12/2019
Teşekkür Puanı: 0
(21/10/2023, 21:27)atoykan yazdı: Yani arkadaşım o kadar hata olacak, TCKN'nin başı var sonu var gerisi yok bu ikisi tutanları alıyor isimdeki iki harfi kontrol ediyor uyanı yazıyor. Çok mantıklı bir çalışma değil istediniz diye olabilecek kodu yazdım

hocam evet zor bir çalışma yardımlarınız için çok teşekkürler. Makro sanırım TC kimlik numaralarının ilk iki sayısı ve son iki sayısını ve ismin ilk iki harfini eşleştirip verileri getiriyor. Buna ilaveten şu kriteride ekleyemeyizmi. İsimdeki ilk iki harften sonra isimde geriye kalan yıldız karakterini saydırıp aranan veri ile hangisi uyuşuyorsa onu getirsin.
Örneğin böyle bir veride 57*******62 ER*** 57416689262 ERDEMİR AYCAN
57*******62 ER***** kimlik numaralarının ilk iki ve son iki sayısı ve ismin ilk iki harfi aynı olduğu için ilk bulduğunu getiriyor. isimlerdeki "ER" harfinden sonra gelen yıldızları saydırıp aranan isimle uzunluk olarak hangisi uyuşuyorsa ona göre verileri getirebilsek sorun büyük olasılıkla çözülür. Bu dediğimi yapmaya çok uğraştım ama bir türlü çözemedim
Cevapla
#8
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 20/04/2024,03:16
Yorumları: 3.637
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Bir modül ekleyip alttaki kodu çalıştırın.
Koddaki bozuk Tr karakteri düzeltin sayfa adındaki.
ilk mesajınızdaki dosyaya göre yapıldı ve son mesajınızdaki gibi ismin uzunluğu ve tc nin ilk 2 ve son 2 olayı kriter alındı.

Bence yine karışıklık olur Soyad kritere girmediği için.BİRLEŞTİRME sayfasına ismin yanına soyadda ekleyip yıldızlasaydınız hata olmayabilirdi sanıyorum.

PHP Kod:
Dim dic As Object
    Dim son As Long, i As Long
    Dim Tc As String, AdSoYad As String, TcYildiz As String, AdYildiz As String
    Dim AdTcTam As String
    Dim sh_Birlestirme As Worksheet, sh_GenelListe As Worksheet
    
    Set sh_Birlestirme = ThisWorkbook.Worksheets("BÝRLEÞTÝRME")
    Set sh_GenelListe = ThisWorkbook.Worksheets("GENEL LÝSTE")
    Set dic = CreateObject("Scripting.Dictionary")
    
    sh_Birlestirme.Range("C2:D" & Rows.Count).ClearContents
    With sh_GenelListe
        son = .Cells(Rows.Count, 1).End(3).Row
        If son < 2 Then GoTo sonSub
        For i = 2 To son
            Tc = .Cells(i, 2).Value
            AdSoYad = .Cells(i, 3).Value
            TcYildiz = Left(Tc, 2) & "*******" & Right(Tc, 2)
            AdYildiz = Left(Split(AdSoYad, " ")(0), 2) & Application.Rept("*", Len(Split(AdSoYad, " ")(0)) - 2)
            dic(TcYildiz & "||" & AdYildiz) = Array(Tc, AdSoYad)
        Next
    End With
    
    i = 2
    With sh_Birlestirme
        son = .Cells(Rows.Count, 1).End(3).Row
        If son < 2 Then GoTo sonSub
        For i = 2 To son
            AdTcTam = .Cells(i, "A").Value & "||" & .Cells(i, "B").Value
            .Cells(i, "C").Value = dic(AdTcTam)(0)
            .Cells(i, "D").Value = dic(AdTcTam)(1)
        Next
    End With
sonSub:
    Set dic = Nothing: Set sh_Birlestirme = Nothing: Set sh_GenelListe = Nothing 
Cevapla
#9
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 20/04/2024,03:16
Yorumları: 3.637
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Alttaki for döngüsüne dic.existst eklemeyi unuttum hata vermemesi için.
Kod hata verirse eklenir ikinci döngüdeki For i = 2 To son bu satırın üstüne on error resume next eklenebilinir.

Üstad bunları hapabileceğini umuyorum bayağıdır Vba ile uğraşıyon Img-grin
Cevapla
#10
mert_0671
Üye
mert_0671
Bul
Üye
Adı Soyadı:
Yaşı: 39
Konum:
Ofis Versiyonu:
Son Oturumu: 23/12/2023,04:25
Yorumları: 34
Konuları: 5
Kayıt Tarihi: 17/12/2019
Teşekkür Puanı: 0
(22/10/2023, 02:49)feraz yazdı: Alttaki for döngüsüne dic.existst eklemeyi unuttum hata vermemesi için.
Kod hata verirse eklenir ikinci döngüdeki For i = 2 To son bu satırın üstüne on error resume next eklenebilinir.

Üstad bunları hapabileceğini umuyorum bayağıdır Vba ile uğraşıyon Img-grin

Teşekkürler hocam ilk etapta hata verdi sonra Alttaki for döngüsüne dic.existst ekleyince çalıştı. Teşekkürler yardımlarınız için
Cevapla
#11
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 20/04/2024,03:16
Yorumları: 3.637
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
(22/10/2023, 11:18)mert_0671 yazdı:
(22/10/2023, 02:49)feraz yazdı: Alttaki for döngüsüne dic.existst eklemeyi unuttum hata vermemesi için.
Kod hata verirse eklenir ikinci döngüdeki For i = 2 To son bu satırın üstüne on error resume next eklenebilinir.

Üstad bunları hapabileceğini umuyorum bayağıdır Vba ile uğraşıyon Img-grin

Teşekkürler hocam ilk etapta hata verdi sonra Alttaki for döngüsüne dic.existst ekleyince çalıştı. Teşekkürler yardımlarınız için

Rica ederim,kolay gelsin.
Set dic = CreateObject("Scripting.Dictionary")

Bunun altına
dic.comparemode=1
Yazarsanız harf duyarlılığı sorun olmaz diye biliyorum yani küçük yada büyük yazılınca.
Cevapla
#12
mert_0671
Üye
mert_0671
Bul
Üye
Adı Soyadı:
Yaşı: 39
Konum:
Ofis Versiyonu:
Son Oturumu: 23/12/2023,04:25
Yorumları: 34
Konuları: 5
Kayıt Tarihi: 17/12/2019
Teşekkür Puanı: 0
(22/10/2023, 11:44)feraz yazdı:
(22/10/2023, 11:18)mert_0671 yazdı:
(22/10/2023, 02:49)feraz yazdı: Alttaki for döngüsüne dic.existst eklemeyi unuttum hata vermemesi için.
Kod hata verirse eklenir ikinci döngüdeki For i = 2 To son bu satırın üstüne on error resume next eklenebilinir.

Üstad bunları hapabileceğini umuyorum bayağıdır Vba ile uğraşıyon Img-grin

Teşekkürler hocam ilk etapta hata verdi sonra Alttaki for döngüsüne dic.existst ekleyince çalıştı. Teşekkürler yardımlarınız için

Rica ederim,kolay gelsin.
Set dic = CreateObject("Scripting.Dictionary")

Bunun altına
dic.comparemode=1
Yazarsanız harf duyarlılığı sorun olmaz diye biliyorum yani küçük yada büyük yazılınca.

Teşekkürler hocam hepsi büyük harf verilerin bunuda ek bilgi olarak kaydettim teşkkürler
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da