İki farklı sayfadaki 2 ayrı sütunu karşılaştırma

[ereneren492]

Merhabalar,

aşağıdaki şekilde VBA koduna ihtiyacım var, yardımcı olursanız sevinirim;

Sayfa1'deki A sütunu ile Sayfa2'deki B sütununu karşılaştırıp eşit olan hücrelerin sonucunda Sayfa1'deki C sütununda yer alan ilgili hücreyi Sayfa2'deki D sütununa kopyalamak istiyorum.

Şimdiden teşekkürler

 

[Muzaffer Ali]

Merhaba.
aşağıdaki kodu bir modüle kopyalayıp çalıştırın.

Sub Test()
    Dim syf1 As Worksheet, syf2 As Worksheet
    Dim Bul As Range
    Dim Bak As Long
    
    Set syf1 = ThisWorkbook.Worksheets("Sayfa1")
    Set syf2 = ThisWorkbook.Worksheets("Sayfa2")
    
    For Bak = 1 To syf1.Cells(Rows.Count, "A").End(xlUp).Row
        Set Bul = syf2.Range("B:B").Find(what:=syf1.Cells(Bak, "A").Text, lookat:=xlWhole)
        If Not Bul Is Nothing Then
            Bul.Cells(1, 3).Value = syf1.Cells(Bak, "C").Text
        End If
    Next
End Sub

 

[ereneren492]

Muzaffer hocam çok teşekkür ederim, sorunsuz çalıştı.

Birde A sütunundaki her bir satır ile B sütunundaki her bir satır arasındaki yüzdelik değişimi hesaplayıp çıkan sonucu C sütununa yazmak istiyorum. yardımcı olursanız sevinirim.