Tek Hücredeki veriyi 4 hücreye paylaştırma...

[manly]

Ek'te gönderdiğim dosyadaki A sütunundaki verileri. B, C, D, E sütunlarına örnekteki gibi makro ile paylaştırmak istiyorum... Yardımcı olursanız sevinirim...

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub StokBöl()
For i = 2 To Range("A" & Rows.Count).End(3).Row
    Cells(i, 2).Value = Mid(Cells(i, 1).Value, 1, 4)
    Cells(i, 3).Value = Mid(Cells(i, 1).Value, 5, 2)
    Cells(i, 4).Value = Mid(Cells(i, 1).Value, 8, 3)
    Cells(i, 5).Value = Mid(Cells(i, 1).Value, 11, 4)
Next i
MsgBox "Stok Bölme İşlemi Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[manly]

Teşekkür ederim... Ellerinize sağlık....