Girilen sayıyı parçalara ayırma

[faruksir]

merhaba,
açtığım userformun textbox ına basamaklar arasında boşluklar olan bir sayı giriyorum, daha sonra bu sayıyı exceldeki bir sayfada parçalara ayırıp farklı hücrelere girmem gerekiyor. örneğin:
01 1529 123 456 sayısındaki rakamları ayırıp aşağıdaki gibi hücrelere dağıtmam lazım.

0 => a1
1 => b1
15=>c1
29=> d1
1=> e1
2=> f1
3=> g1
4=> h1
5=> i1
6=> j1

Bunu nasıl yapabilirim?

 

[whyislam]

User Form'a bir button oluşturun ve aşağıdaki kodları o buttona girin

Range("a1").value = Mid(TextBox1, 1, 1)
Range("b1").value = Mid(TextBox1, 2, 1)
Range("c1").value = Mid(TextBox1, 4, 2)

gerisini siz yazarsınıx

 

[Haluk]

Private Sub TextBox1_Change()
    x = Replace(TextBox1, " ", "")
    [a1] = Left(x, 1)
    [b1] = Mid(x, 2, 1)
    [c1] = Mid(x, 3, 2)
    [d1] = Mid(x, 5, 2)
    [e1] = Mid(x, 7, 1)
    [f1] = Mid(x, 8, 1)
    [g1] = Mid(x, 9, 1)
    [h1] = Mid(x, 10, 1)
    [i1] = Mid(x, 11, 1)
    [j1] = Mid(x, 12, 1)
End Sub

 

[Serpily]

Ben bir dosya yapmıştım. Gene de ekleyeyim.

 

[faruksir]

çok teşekkürler sorun çözüldü.