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

Excluir dado de Planilha através de listbox

 
2024 - VBA & Macros
Post Recente por Schramm 9 anos atrás
5 Posts
2 Usuários
0 Reactions
1,077 Visualizações
RSS
 Schramm
(@schramm)
Posts: 0
New Member
Topic starter
 

Boa noite amigos! Estou com uma certa dificuldade quando vou excluir um dado da minha planilha através de uma listbox, eu consigo excluir o dado, porém, gostaria que a célula fosse deslocada para cima, evitando espaços em branco na planilha. No meu exemplo, cada coluna é independente então tem que deslocar apenas a célula da coluna em questão.. Outra coisa, no meu exemplo tenho "Óleo mineral" cadastrado antes do "Óleo", se eu tentar excluir o ítem "Óleo" ele exclui o "Óleo Mineral" pois foi cadastrado primeiro, acredito que seja por que a primeira palavra é igual...

Alguém consegue me ajudar? Obrigado desde já :D

Segue em anexo a planilha e userform

 
Postado : 16/04/2016 5:05 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Na rotina

Private Sub Botão_Excluir_Tipo_Produto_Click()
Troque a linha de pesquisa :
Troque esta:
Set rng = .Columns(X).Find(Me.Caixa_Descrição.Text)

por esta :
Set rng = .Columns(X).Find(Me.Caixa_Descrição.Text, LookAt:=xlWhole)

Faça os testes e qq coisa retorne.

[]s

 
Postado : 16/04/2016 7:47 pm
 Schramm
(@schramm)
Posts: 0
New Member
Topic starter
 

Boa noite Mauro, a questão de excluir "Óleo" ao invés de "Óleo Mineral" talvez pela primeira palavra ser igual foi resolvida, porém, as células não estão se deslocando cada vez que um dado é excluído, deixando espaço em branco se um dado do "meio" for excluído, gostaria que as células da coluna fossem movidas para cima ao excluir um itém, não deixando espaço em branco.

 
Postado : 16/04/2016 8:15 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Troque :
Esta linha
rng.Value = "" 'Me.Caixa_Descrição.Text

Por estac:
rng.Delete Shift:=xlUp

 
Postado : 16/04/2016 8:31 pm
 Schramm
(@schramm)
Posts: 0
New Member
Topic starter
 

Funcionou Mauro, muito obrigado pela ajuda novamente!

 
Postado : 17/04/2016 12:01 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico