Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Apagar dados da com...
 
Notifications
Clear all

Apagar dados da combobox

 
Página 2 / 2
2024 - VBA & Macros
19 Posts
2 Usuários
0 Reactions
6,282 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Private Sub CbCidade_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase(Chr(KeyAscii)))

Set b = Sheets("BDAlimentadores")

Set c = b.Range("A1:A65536").Find(CbCidade.Value, lookat:=xlWhole)

If Not c Is Nothing Then
If CStr(UCase(CbCidade.Value)) = CStr(UCase(c.Cells)) Then

Else
GoTo Alerta
End If
Else
GoTo Alerta
End If
Exit Sub
Alerta:
MsgBox "Digite Cidade Válida , " & Chr(13) & Chr(13) & " OU" & Chr(13) & Chr(13) & "SELECIONE NA CAIXA", vbOKOnly + vbCritical + vbInformation, ".:: [email protected] ::."
CbCidade.Text = ""
CbCidade.SelStart = 0
End Sub

estou tentanto usar este codigo, dentre outras coisas o que ele "tenta" fazer é ;ir auto completando ,mas se digitar algo que não esteja na lista em BDAlimentadores , dar uma msg que houve um erro e ; CbCidade.Text = ""; apagar o que foi escrito, mas sempre sobra uma letra na combo, alguem pode me dizer como resolver por favor?

 
Postado : 03/04/2012 9:37 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Desculpem-me se ofendi alguem , foi exatamente o que o Mauro disse ,na ancia.... para dar um UP e sem saber como dar o UP, fiz a infeliz citação,e Mauro mais uma vez obrigado, já me deu a dica para não usar caixa alta.

Mauro seria possivel comentar esse código para que eu saiba o que cada parte dele faz e assim conseguir entender e adaptar? Vou tentando mesmo assim.

 
Postado : 21/04/2012 6:00 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

muito obrigado a todos

 
Postado : 22/04/2012 1:16 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Desculpem-me se ofendi alguem , foi exatamente o que o Mauro disse ,na ancia.... para dar um UP e sem saber como dar o UP, fiz a infeliz citação,e Mauro mais uma vez obrigado, já me deu a dica para não usar caixa alta.

Mauro seria possivel comentar esse código para que eu saiba o que cada parte dele faz e assim conseguir entender e adaptar? Vou tentando mesmo assim.

Claudinei, a melhor maneira de se entender o que os códigos estão realizando, é utilizarmos o Recurso Passo a Passo. para isto, abra o editor do VBA, escolha a rotina que quer e vá teclando "F8", verá que a cada pressionamento da tecla, umalinhafica em selecionadae em amarelo, é a linha que está sendo executada, então passe o mouse sobre as variáveis e irá ter as informações, e dependendo da ação, se o editor do vba não estiver maximizado, poderá ver na planilha as alterações irem acontecendo.

[]s

 
Postado : 22/04/2012 1:59 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Matou a Pau ... Muitissimo obrigado

 
Postado : 22/04/2012 2:05 pm
Página 2 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico