textbox verisini bölerek yazdırmak

[GursoyC]

Merhabalar,
ekli örnekte görüldüğü üzere, textbox'a gireceğim 15 haneli rakamı, yanındaki düğmeye bastığımda A1 hücresine 3'er basamak halinde aralarında birer boşluk olarak yazmasını istiyorum.
düğmeye atamam gereken kod konusunda yardım eder misiniz.

 

[Mustafa MUTLU]

Hücre otomatik sayı olarak algılayabilir.
Boşluk yerine _ işareti koydum.
Siz "_" yerine istediğiniz karakteri koyabilirsiniz.
a1 hücresine yazıyor siz hücreyi kendinize göre ayarlayınız.

Private Sub CommandButton1_Click()
yy = 0
For xx = 1 To 15
Cells(1, "a") = Cells(1, "a") & Mid(TextBox1, xx, 1)
yy = yy + 1
If yy = 3 Then
yy = 0
Cells(1, "a") = Cells(1, "a") & "_"
End If
Next
End Sub

 

[Ömer BARAN]

Merhaba.

Alternatif olsun.
.

[B]Private Sub CommandButton1_Click()[/B]
With UserForm1.TextBox1
    If Len(.Text) = 0 Then Exit Sub
    If Len(TextBox1) = 15 Then
        txt = .Text: [A1].NumberFormat = "@"
        [A1] = Mid(txt, 1, 3) & " " & Mid(txt, 4, 3) & " " & Mid(txt, 7, 3) & " " & Mid(txt, 10, 3) & " " & Mid(txt, 13, 3)
    Else
        MsgBox "TEXTBOX'a yazılan değer 15 karakter değil, yazılan değeri kontrol edin.", vbCritical, "KARAKTER SAYISI HATALI"
        .SetFocus: .SelStart = 0: .SelLength = Len(.Text)
    End If
End With
[B]End Sub[/B]

 

[GursoyC]

Mustafa bey, Ömer bey,
çok teşekkür ederim.
Saygılar,

 

[Mustafa MUTLU]

Mustafa bey, Ömer bey,
çok teşekkür ederim.
Saygılar,

İşini gördü ise ne mutlu.
Saygılar bizden.

 

[Ömer BARAN]

Mustafa bey, Ömer bey,
çok teşekkür ederim.
Saygılar,

Kolay gelsin.
.