tutar girişinde format problemi

[Asmolen]

CEKTUT = Format(CEKTUT, "###,###.##")
10000 yazdığımda 10.000, yazıyor 10.000,00 nasıl yazdırabilirim.
birde Tutar girerken otomatik noktası çıkan bir giriş yapabilirmiyim ?

 

[hamitcan]

Birinci sorunuz böyle olmalı ama sayı olarak görmeyeceğini düşünüyorum eğer noktalama ayarlarınız bu şekilde değilse.

CEKTUT = Format(CEKTUT, "###.###,##")

İkinci sorunuz için ise bir zamanlar bir yerden bulduğum kodu sizinle paylaşayım.

 Private Sub TextBox1_Change()
    With TextBox1
        .SelLength = 1
        If .SelText = "." Then
            .SelStart = .SelStart + 1
            .SelLength = 1
        End If
    End With
End Sub
'
Private Sub UserForm_Initialize()
    With TextBox1
        .MaxLength = 10
        .Text = "##.##.####"
        .SelStart = 0
        .SelLength = 1
    End With
End Sub