Rakamı hücrelere sıralama

[Paksoy]

MERHABA ARKADAŞLAR

Ekdeki dosyadaki işlemde bana yardımcı olursanız sevinirim.

Yardımcı olan arkadaşlara teşekkür ederim.

Herkeze iyi çalışmalar dileklerimle.İyi günler dilerim.

 

[BG]

Sayın Paksoy

MERHABA ARKADAŞLAR

Ekdeki dosyadaki işlemde bana yardımcı olursanız sevinirim.

Yardımcı olan arkadaşlara teşekkür ederim.

Herkeze iyi çalışmalar dileklerimle.İyi günler dilerim.

örnek dosyayı inceleyiniz.

 

[Kardiyak]

formuller ile şöyle birşey yaptım fakat eksikleri var.
Sayının sadece ilk altı rakamını alıyor.altı karakterden fazla ise bile.
sadece tamsayılar için çalışıyor kesirli sayılarda hatalı gösteriyor.
girilenin sayı olduğunu denetlemiyor. metinse bile karakterlerini yazacaktır.

 

[Necdet]

Merhaba,

Alternatif olarak makrolu çözüm. Aşağıdaki kodların ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [I:I]) Is Nothing Then Exit Sub
Dim Deger As String
Dim i, Kol As Integer
Range(Cells(Target.Row, 2), Cells(Target.Row, 8)).ClearContents
If Len(Target.Value) > 7 Then Exit Sub
Kol = 7 - Len(Target.Value)
If Len(Target.Value) < 4 Then Kol = Kol + 1
For i = 1 To Len(Target.Value)
    Kol = Kol + 1
    If Kol = 5 And Len(Target.Value) > 3 Then
        Cells(Target.Row, Kol) = "."
        Kol = 6
    End If
    Cells(Target.Row, Kol) = Mid(Target.Value, i, 1)
Next i
Son:
End Sub

 

[Paksoy]

Tüm yardımcı olan arkadaşlar teşkkürler