Guru do Excel + Power BI

Sua dose diária de Power BI e Excel

Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por osvaldomp
#73085
Disponibilize o arquivo Excel com a TextBox.
Por osvaldomp
#73087
FÓRUM ZUADO DE NOVO! NÃO ACEITA FORMATAÇÃO DE TEXTO, NÃO ACEITA INSERÇÃO DE CODE, NÃO ACEITA "OBRIGADO".

Private Sub TextBox1_Change()
If TextBox1.Text = "" Then Exit Sub
If Len(TextBox1.Text) <= 4 Then
If Not Right(TextBox1.Text, 1) Like "[a-zA-Z]" Then 'aceita letras minúsculas e maiúsculas
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
ElseIf Len(TextBox1.Text) = 5 Then
If Not Right(TextBox1.Text, 1) Like "[0-9]" Then
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
Else: TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
End Sub

"[A-Z]" ~~~> aceita somente maiúsculas
Por PedroBB
Posts
#73089
osvaldomp escreveu: 23 Mar 2023 às 11:19 FÓRUM ZUADO DE NOVO! NÃO ACEITA FORMATAÇÃO DE TEXTO, NÃO ACEITA INSERÇÃO DE CODE, NÃO ACEITA "OBRIGADO".

Private Sub TextBox1_Change()
If TextBox1.Text = "" Then Exit Sub
If Len(TextBox1.Text) <= 4 Then
If Not Right(TextBox1.Text, 1) Like "[a-zA-Z]" Then 'aceita letras minúsculas e maiúsculas
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
ElseIf Len(TextBox1.Text) = 5 Then
If Not Right(TextBox1.Text, 1) Like "[0-9]" Then
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
Else: TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
End Sub

"[A-Z]" ~~~> aceita somente maiúsculas
Sensacional!!!!
Muito obrigado, Osvaldo!
FORMULA QUE TRAVESSE CONTAGIRO

Tente em F4: =SE($E4=&quot;&quot;;&qu[…]

Fico Feliz em ter ajudado em algo!! Para compra e […]

Abrir duas Planilhas

Boa Tarde, Osvaldo, testei como vc falou, e funcio[…]

Distribuir trabalho presencial

Boa Tarde!!! Veja se atende o que vc precisa, n&at[…]

Bom dia. Segue uma opção Até[…]

Wadson, Boa Noite!!! Trabalhar no campo do imagin&[…]

Data maior e menor

Caro Denílson, Boa Noite! se a planilha est[…]

Carregar ComboBox em branco

Caro Dunguinha, até dá para ir em ci[…]