Textbox içerisine Sayı Değeri Girilmesi

[muratfix]

Arkadaşlar üzerinde çalıştığım programın bir yerinde takıldım. Programda Kasa Çıkış Formu isimli (Userform1) bir form var ve bunun üzerinde iki tane textbox var. TextBox1 in işlevi bir girilen değeri Sayfa1 üzerinde D hücresine Parasal değer olarak atamak. TextBox2 ın işlevi ise Sayfa3 üzerindeki F2 hücresini parasal değer olarak yansıtmak. her iki Textboxda da aktarma veya yazsıtma ile ilgili bir problem yok ama aktarılan değerler parasal bir değer değiller. bunu nasıl yapabiliriz yardımlarınızı bekliyorum...

 

[Ömer]

Sayın muratfix,

Aynı konuyla ilgili birden fazla konu başlığı açmamanızı rica ederim.

.

 

[Ömer]

Sayı olarak aktarmak için kırmızı ilave yapılmıştır. Sizde aktarma kodlarındaki TextBox1 ve TextBox2 ye bu ilaveyi yaparsanız istediğiniz olur.

Sheets("SAYFA1").Cells(son, "D") = CDbl(TextBox1)

----------------------------------------------------------------------------

Sayı girmeye zorlamak için.

Aynı kodları TextBox1 içinde yazarsınız. Ayrıca Texboxlar için yazdığınız Exit kodlarını silin.

Private Sub TextBox2_AfterUpdate()
 
    With TextBox2
        If .Text <> "" And IsNumeric(.Text) = False Then
            .SetFocus
            .Text = ""
            MsgBox "Sadece Sayı Girebilirsiniz."
            Exit Sub
        End If
    End With
 
End Sub

.

 

[muratfix]

aynı konudan açmak istemezdim yanlışlıkla oldu. dediğiniz şekilde uygulamaya çalıştım fakat anlam veremediğim bir hata var. yardım etmeniz mümkün mü acaba?

 

[Ömer]

Exit kodunu sildiniz mi?

 

[muratfix]

Sizin önerdikleriniz dışında bir sorun var sanırım. ne yapmam gerekşyor bilemedim

 

[Ömer]

Nasıl bir hata olduğunu açıklarmısınız.