eşleştirme makrosu

[selcuk_c]

Hepinizin bayramı kutlarım

arkadaşlar,

örnek olarak eklediğim dosyada sayfa 1 ve 2 de kod isim miktar alanları var burda yapmak istediğim kod ve isim alanları aynıysa 2. sayfadaki miktar alanındaki değeri 1. sayfadaki eşlenen satıra yazmasıni istiyorum.Yani 2. sayfadaki miktarı 1.sayfadaki yerine aktarılması kayıtlar çok uzun olduğu için örnek olarak bunları yazdım.

hepinize çok teşekkürler,

iyi bayramlar,

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
Dim i, k As Long
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Select
Application.ScreenUpdating = False
s1.Range("C2:C65536").Clear
For i = 2 To Cells(65536, "A").End(xlUp).Row
    For k = 2 To s1.Cells(65536, "A").End(xlUp).Row
        If Cells(i, "A").Value = s1.Cells(k, "A").Value And _
        Cells(i, "B").Value = s1.Cells(k, "B").Value Then
            s1.Cells(k, "C").Value = Cells(i, "C").Value
            Exit For
        End If
    Next k
Next i
Application.ScreenUpdating = True
Set s1 = Nothing
Set s2 = Nothing
MsgBox "SAYFA1'E AKTARMA TAMAMLANDI..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa1 c2 hücresine girip aşşağı çekiniz.

=+TOPLA.ÇARPIM(--(Sayfa1!A2=Sayfa2!A2);--(Sayfa1!B2=Sayfa2!B2);--(Sayfa2!C2))

 

[selcuk_c]

arkadaşlar çok teşekkürler emeğinize sağlık

 

[Orion1]

Rica ederim.
İyi çalışmalar.