Yardım TextBox'a Ondalıklı Sayı Girişi

ab78461 · 15 May 2020

Veri girişi yaptığım TextBox1'in Change olayı aşağıdaki şekildedir.

Private Sub TextBox1_Change()
If TextBox1.Text = "" Then
TextBox1.Text = 0
Else
Sheets("bilgigirisi").Range("B4").NumberFormat = "#,##0.00"
Sheets("bilgigirisi").Range("B4").Value = CDbl(TextBox1.Value)
TextBox3 = Sheets("bilgigirisi").Range("B6")
TextBox7 = Sheets("bilgigirisi").Range("C9")
TextBox8 = Sheets("bilgigirisi").Range("B10")
TextBox9 = Sheets("bilgigirisi").Range("C11")
TextBox10 = Sheets("bilgigirisi").Range("C12")
End If
End Sub

Ancak, bu kodu yazmadan önce TextBox1'e veri girişi yaparken ondalıklı sayı girebiliyordum. Örneğin 12,25; 35555,69 gibi.
Bu kodu ekledikten sonra ise ne yazık ki TextBox1'e sadece tam sayı girebiliyorum, nokta veya virgül giremiyorum.

Kodun çakıştığı herhangi bir başka kodda yer almamaktadır.

Amacım, TextBox1'e veriyi girmeye başladığım anda Excel'de ilgili hücreye (B4) aktarması ile aynı anda TextBox3, 7, 8, 9, 10 yer alan verilerin formulüze edilmiş olan ilgili excel hücrelerindeki hesaplamayı anlık olarak görüntülemesidir.

Aynı kodu İnitalize olayına eklediğimde anlık aktarmayı yapmamakta ve Textbox3, 7, 8, 9, 10'da yer alan verileri userformu kapatıp geri açmadığım sürece görüntülememektedir.

Saygılarımla..

NOT; yeni oluşturulmuş EK'te örneğini gönderdiğim herhangi bir başka kayıt olmayan excelde herhangi bir hata almamaktayım.

ab78461 · 15 May 2020

İlgili Userform'un alt yapısı aşağıdaki gibidir.

PHP:

Private Sub CommandButton6_Click()

Unload bilgigirisi

anasayfa.Show

bilgigirisi.Show

End Sub



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

'Çarpı ile çıkışı Engelleme

If CloseMode = vbFormControlMenu Then MsgBox "İşiniz bitmiş ise lütfen ANASAYFA'ya DÖN butonunu tıklayınız.": Cancel = True

End Sub



Private Sub UserForm_Activate()

' Tarih ve saat eklentisi

BUGUN.Caption = Date

SAAT.Caption = Time

Do

DoEvents

SAAT = Format(Time, "hh:mm:ss")

Loop

End Sub



Private Sub ComboBox4_Change()

' Görünümü Değiştirme (Görünür veya Görünmez yapma)

    If ComboBox4.Text = "Yok" Then

        TextBox4.Locked = True

        TextBox4.BackColor = &HFFC0C0

        TextBox4.ForeColor = &H808000

        TextBox4.BackStyle = fmBackStyleTransparent

        TextBox4.SpecialEffect = 0

    End If

    If ComboBox4.Text <> "Yok" Then

        TextBox4.Locked = False

        TextBox4.BackColor = &HC0FFC0

        TextBox4.ForeColor = &H0&

        TextBox4.BackStyle = fmBackStyleOpaque

        TextBox4.SpecialEffect = 0

    End If

End Sub



Private Sub ComboBox8_Change()

' Görünümü Değiştirme (Görünür veya Görünmez yapma)

    If ComboBox8.Text = "Yok" Then

        TextBox11.Locked = True

        TextBox11.BackColor = &HFFC0C0

        TextBox11.ForeColor = &H808000

        TextBox11.BackStyle = fmBackStyleTransparent

        TextBox11.SpecialEffect = 0

    End If

    If ComboBox8.Text <> "Yok" Then

        TextBox11.Locked = False

        TextBox11.BackColor = &HC0FFC0

        TextBox11.ForeColor = &H0&

        TextBox11.BackStyle = fmBackStyleOpaque

        TextBox11.SpecialEffect = 0

        arabuluculukücretleri.Show

    End If

End Sub



Private Sub ComboBox9_Change()

' Görünümü Değiştirme (Görünür veya Görünmez yapma)

    If ComboBox9.Text <> "İstinaf" Then

        ComboBox10.Locked = True

        ComboBox10.BackColor = &HFFC0C0

        ComboBox10.ForeColor = &H808000

        ComboBox10.BackStyle = fmBackStyleTransparent

        ComboBox10.SpecialEffect = 0

        ComboBox10.ShowDropButtonWhen = fmShowDropButtonWhenNever

    End If

    If ComboBox9.Text = "İstinaf" Then

        ComboBox10.Locked = False

        ComboBox10.BackColor = &HC0FFC0

        ComboBox10.ForeColor = &H0&

        ComboBox10.BackStyle = fmBackStyleOpaque

        ComboBox10.SpecialEffect = 0

        ComboBox10.SpecialEffect = 0

        ComboBox10.ShowDropButtonWhen = fmShowDropButtonWhenAlways

   End If

End Sub



Private Sub CommandButton1_Click()

'Karar Ön İzleme

hükümönizleme.Show

End Sub



Private Sub CommandButton4_Click()

'Arabuluculuk Ücret Tarifesini Görme

arabuluculukücretleri.Show

End Sub



Private Sub CommandButton7_Click()

' Ana Sayfa'ya Dönme

Unload bilgigirisi

anasayfa.Show

End Sub



' TEXTBOX'ların CHANGE OLAYLARI



Private Sub TextBox1_Change()

If TextBox1.Text = "" Then

TextBox1.Text = 0

Else

Sheets("bilgigirisi").Range("B4").NumberFormat = "#,##0.00"

Sheets("bilgigirisi").Range("B4").Value = CDbl(TextBox1.Value)

TextBox3 = Sheets("bilgigirisi").Range("B6")

TextBox7 = Sheets("bilgigirisi").Range("C9")

TextBox8 = Sheets("bilgigirisi").Range("B10")

TextBox9 = Sheets("bilgigirisi").Range("C11")

TextBox10 = Sheets("bilgigirisi").Range("C12")

End If

End Sub



Private Sub TextBox2_Change()

If TextBox2.Text = "" Then

TextBox2.Text = 0

Else

Sheets("bilgigirisi").Range("B5").NumberFormat = "#,##0.00"

Sheets("bilgigirisi").Range("B5").Value = CDbl(TextBox2.Value)

TextBox3 = Sheets("bilgigirisi").Range("B6")

TextBox7 = Sheets("bilgigirisi").Range("C9")

TextBox8 = Sheets("bilgigirisi").Range("B10")

TextBox9 = Sheets("bilgigirisi").Range("C11")

TextBox10 = Sheets("bilgigirisi").Range("C12")

End If

End Sub



Private Sub TextBox3_Change()

TextBox3.Value = Sheets("bilgigirisi").Range("B6").Text 'Red değerinin aktarılması

Sheets("bilgigirisi").Range("B6").NumberFormat = "#,##0.00"

End Sub



Private Sub TextBox4_Change()

If TextBox4.Text = "" Then

TextBox4.Text = 0

Else

Sheets("bilgigirisi").Range("C7").Value = CDbl(TextBox4.Value)

Sheets("bilgigirisi").Range("C7").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox5_Change()

If TextBox5.Text = "" Then

TextBox5.Text = 0

Else

Sheets("bilgigirisi").Range("B8").Value = CDbl(TextBox5.Value)

Sheets("bilgigirisi").Range("B8").NumberFormat = "#,##0.00"

TextBox8 = Sheets("bilgigirisi").Range("B10")

End If

End Sub



Private Sub TextBox6_Change()

If TextBox6.Text = "" Then

TextBox6.Text = 0

Else

Sheets("bilgigirisi").Range("C8").Value = CDbl(TextBox6.Value)

Sheets("bilgigirisi").Range("C8").NumberFormat = "#,##0.00"

TextBox8 = Sheets("bilgigirisi").Range("B10")

End If

End Sub



Private Sub TextBox7_Change()

TextBox7.Value = Sheets("bilgigirisi").Range("C9").Text 'Alınması gereken harç miktarı aktarılması

Sheets("bilgigirisi").Range("C9").NumberFormat = "#,##0.00"

End Sub



Private Sub TextBox8_Change()

TextBox8.Value = Sheets("bilgigirisi").Range("B10").Text 'Bakiye harç miktarının aktarılması

Sheets("bilgigirisi").Range("B10").NumberFormat = "#,##0.00"

End Sub



Private Sub TextBox9_Change()

TextBox9.Value = Sheets("bilgigirisi").Range("C11").Text 'Davacı vekalet ücretinin aktarılması

Sheets("bilgigirisi").Range("C11").NumberFormat = "#,##0.00"

End Sub



Private Sub TextBox10_Change()

TextBox10.Value = Sheets("bilgigirisi").Range("C12").Text 'Davalı vekalet ücretinin aktarılması

Sheets("bilgigirisi").Range("C12").NumberFormat = "#,##0.00"

End Sub



Private Sub TextBox11_Change()

If TextBox11.Text = "" Then

TextBox11.Text = 0

Else

Sheets("bilgigirisi").Range("C13").Value = CDbl(TextBox11.Value)

Sheets("bilgigirisi").Range("C13").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox12_Change()

If TextBox12.Text = "" Then

TextBox12.Text = 0

Else

Sheets("bilgigirisi").Range("F2").Value = CDbl(TextBox12.Value)

Sheets("bilgigirisi").Range("F2").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox13_Change()

If TextBox13.Text = "" Then

TextBox13.Text = 0

Else

Sheets("bilgigirisi").Range("F3").Value = CDbl(TextBox13.Value)

Sheets("bilgigirisi").Range("F3").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox14_Change()

If TextBox14.Text = "" Then

TextBox14.Text = 0

Else

Sheets("bilgigirisi").Range("F4").Value = CDbl(TextBox14.Value)

Sheets("bilgigirisi").Range("F4").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox15_Change()

If TextBox15.Text = "" Then

TextBox15.Text = 0

Else

Sheets("bilgigirisi").Range("F5").Value = CDbl(TextBox15.Value)

Sheets("bilgigirisi").Range("F5").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox16_Change()

If TextBox16.Text = "" Then

TextBox16.Text = 0

Else

Sheets("bilgigirisi").Range("F6").Value = CDbl(TextBox16.Value)

Sheets("bilgigirisi").Range("F6").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox17_Change()

If TextBox17.Text = "" Then

TextBox17.Text = 0

Else

Sheets("bilgigirisi").Range("F7").Value = CDbl(TextBox17.Value)

Sheets("bilgigirisi").Range("F7").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox18_Change()

If TextBox18.Text = "" Then

TextBox18.Text = 0

Else

Sheets("bilgigirisi").Range("G3").Value = CDbl(TextBox18.Value)

Sheets("bilgigirisi").Range("G3").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox19_Change()

If TextBox19.Text = "" Then

TextBox19.Text = 0

Else

Sheets("bilgigirisi").Range("G4").Value = CDbl(TextBox19.Value)

Sheets("bilgigirisi").Range("G4").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox20_Change()

If TextBox20.Text = "" Then

TextBox20.Text = 0

Else

Sheets("bilgigirisi").Range("G5").Value = CDbl(TextBox20.Value)

Sheets("bilgigirisi").Range("G5").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox21_Change()

If TextBox21.Text = "" Then

TextBox21.Text = 0

Else

Sheets("bilgigirisi").Range("G6").Value = CDbl(TextBox21.Value)

Sheets("bilgigirisi").Range("G6").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub TextBox22_Change()

If TextBox22.Text = "" Then

TextBox22.Text = 0

Else

Sheets("bilgigirisi").Range("G7").Value = CDbl(TextBox22.Value)

Sheets("bilgigirisi").Range("G7").NumberFormat = "#,##0.00"

End If

End Sub



Private Sub UserForm_Initialize()

'Combobox Açılır Hücre Bilgileri

ComboBox1.RowSource = "harçvekalet!$A$12:$A$16"

End Sub

ozkansabanci · 17 May 2020

Merhaba,

Tam olarak 2 mesajdan konuyu anlamadım. Örnek dosyada virgüllü giriş yapılabiliyor.
2. Mesajdaki kodlar örnek dosyada değil. Sorunu gösteren bir excel dosyası paylaşırsanız bakalım.

İyi Çalışmalar.

Yardım TextBox'a Ondalıklı Sayı Girişi

Daha fazla seçenek

ab78461

Ekli dosyalar

ab78461

ozkansabanci

Excel VBA Developer