değişen kodları eşleştirme

[balabanturk]

İyi günler arkadaşlar .

muhasebe kod yapısını değiştirdik . faka eski kodlar ile yeni kodları aldığımız raporda eşleştirmemiz gerekiyor .
Örnekte daha net açıklamaya çalıştım .
Yardımcı olabilirseniz çok sevinirim .
Saygılar ..

 

[mustafaine1]

isteginiz boyle birsey mi acaba ?

 

[Ali]

F1 hücresine

=EĞER(EHATALIYSA(DÜŞEYARA(G1;$A$1:$B$368;2;0));"";DÜŞEYARA(G1;$A$1:$B$368;2;0))

yazıp aşağı doğru çekiniz.

.

 

[Orion1]

Pek anlamdım ama anladığı kadarı ile yaptım.
Dosyanız ektedir.

Sub yenisistemkod()
Dim sat As Long, i As Long, k As Range, sat2 As Long
Sheets("Sayfa1").Select
sat = Cells(65536, "G").End(xlUp).Row
sat = Cells(65536, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("F2:F65536").Clear
For i = 1 To sat
    Set k = Range("A1:A" & sat).Find(Cells(i, "G").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Cells(i, "F").Value = k.Offset(0, 1).Value
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Kodlar yerleştirildi." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[balabanturk]

eşleştirme

arkadaşlar emeğinize teşekkür ederim. işim halloldu.