Soru makro desteği

[kamobet]

Merhabalar sorun şu 2 sayfadaki A sutunlarında arama yapıp eşleştiğinde sayfa 2 deki B sutunun verilerini Sayfa 1 de B yada C sutununa aktarmak istiyorum bunu nasıl yapabilirim?

 

[EmrExcel16]

Merhabalar sorun şu 2 sayfadaki A sutunlarında arama yapıp eşleştiğinde sayfa 2 deki B sutunun verilerini Sayfa 1 de B yada C sutununa aktarmak istiyorum bunu nasıl yapabilirim?

Deneyin.

Sub Aktar()
    Dim i, bul, firstAddress
    Application.ScreenUpdating = False
    For i = 2 To Sheets("Sayfa1").Range("A65536").End(3).Row
        Set bul = Sheets("Sayfa2").Range("A1:A100000").Find(Sheets("Sayfa1").Cells(i, "A"), , xlValues, xlWhole)
        If Not bul Is Nothing Then
            firstAddress = bul.Address
            Do
                Sheets("Sayfa1").Range("B" & i).Value = Sheets("Sayfa2").Range("B" & bul.Row).Value
                Set bul = Sheets("Sayfa2").Range("A1:A100000").FindNext(bul)
            Loop While Not bul Is Nothing And bul.Address <> firstAddress
        End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[kamobet]

ellerine emeğine sağlık

 

[EmrExcel16]

ellerine emeğine sağlık

Rica ederim , bu arada aramıza hoşgeldiniz.

 

[kamobet]

Hoş bulduk teşekkür ederim.