iki sayfadaki verilerin kıyaslanıp üçüncüye yazılması

[rzayildirim]

arkadaşlar,
şoyle birşey yapabilirmiyim:
birinci sayfadaki veriler de adres bilgisi eksik. ikinci sayfada ise bu adres bilgisi var. bu adres bilgisini birinci sayfaya eklemek istiyorum. bu eklenmiş hali 3. sayfada gosterilsin istiyorum.
iki sayfada da iki ortak sutun var (doğum tarıhı ve cep no) buna gore hangi adres kimin bulunabılıyor.
daha iyi acıklasın diye ornek bir excel dosyasını ekledim.
yardım ederseniz sevinirim
tesekkurler

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[rzayildirim]

tesekkur ederım Korhan bey.
kesinlikle istedigim buydu. ama bir yerde eksikli yapmısım. Ilk sayfa ile ikinci sayfadaki ortak verirler aynı satırlarda. En son haliyle dosyayı atachledim. Goz atabilirmisiniz.
Birde girilen satır yaklasık 500 olunca (size gonderdiğim 14 satırdan olusuyordu) programı çalıstırınca ilk 14 veriyi ele aldı gonderdiğiniz program.500 unun de sıralanması için kodda nereyi değiştirmeliyim.
Tekrar ugrastıgınız ve yardım ettiğiniz için teşekkür ederim

 

[rzayildirim]

tesekkur ederım Adnan bey.
kesinlikle istedigim buydu. ama bir yerde eksikli yapmısım. Ilk sayfa ile ikinci sayfadaki ortak verirler aynı satırlarda. En son haliyle dosyayı atachledim. Goz atabilirmisiniz.
Birde girilen satır yaklasık 500 olunca (size gonderdiğim 14 satırdan olusuyordu) programı çalıstırınca ilk 14 veriyi ele aldı gonderdiğiniz program.500 unun de sıralanması için kodda nereyi değiştirmeliyim.
Tekrar ugrastıgınız ve yardım ettiğiniz için teşekkür ederim

dosya ektedir. kontrol edersenız sevınırım

 

[Korhan Ayhan]

Selamlar,

Son eklediğiniz dosyaya göre ne yapmak istediğinizi anlayamadım. Daha detaylı açıklarmısınız.

 

[rzayildirim]

soyle ornek verıyım:
birinci sayfadaki ilk satıra bakınca "ebru çetin" var.
dogum tarihi ve cep no sunu alıp ikinci sayfadaki listeden o satırı bulucaz. yani aynı doğm tarihi ve cep no sunun eşleştiği satırı. bu satırdaki adres bilgisi ebru çetinindir. 3. sayfada bunları bir araya getirmiş olacaz. yani 3. sayfada ilk sayfadaki bilgiler ve ayrıyeten adres eklenmiş olacak

 

[Korhan Ayhan]

Selamlar,

Örnek dosyadaki kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub DÜZENLE()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    Set S3 = Sheets("Sayfa3")
    S3.[A2:E65536].ClearContents
    SATIR = 2
    S1.[IV2] = "=C2&D2"
    S1.[IV2].AutoFill Destination:=S1.Range("IV2:IV" & S1.[A65536].End(3).Row), Type:=xlFillDefault
    S1.Range("IV2:IV" & S1.[A65536].End(3).Row).Value = S1.Range("IV2:IV" & S1.[A65536].End(3).Row).Value
    S2.[IV2] = "=D2&E2"
    S2.[IV2].AutoFill Destination:=S2.Range("IV2:IV" & S2.[A65536].End(3).Row), Type:=xlFillDefault
    S2.Range("IV2:IV" & S2.[A65536].End(3).Row).Value = S2.Range("IV2:IV" & S2.[A65536].End(3).Row).Value
    For X = 2 To S1.[A65536].End(3).Row
    Set BUL = S2.[IV:IV].Find(S1.Cells(X, "IV"), LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    S3.Cells(SATIR, 1) = S1.Cells(X, 1)
    S3.Cells(SATIR, 2) = S1.Cells(X, 2)
    S3.Cells(SATIR, 3) = S1.Cells(X, 3)
    S3.Cells(SATIR, 4) = S1.Cells(X, 4)
    S3.Cells(SATIR, 5) = S2.Cells(BUL.Row, 6)
    SATIR = SATIR + 1
    End If
    Next
    S1.Columns(256).Clear
    S2.Columns(256).Clear
    S3.Cells.EntireColumn.AutoFit
    Set S1 = Nothing
    Set S2 = Nothing
    Set S3 = Nothing
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[rzayildirim]

tesekkur ederim korhan bey.
makroyu calıstırdım ama 3. sayfada cıkan sonucta sadece 14 satır gosteriliyor. daha fazlasını sıralamıyor.

 

[Korhan Ayhan]

Selamlar,

Uyguladığınız dosyayı eklemeniz mümkün mü?

 

[rzayildirim]

uyguladıgım dosya ekte Korhan bey.

 

[Korhan Ayhan]

Selamlar,

Umarım doğru anlamışımdır. Aşağıdaki kodu denermisiniz.

Sub DÜZENLE()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    Set S3 = Sheets("Sayfa3")
    S3.[A2:E65536].ClearContents
    SATIR = 2
    S1.[IV2] = "=C2&D2"
    S1.[IV2].AutoFill Destination:=S1.Range("IV2:IV" & S1.[C65536].End(3).Row), Type:=xlFillDefault
    S1.Range("IV2:IV" & S1.[C65536].End(3).Row).Value = S1.Range("IV2:IV" & S1.[C65536].End(3).Row).Value
    S2.[IV2] = "=D2&E2"
    S2.[IV2].AutoFill Destination:=S2.Range("IV2:IV" & S2.[D65536].End(3).Row), Type:=xlFillDefault
    S2.Range("IV2:IV" & S2.[D65536].End(3).Row).Value = S2.Range("IV2:IV" & S2.[D65536].End(3).Row).Value
    For X = 2 To S1.[IV65536].End(3).Row
    Set BUL = S2.[IV:IV].Find(S1.Cells(X, "IV"), LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    S3.Cells(SATIR, 1) = S1.Cells(X, 1)
    S3.Cells(SATIR, 2) = S1.Cells(X, 2)
    S3.Cells(SATIR, 3) = S1.Cells(X, 3)
    S3.Cells(SATIR, 4) = S1.Cells(X, 4)
    S3.Cells(SATIR, 5) = S2.Cells(BUL.Row, 6)
    SATIR = SATIR + 1
    Else
    S3.Cells(SATIR, 1) = S1.Cells(X, 1)
    S3.Cells(SATIR, 2) = S1.Cells(X, 2)
    S3.Cells(SATIR, 3) = S1.Cells(X, 3)
    S3.Cells(SATIR, 4) = S1.Cells(X, 4)
    S3.Cells(SATIR, 5) = "ADRES BULUNAMADI !"
    SATIR = SATIR + 1
    End If
    Next
    S1.Columns(256).Clear
    S2.Columns(256).Clear
    S3.Cells.EntireColumn.AutoFit
    Set S1 = Nothing
    Set S2 = Nothing
    Set S3 = Nothing
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub