rakamlara karşılık gelen verileri bulma...

[karakayalı]

Dosya Ektedir...Yardımlarınız için şimdiden teşekkürler...

 

[Orion1]

Dosyanız ektedir.

Sub bul()
Dim i As Integer, k As Range
Sheets("Sayfa1").Select
Range("C2:IV2").ClearContents
For i = 3 To 256
    If Cells(1, i).Value <> "" Then
        Set k = Range("A2:A65536").Find(Cells(1, i).Value, , xlValues, xlWhole)
        If Not k Is Nothing Then Cells(2, i).Value = k.Offset(0, 1).Value
    End If
Next i
MsgBox "İşlem tamamlanmıştır.", vbOKOnly + vbInformation, "EVREN"
End Sub

 

[karakayalı]

syn evren gizlen, ellerinize sağlık...Çok güzel olmuş...Teşekkürler....

 

[Orion1]

syn evren gizlen, ellerinize sağlık...Çok güzel olmuş...Teşekkürler....

Rica ederim.
İyi çalışmalar.