Boa-tarde
Teria alguma forma de quando for digitar o telefone fixo no textbox não aceitar o primeiro nº "9" ?
Att,
Francisco
Boa tarde.
Seria mais ou menos isso?
If Left(Trim(Me.tbTelefoneFixo), 1) = 9 Then
MsgBox ("Digite um telefone fixo válido!")
Me.tbTelefoneFixo = ""
End If
Segue planilha como exemplo.
Obrigado Rafael...!
fcarlosc,
Boa tarde!
Deixa eu só fazer uma pequena modificação, aproveitando o exemplo do colega rafaelp.
Se o número fixo começar com 9? Então nunca vai dá certo... correto?
Dessa forma, é preciso verificar se o número digitado na caixa de texto tem mais de 8 caracteres. Segue nova versão.
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
Só complementando mais um pouco, da pra forçar a retirada do 9 do começo e continuar digitando normalmente depois.. através do evento KeyDown..
Eu faria assim rs
Private Sub tbTelefoneFixo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Left(Trim(Me.tbTelefoneFixo), 1) = 9 Then
Me.tbTelefoneFixo = ""
End If
End Sub