+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sayfalar Arası Veri Çekme (/konu-sayfalar-arasi-veri-cekme.html)
Sayfalar:
1
2
RE: Sayfalar Arası Veri Çekme - mert_0671 - 21/10/2023
(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
Re: Sayfalar Arası Veri Çekme - feraz - 22/10/2023
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
RE: Sayfalar Arası Veri Çekme - feraz - 22/10/2023
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
RE: Sayfalar Arası Veri Çekme - mert_0671 - 22/10/2023
(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
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
RE: Sayfalar Arası Veri Çekme - feraz - 22/10/2023
(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
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.
RE: Sayfalar Arası Veri Çekme - mert_0671 - 22/10/2023
(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
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