Coloque no evento KeyPress do textbox que você quer receber apenas números, o código abaixo. Supondo que seu textbox se chama txtTeste:
Private Sub txt_Teste_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Verifica qual é o caracter digitado na caixa de texto. Aceita somente _
números e backspace
If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8) Then
KeyAscii = 0
End If
End Sub
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 17/02/2014 5:36 pm