Textbox1 de virgüle basınca textbox 2 ye gitsin

[turk-x]

Slm
Textbox 1 de Virgül (,) veya Nokta (.) tuşuna basınca Textbox 2 ye gitmesini nasıl sağlarım. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim
Birde textbox3 ün change olayına para formatını ekledim 100.000 şeklinde kuruşsuz sayıları yazabiliyorum burakaya kadar ama tutara kuruş eklemeye kalktığımız zaman virgül çalışmıyor. change olayında virgüllü Para formatı (100.000,50 gibi) konusunda yardımlarınızı bekliyorum. Forumda detaylıca araştırdım change olayında virgüllü para formatı malesefki yok




Tek konuda 2 soru sormak zorunda kaldım. İnşallah forum kurallarına aykırı değildir. Aykırı bir durum varsa modoretor ve admin arkadaşlardan özür dilerim..

 

[conari]

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Then ' virgül için
TextBox2.Activate
End If

If KeyAscii = 46 Then ' nokta için
TextBox2.Activate
End If
End Sub

 

[Haluk]

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 44 Or KeyAscii = 46 Then
        KeyAscii = 0
        TextBox2.SetFocus
    End If
End Sub

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "#,##0.00")
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 188 Or KeyCode = 190 Or KeyCode = 110 Then
    TextBox2.SetFocus
End If
End Sub

 

[turk-x]

Slm;
Arkadaşlar hepinize çok teşekkür ederim 1. sorunumu çözdüğünüz için.
Orion2 Kardeşim vermiş olduğun virgüllü para formatı change olayı için kullanılamaz. O format exit olayı için kullanılabilir.

 

[Orion1]

change olayındada kullanılabiliyor.
İşlem yapcağınız hane ye Mouse ile gelip sayıyı değiştirebiliyorsunuz veya sayı ekleyebiliyorsunuz.

 

[turk-x]

Orion Kardeşim dediğin şekilde kullanılabiliyor ama userform üzerinden seri veri girişinde sorun çıkartacağı için o şekilde kullanmıyorum. Onun yerine exit olayına atamak daha pratik bir çözüm...

 

[Orion1]

Orion Kardeşim dediğin şekilde kullanılabiliyor ama userform üzerinden seri veri girişinde sorun çıkartacağı için o şekilde kullanmıyorum. Onun yerine exit olayına atamak daha pratik bir çözüm...

Haklısınız.
Kullanılabiliyor ama pratik değil.

 

[turk-x]

textbox change olayında para formatının daha pratik bir yolunu bilen arkadaşlardan yardım bekliyorum..

Benim az önce yaptığım bir yöntemi yazayım ihtiyacı olan arkadaşlar için
User Form Üzerinde tutar ve kuruş ve textbox3 diye 3 textbox oluşturuyoruz.
Çalışma Mantığı:Tutarı yazarken (,)veya (.)ya basılmasıyla kuruş alanına gider ve 2 haneli kuruşu yazdıktan sonra diğer textboxa geçer.
User Forma aşağıdaki kodları eklememiz yeterli

Private Sub tutar_Change()
If Not IsNumeric(tutar) Then SendKeys "{BS}" 'sadece rakam ve virgül girmeye izin verir
tutar = Format(tutar, "###,0")
End Sub

Private Sub tutar_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then 'nokta veya virgüle basınca
KeyAscii = 0
kurus.Value = ""
kurus.SetFocus
End If
End Sub

Private Sub kurus_Change()
Select Case Len(kurus.Value)
Case Is >= 2
textbox3.SetFocus
Case Else
End Select
End Sub