Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Excluir dado do ite...
 
Notifications
Clear all

Excluir dado do item Combobox selecionado

 
2024 - VBA & Macros
Post Recente por BetoRubini 12 anos atrás
3 Posts
2 Usuários
0 Reactions
1,268 Visualizações
RSS
 BetoRubini
(@betorubini)
Posts: 57
Trusted Member
Topic starter
 

Tenho um combobox que quando seleciono algum dado transfere para os textboxs referentes a Id, Produto, Preço e Quantidade

Textbox7= Quantidade
Estou usando

Dim sair As String
If TextBox7.Value = 0 Then
sair = MsgBox(prompt:="O estoque desse produto acabou!  Deseja excluí-lo?", Buttons:=vbYesNo)
If sair = vbNo Then
Else
Call Excluir2
End If
End If

mas no "sub Excluir2" nao estou conseguindo fazer a linha a que o produto (selecionado no combobox1) seja excluida

 
Postado : 10/09/2012 8:49 pm
 Mikel Silveira Fraga
(@mikel-silveira-fraga)
Posts: 41
Eminent Member
 

Amigo BetoRubini, boa noite.

Fiz uma busca sobre o assunto que esta precisando resolver e acho q o link abaixo pode ajudar.

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=329578

Espero ter ajudado.

Abraços.

Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Mikel Silveira Fraga
E-mail: [email protected]
Skype: mikelsf

 
Postado : 10/09/2012 9:34 pm
 BetoRubini
(@betorubini)
Posts: 57
Trusted Member
Topic starter
 

è quase isso

If CboEventos.ListCount = 0 Then Exit Sub 'Verifica se o list tem registros
   If CboEventos.ListIndex < 0 Then Exit Sub 'Verifica se tem um item selecionado
   CboEventos.RemoveItem CboEventos.ListIndex 'Caso as condições acima sejam válidas, deleta o item selecionado
   If CboEventos.ListCount > 0 Then CboEventos.ListIndex = 0 'Se ainda existir itens, seleciona o primeiro

adequei esse código mas a unica ação é remover o item do listbox, preciso que ele seja removido da planilha

 
Postado : 11/09/2012 5:40 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico