sayfalar arasındaki hücre değerleri eşitse aktar

[anita]

ekte bilgilerini vermiş olduğum konu için makro kod desteği istiyorum.
iyi çalışmalar.

 

[Murat OSMA]

Deneyiniz...

Sub Emre()
    Dim evn As Range, liste As Range
    Application.ScreenUpdating = False
        For Each liste In Range("A2:A" & Range("A65536").End(3).Row)
            Set evn = Sayfa2.Columns(1).Find(liste)
                If Not evn Is Nothing Then
                    liste.EntireRow.Cut Sayfa2.Range("A65536").End(3)(2, 1)
                End If
        Next liste
    Application.ScreenUpdating = False
    Set evn = Nothing: Set liste = Nothing
End Sub

 

[anita]

tskler

kolay gelsin iyi çalışmalar istediğim şey sayfa 2 ye aktarması değil
sayfa 1'in a sütunuyla sayfa 2 nin a sütündaki değer eşitse o satıra işlem yapılması

mesala afirması sayfa 1 de a2deyken sayfa 2 de a11'de

a2 ile a11 eşleştiğinde o satıra işlem yapılsın istiyorum.

 

[Murat OSMA]

Koddaki bu satırı;

liste.EntireRow.Cut Sayfa2.Range("A65536").End(3)(2, 1)

şu satırla değiştirin;

Cells(liste.Row, 2).Resize(, 9).Copy evn.Offset(0, 1)