aynıysa farklı sayfaya yaz

[qwertylion]

merhaba arkadaşlar ekteki dosyadanda anlaşılacağı üzere sayfa 1 ve 2 de bazı iller ve veriler var . sizde isteğim sayfa 1 ve 2 de aynı il varsa önce sayfa 1 deki sonra sayfa 2 de ki illerin sıralam sayfasında alt alta o ile ait tüm veriler ile birlikte yazılması örneğim ankara ankara istanbul istanbul gibi. bunu fonk veya makro ile yapabilirmiyiz yardımcı olanlara şimdiden teşekkürler

 

[qwertylion]

yardım lütfen

 

[Orion1]

Dosyanız ekte .

Sub aktar()
Dim s1 As Worksheet, s2 As Worksheet, s1_sat As Long
Dim sat As Long, k As Range, i As Long
Sheets("SIRALAMA").Select
Application.ScreenUpdating = False
Range("A4:P65536").ClearContents
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1_sat = s1.Cells(65536, "A").End(xlUp).Row
sat = 4
For i = 4 To s1_sat
    Set k = s2.Range("A4:A65536").Find(s1.Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Range("A" & sat & ":P" & sat).Value = s1.Range("A" & i & ":P" & i).Value
        sat = sat + 1
        Range("A" & sat & ":P" & sat).Value = s2.Range("A" & k.Row & ":P" & k.Row).Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Aktarma bitti"

End Sub

 

[qwertylion]

çok teşekkür ederim elleriniz dert görmesin

 

[Orion1]

çok teşekkür ederim elleriniz dert görmesin

Rica ederim.
İyi çalışmalalar.