1 sayfaya kodların yanındaki bilgileri alma

[osmandemir]

iyiki varsınız uzun zamandır bizim sorunlarımızı çözüyorsunuz teşekkür ediyoruz.Ekli dosyada 1 sayfada belirli sayılar var .ben bu sayıların yerine 2.sayfadaki kodların yanında bulunan isimlerin yazılmasını istiyorum .olursa çok güzel olacak teşekkürler

 

[Orion1]

Dosyanız ekte.

Sub degerata()
Dim k As Range, hcr As Range
Sheets("Sayfa1").Select
With Sheets("Sayfa2")
For Each hcr In Range("E2:P17")
    Set k = .Range("A:E").Find(hcr.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then hcr.Value = k.Offset(0, 1).Value
Next hcr
End With
MsgBox "Değerler atandı.", vbOKOnly + vbInformation, "DEĞER ATANDI"
End Sub

 

[osmandemir]

çok teşekkür ederim elinize sağlık

 

[Orion1]

çok teşekkür ederim elinize sağlık

Rica ederim.
İyi çalışmalar.