makro isteği

[mveysel]

sayfa 2 de verilen sayıları sayfa 1 de arayacak ve o değere ait verileri sayfa 3 e yazacak bir makro yazmak mümkünmüdür? örnek excel ektedir.

 

[Necdet]

Merhaba,

İsteğiniz olabilir ama örnek dosya eklerseniz yanıt almanız hızlanacaktır.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Sayfa3.[a2:l1000] = Empty
Dim sat1, sat2 , s As Integer
s = 2
    For sat1 = 1 To Sayfa1.Cells(65536, "a").End(xlUp).Row
    For sat2 = 1 To Sayfa2.Cells(65536, "a").End(xlUp).Row
        If Sayfa2.Cells(sat2, "a") Like Sayfa1.Cells(sat1, "a") Then
            Sayfa1.Cells(sat1, "a").EntireRow.Copy Sayfa3.Cells(s, "a")
            s = s + 1
        End If
    Next: Next
End Sub