Notifications
Clear all

Deletar dados da Planilha pelo Listview

5 Posts
2 Usuários
0 Reactions
1,061 Visualizações
(@tnunes34)
Posts: 23
Eminent Member
Topic starter
 

Boa Tarde,
Eu fiz uma listview para cadastro de clientes e queria saber como eu faço pra deletar a linha de um cliente na planilha
Só consegui limpar no ListView, mas se eu fechar o userform e abrir de novo, os dados ficam lá.
Não sei se consegui explicar bem o que eu quis dizer.

Resumidamente: Quero que ao selecionar um item no listview e clicar no btnExcluir ele suma tanto da planilha quanto do UserForm

É possívelfazer isso no listview ou apenas no listbox?

 
Postado : 12/12/2016 1:44 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Faz um loop para localizar o item selecionado na propria planilha e apaga a linha

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 12/12/2016 1:48 pm
(@tnunes34)
Posts: 23
Eminent Member
Topic starter
 

Será que se eu colocar um if variavel=listview.selecteditem ele vai encontrar?

 
Postado : 12/12/2016 1:51 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Dentro de um loop provavelmente

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 12/12/2016 1:53 pm
(@tnunes34)
Posts: 23
Eminent Member
Topic starter
 

Dentro de um loop provavelmente

deu certo, usei um do until.
Nossa, eu to há 2 dias pensando em como fazer isso e a solução era mais simples que eu imagina...Praticamente eu faço um loop pra quase tudo, só que antes de postar não me veio essa ideia a cabeça! Kkkkk
Muitissimo obrigado,

Pra quem estiver com a mesma dúvida que eu, segue o meu procedimento

Private Sub CommandButton7_Click()
 Dim linvar As Long
 Dim coluna As Long
 Dim sItem As Long
linvar = 2
 
 Do Until Sheets("Ficha de Clientes").Cells(linvar, 1) = Me.ListView1.SelectedItem
 linvar = linvar + 1
 Loop
 
 Sheets("Ficha de Clientes").Cells(linvar, 1).EntireRow.ClearContents
     With ListView1
        sItem = .SelectedItem.Index
        .ListItems.Remove (sItem)
    End With
    
End Sub
 
Postado : 12/12/2016 2:01 pm