[RESOLVIDO]excluir varios cadastros ao mesmo tempo - listview
Enviado: Ter Fev 20, 2018 10:45 pm
Fiz um sistema de cadastro no Excel Utilizando VBA e estou com o seguinte problema:
Gostaria de saber como posso excluir varios clientes ao mesmo tempo, apenas marcando na checkbox da listview e excutando o comando para excluir..
Atualmente so consigo excluir apos clicar no cliente, ai os dados sao lançados nas textbox, e depois executo o comando para excluir.
Segue o comando que uso para excluir e tbm estou enviando a planilha, quem puder me ajudar agradeço bastante, pois so falta isso para concluir meu projeto e evoluir no meu conhecimento em VBA.
Dim Linha As Long
Dim ID As String
Linha = 2
ID = txt_id
Plan4.Activate
Do Until Plan4.Cells(Linha, 1) = ""
'condição para localizar o código
If Plan4.Cells(Linha, 1) = ID Then
Plan4.Cells(Linha, 1).Select
Dim Resposta As String 'cria a variável resposta
Resposta = MsgBox("O registro será excluído. Confirma a exclusão?", vbYesNo + vbDefaultButton2, Soft) 'cria a mensagem para determinar qual ação será executada
If Resposta = vbYes Then ' se a resposta for sim então
'comando para deletar toda a linha
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
'limpa todos os campos do formulário
MsgBox "Dados excluídos com sucesso!", vbInformation, "SISTEMA INFORMA"
Unload Me
frmMenu.Show
Else
End If
End If
Linha = Linha + 1
Loop