TextBox Para formatı

[muratgunay48]

Arkadaşlar, sayın hocalarım, işyerinde kullandığım dosya olduğu için örnek dosya koyamadım.
Fotoğrafta olduğu gibi TextBox1'e rakam yazıyorum ve hesaplama yaptırıyorum.
TextBox 2 ve 3 için

Private Sub TextBox3_Change()
    TextBox3 = ChrW(8378) & " " & Format(TextBox3, "#,##0.00")
End Sub

Kullanıyorum ama 1 için olmuyor. Örneğin 1000 yazacağım. 1 yazdığım anda Change olduğu için ₺1.00 çıkıyor ve hata veriyor. Benim yazmam bitince ve "HESAPLA" butonuna basınca₺1.000 çıkması için ne yapmalıyım.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[RBozkurt]

Butona tıklayınca çalışması daha doğru değil mi?

Private Sub HesaplaButton_Click()
        TextBox3 = ChrW(8378) & " " & Format(TextBox3, "#,##0.00")
End Sub

Olmazsa alttakini deneyin.

Private Sub HesaplaButton_Click()
        TextBox3.Text = ChrW(8378) & " " & Format(CDbl(TextBox3.Text), "#,##0.00")
End Sub

 

[muratgunay48]

Butona tıklayınca çalışması daha doğru değil mi?

Private Sub HesaplaButton_Click()
        TextBox3 = ChrW(8378) & " " & Format(TextBox3, "#,##0.00")
End Sub

Hocam öncelikle yanıtınız için teşekkür ederim. Hemen deniyorum.

 

[muratgunay48]

Butona tıklayınca çalışması daha doğru değil mi?

Private Sub HesaplaButton_Click()
        TextBox3 = ChrW(8378) & " " & Format(TextBox3, "#,##0.00")
End Sub

Evet hocam, haklısınız.

Private Sub CommandButton1_Click()
TextBox1 = ChrW(8378) & " " & Format(TextBox1, "#,##0.00")
TextBox2 = ChrW(8378) & " " & Format(TextBox2, "#,##0.00")
TextBox3 = ChrW(8378) & " " & Format(TextBox3, "#,##0.00")
End Sub

Şeklinde daha iyi oldu.
Çok teşekkür ederim. Var olun.

 

[RBozkurt]

Eyvallah kolay gelsin.

Alternatif:

50 tane textbox varsa For i = 1 To 50 yaparsınız tümüne uygular.

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim tb As Object
    
    For i = 1 To 3 '1,2,3 textbox için
        Set tb = Me.Controls("TextBox" & i)
        tb.Value = ChrW(8378) & " " & Format(tb.Value, "#,##0.00")
    Next i
End Sub

 

[muratgunay48]

Eyvallah kolay gelsin.

Alternatif:

50 tane textbox varsa For i = 1 To 50 yaparsınız tümüne uygular.

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim tb As Object
   
    For i = 1 To 3 '1,2,3 textbox için
        Set tb = Me.Controls("TextBox" & i)
        tb.Value = ChrW(8378) & " " & Format(tb.Value, "#,##0.00")
    Next i
End Sub

Teşekkürler hocam.

 

[muratgunay48]

Eyvallah kolay gelsin.

Alternatif:

50 tane textbox varsa For i = 1 To 50 yaparsınız tümüne uygular.

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim tb As Object
   
    For i = 1 To 3 '1,2,3 textbox için
        Set tb = Me.Controls("TextBox" & i)
        tb.Value = ChrW(8378) & " " & Format(tb.Value, "#,##0.00")
    Next i
End Sub

Hocam, size zahmet veriyorum ama ayrı konu açmak istemedim. Dosyayı bildiğiniz için.
Direk "HESAPLA" tıklarsam, şu debug hata bildirimi çıkıyor. TextBox1 boş iken "HESAPLA" tıklarsam "Değer girmediniz" şeklinde MsgBox nasıl çıkartabilirim.
Teşekkür ederim hocam.

 

[RBozkurt]

Hocam, size zahmet veriyorum ama ayrı konu açmak istemedim. Dosyayı bildiğiniz için.
Direk "HESAPLA" tıklarsam, şu debug hata bildirimi çıkıyor. TextBox1 boş iken "HESAPLA" tıklarsam "Değer girmediniz" şeklinde MsgBox nasıl çıkartabilirim.
Teşekkür ederim hocam.

Deneyiniz,

Private Sub CommandButton1_Click()
    If Trim(TextBox1.Value) = "" Then
        MsgBox "Değer giriniz!", vbExclamation, "Uyarı"
        Exit Sub
    End If
    TextBox1.Value = ChrW(8378) & " " & Format(TextBox1.Value, "#,##0.00")
End Sub

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim tb As Object
 
    For i = 1 To 3 '1,2,3 textbox için
        Set tb = Me.Controls("TextBox" & i)
        If Trim(tb.Value) = "" Then
            MsgBox "Değer giriniz!", vbExclamation, "Uyarı"
            tb.SetFocus
            Exit Sub
        End If
        tb.Value = ChrW(8378) & " " & Format(tb.Value, "#,##0.00")
    Next i
End Sub

 

[walabi]

Change değilde Exit olarak ayarlasaydınız sanırım istediğiniz gibi çalışırdı. Format gerektiren durumları change değil de exit olayına bağlamak gerekiyor sanırım.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = ChrW(8378) & " " & Format(TextBox3, "#,##0.00")
End Sub

 

[muratgunay48]

Deneyiniz,

Private Sub CommandButton1_Click()
    If Trim(TextBox1.Value) = "" Then
        MsgBox "Değer giriniz!", vbExclamation, "Uyarı"
        Exit Sub
    End If
    TextBox1.Value = ChrW(8378) & " " & Format(TextBox1.Value, "#,##0.00")
End Sub

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim tb As Object

    For i = 1 To 3 '1,2,3 textbox için
        Set tb = Me.Controls("TextBox" & i)
        If Trim(tb.Value) = "" Then
            MsgBox "Değer giriniz!", vbExclamation, "Uyarı"
            tb.SetFocus
            Exit Sub
        End If
        tb.Value = ChrW(8378) & " " & Format(tb.Value, "#,##0.00")
    Next i
End Sub

Teşekkür ederim hocam. Sayenizde oldu dosya. Var olun.

 

[muratgunay48]

Change değilde Exit olarak ayarlasaydınız sanırım istediğiniz gibi çalışırdı. Format gerektiren durumları change değil de exit olayına bağlamak gerekiyor sanırım.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = ChrW(8378) & " " & Format(TextBox3, "#,##0.00")
End Sub

Alternatif için teşekkür ederim hocam.

 

[RBozkurt]

Teşekkür ederim hocam. Sayenizde oldu dosya. Var olun.

Önemli değil Murat Bey, kolay gelsin