Yerinekoy

[gsaglam]

0 ile 100 arasında kodlar var bunların karşılığında da birer isim var.40000 satırlık bir datada var ve "yerinekoy"förmülüile sutünün birine her rakam karşılığına gelen ismi yazdırmak istesek nasıl yapabiliriz.

 

[Orion1]

Dosyanız ektedir.

Sub yerine59()
Dim k As Range, son1 As Long, son2 As Long, sh As Worksheet
Dim i As Long
Sheets("Sayfa1").Select
Set sh = Sheets("Sayfa2")
son1 = Cells(Rows.Count, "A").End(xlUp).Row
son2 = sh.Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To son1
    Set k = sh.Range("A1:A" & son2).Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then Cells(i, "A").Value = k.Offset(0, 1).Value
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı" & vbLf & "evrengizlen@hotmail.com"

End Sub

 

[sakman26]

selam,
Alternatif olarak,
Data sayfasında A kolonunda Numaralar, B kolonunda da Numaralara Karşılık isimler olsun.
Diğer sayfada, A kolonunda Numaralar varsa karşılıklarını yazdırmak için

Sub test()
Application.ScreenUpdating = False

Range("B2:B" & [A65500].End(xlUp).Row).ClearContents
With Range("B2:B" & [A65500].End(xlUp).Row)
        .Formula = "=IF(A2="""","""",IFERROR(VLookup(A2,Data!A:B,2,0),""""))"
        .Value = .Value
    End With
[a1].Select
Application.ScreenUpdating = True
End Sub

örneği inceleyiniz.

 

[gsaglam]

Çok teşekkür ederim, işimi gördü