2 excel sayfasını 3. Sayfada birleştirme

[makkan]

Merhaba Arkadaşlar,
Formun yeni üyesiyim. Sayfayı inceledim. Böyle bir konu göremedm. Dosyayı aşağıya ekliyorum. Sayfa 1' deki A sütunu ile sayfa 2'de ki A sütununu karşılaştırıp sayfa 3'de birleştirecek. sayfa 1 ve Sayfa 2'nin A Sütunuda eşit terim varsa sayfa 3'e sayfa 2'nin A sütunundaki ilgili satırı ekleyecek. Böylr bir makro yada formül var mı acaba.

 

[Orion1]

Dosyanız ektedir.

Sub karsilastir59()
Dim s1 As Worksheet, s2 As Worksheet, k As Range
Dim sat1 As Long, sat2 As Long, sat3 As Long, i As Long
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Sheets("Sayfa3").Select
Range("A:B").ClearContents
sat1 = s1.Cells(Rows.Count, "A").End(xlUp).Row
sat2 = s2.Cells(Rows.Count, "A").End(xlUp).Row
sat3 = 1
Application.ScreenUpdating = False
For i = 1 To sat1
    Set k = s2.Range("A:A").Find(s1.Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Cells(sat3, "A").Value = k.Value
        Cells(sat3, "B").Value = k.Offset(0, 1).Value
        sat3 = sat3 + 1
    End If
Next i
Set s1 = Nothing: Set s2 = Nothing: Set k = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com", _
        vbOKOnly + vbInformation, Application.UserName
End Sub

 

[makkan]

Teşekkür ederim Orion1. Fakat değişen değerleri 3. sayfaya yazmış. Diğer değerleri de 3. sayfaya birleştirmesi gerekiyor.

 

[Orion1]

Teşekkür ederim Orion1. Fakat değişen değerleri 3. sayfaya yazmış. Diğer değerleri de 3. sayfaya birleştirmesi gerekiyor.

B sütununda vardı sadece ona göre yaptım.Diğer değerler hangi sütuna kadar devam ediyor.Bunu siz belirtmezseniz ben bilemem hangi sütuna kadar devam ediyor sütunlar.!