hücreye her 6. karakterden sonra karakter eklemek

[hakan439]

arakdaslar; t3 hücresine arka arkaya hepsi 6 haneli sayılar giriyorum. bunları hızlı girmek için number pad den arka arkaya aralarına bir tane virgul koyarak yazıyorum. enter a bastıgımm da ise o virgullerden sonra ve en sona bir space koysun istorum otomaik man. bunu yapmak mumkun mu?

 

[Ferhat Pazarçevirdi]

Aşağıdaki prosedürü, ilgili sayfanın kod bölümüne yapıştırınız. Sayfadaki T3 hücresine değer girdiğinizde virgülden sonra ve en sona boşluklar atılacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [T3]) Is Nothing Then: Exit Sub
Dim metin As String, karakter As String
On Error Resume Next
For i = 1 To Len(Target)
  karakter = Mid(Target, i, 1)
  If karakter = "," Then
      metin = metin & karakter & " "
  Else
      metin = metin & karakter
  End If
  If i = Len(Target) Then: metin = metin & " "
Next i
Application.EnableEvents = False
Target = metin
Application.EnableEvents = True
End Sub