AccessTr.neT

Sub xBulDegis()

Set SyfHdf = ThisWorkbook.Worksheets("sayfa2")

With SyfHdf

    HdfSonStr = .Cells(.Rows.Count, "A").End(xlUp).Row

    Set RngHdf = .Range("A1:A" & HdfSonStr)

End With



Set SyfKyk = ThisWorkbook.Worksheets("sayfa1")

With SyfKyk

    KykSonStr = .Cells(.Rows.Count, "A").End(xlUp).Row

    DzKynk = .Range("A1:B" & KykSonStr).Value2

End With



For x = 1 To UBound(DzKynk)

    RngHdf.Replace DzKynk(x, 1), DzKynk(x, 2)

Next

End Sub

Sub test()

    Set s1 = ThisWorkbook.Sheets("Sayfa1")

    Set s2 = ThisWorkbook.Sheets("Sayfa2")

    

    s2.[B:B].Clear

    For i = 1 To s1.Cells(Rows.Count, 1).End(3).Row

        Set bul = s2.Range("A:A").Find(s1.Cells(i, 1).Value)

        If Not bul Is Nothing Then s2.Cells(bul.Row, 2).Value = s1.Cells(i, 2).Value

    Next

End Sub