Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Excluir através do ...
 
Notifications
Clear all

Excluir através do listbox uma determinada aba da planilha

 
2024 - VBA & Macros
Post Recente por Carlos_MCZ 7 anos atrás
5 Posts
2 Usuários
0 Reactions
867 Visualizações
RSS
 Carlos_MCZ
(@carlos_mcz)
Posts: 0
New Member
Topic starter
 

Para cada imóvel que cadastro em uma Sheet ("Cad_imóvel") - crio também uma nova aba renomeada pelo mesmo nome do imóvel cadastrado.

Ex.: Foi cadastrado o imóvel "apt 101" na aba ("Cad_imóvel") - automaticamente é criado uma nova aba com o nome "apt 101".

Posteriormente vejo os cadastros através de uma listbox com base na aba("Cad_imóvel").

Gostaria de selecionar o imóvel através do listbox e ao clicar em um botão excluir - realizar a exclusão tanto do cadastro do imóvel, como também da aba do imóvel correspondente.

Se possível com a mensagem de confirmação de exclusão. Será que é possível tal procedimento?

 
Postado : 20/03/2018 6:28 pm
 klarc28
(@klarc28)
Posts: 0
New Member
 

Anexe o arquivo ou um arquivo de exemplo com todos os controles

 
Postado : 21/03/2018 4:33 am
 Carlos_MCZ
(@carlos_mcz)
Posts: 0
New Member
Topic starter
 

Obrigado pela dica.
Exemplo anexado.

 
Postado : 21/03/2018 7:46 am
 klarc28
(@klarc28)
Posts: 0
New Member
 
Private Sub btn_excluir_Click()
    If Me.ListBox_Excluir.ListIndex >= 0 Then
        Dim resp As VbMsgBoxResult
        resp = MsgBox("Confirmar Exclusão de Registro?", vbYesNo, "Excluir")
        If resp = vbYes Then
            Dim linha As Long
            Dim achou As Boolean
            achou = False
            linha = 2
            Dim valor As String
            valor = Me.ListBox_Excluir.List(Me.ListBox_Excluir.ListIndex, 1)
            While Sheets("Cad_Imovel").Range("B" & linha).Value <> "" And achou = False
                If Sheets("Cad_Imovel").Range("B" & linha).Value = valor Then
                    Application.DisplayAlerts = False
                    achou = True
                    Sheets(valor).Delete
                    Sheets("Cad_Imovel").Range("B" & linha).EntireRow.Delete
                    Application.DisplayAlerts = True
                    
                End If
                
                
                
                
                linha = linha + 1
            Wend
            
        End If
        
        
        
    End If
    Unload Me
    Frm_ExcluirDados.Show
    
End Sub
 
Postado : 21/03/2018 8:48 am
 Carlos_MCZ
(@carlos_mcz)
Posts: 0
New Member
Topic starter
 

Fantástico!!!
Muito obrigado.

 
Postado : 21/03/2018 9:04 am
Forum Jump:
  Tópico Anterior
Próximo Tópico