Verileri Olduğu Yerde Değiştir

[baydeniro]

Merhaba Arkadaşlar,
A4:A9 aralığındaki ürün tanımlarının H8:I13 alanındaki karşılık tablosuna uygun olarak oldukları yerde "A4:A9 aralığında" değiştirilmesi mümkün mü ? Örnek dosya ektedir.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.

Sub Test()
    Dim Bak As Integer
    Dim Bul As Range
    Dim Aranan As Range
    
    For Bak = 4 To Cells(Rows.Count, "A").End(xlUp).Row
        Set Aranan = Cells(Bak, "A")
        Set Bul = Range("I:I").Find(Aranan.Text, lookat:=xlWhole)
        If Bul Is Nothing Then
            MsgBox "Ürün Adı: " & Aranan.Text & vbLf & "Bu ürün bulunamadı."
        Else
            Aranan = Cells(Bul.Row, "J")
        End If
    Next
End Sub

 

[baydeniro]

dalgalıkur üstadım, elinize sağlık, çok teşekkür ederim. Harika bir kod. sağlıcakla kalın

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.