Este fórum está sendo desativado

[yuricgy]

Estou com um problema pra formatar um textbox que está dentro da minha planilha, sem Userform.

O que acontece é que nesse textbox serão colocados valores monetários, consequentemente, se faz necessário a aceitação somente de números e vírgula.

Para os números eu consegui tranquilo, contudo, a vírgula tá me dando trabalho.

Eu acreditei que usar esse código abaixo funcionaria, mas, sem sucesso. Como posso contornar essa situação?

Código: Selecionar todos

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
    Select Case KeyAscii
        Case 48 To 57 & 44
        Case Else: KeyAscii = 0
    End Select
    
End Sub

Lembrando de quando se trata da parte do código que é responsável pelo intervalo Ascii "48 to 57", ou seja, somente números, tá tudo certo, o problema tá em "& 44", ou seja, a vírgula.

[yuricgy]

Consegui resolver o com:

Código: Selecionar todos

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
    Select Case KeyAscii
        Case 44, 48 To 57
        Case Else: KeyAscii = 0
    End Select
    
End Sub