Hücredeki değerlerin belli kısmının aktarılması

[manly]

Ekteki dosyada F sütunundaki stok noların son 4 hanesinin B sütununa aktarılmasını istiyorum...

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Stok_No_Aktar()
    
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "F").End(3).Row
        Cells(i, "B") = Right(Cells(i, "F"), 4)
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "İŞLEM TAMAMLANMIŞTIR", vbInformation
    
End Sub

 

[manly]

Teşekkürler hocam...