malzeme açıklamanın ortasına malzeme kodu ilave etmek

[papatya35]

Merhaba Çok acil bu dosyaya ilgili satırlara ilgili kodları ilave etmek istiyorum
Yardımlarınızı rica ederim.

 

[askm]

Aşağıdaki şekilde deneyin.

Sub askm()
Application.ScreenUpdating = False
For i = 2 To Range("B" & Rows.Count).End(3).Row
    Cells(i, 4) = Mid(Cells(i, 2), 1, 14) & " " & Mid(Cells(i, 2), 28, Len(Cells(i, 2))) & " " & Mid(Cells(i, 2), 15, 13)
Next
Application.ScreenUpdating = True
MsgBox "İşleminiz tamam...", vbInformation, "ASKM"
End Sub

 

[papatya35]

Aşağıdaki şekilde deneyin.

Sub askm()
Application.ScreenUpdating = False
For i = 2 To Range("B" & Rows.Count).End(3).Row
    Cells(i, 4) = Mid(Cells(i, 2), 1, 14) & " " & Mid(Cells(i, 2), 28, Len(Cells(i, 2))) & " " & Mid(Cells(i, 2), 15, 13)
Next
Application.ScreenUpdating = True
MsgBox "İşleminiz tamam...", vbInformation, "ASKM"
End Sub

teşekkür ederim.

 

[askm]

Rica ederim. Kolay gelsin.