Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
ListView Exclusão p...
 
Notifications
Clear all

ListView Exclusão pela Coluna (E)

 
Página 1 / 4
2024 - VBA & Macros
Post Recente por jcgmc 10 anos atrás
49 Posts
2 Usuários
0 Reactions
12.8 K Visualizações
RSS
 jcgmc
(@jcgmc)
Posts: 71
Trusted Member
Topic starter
 

Bom dia a Todos,

Tenho o seguinte código que faz a exclusão na Listview e na planilha conforme a seleção da linha desejada na Listview:

Private Sub btExcluir_Click()

    ultimaLinha = Plan30.Cells(Plan30.Cells.Rows.Count, "b").End(xlUp).Row + 1
    For i = 2 To ultimaLinha
            If txtCodHistorico2 = Plan30.Cells(i, 2) Then
        
            Plan30.Cells(i, 2).EntireRow.Delete
            
            Exit For
        End If
    Next
    
    For i = 1 To Listview1.ListItems.Count
    
        If Listview1.ListItems.Item(i) = txtCodHistorico2 Then
           Listview1.ListItems.Remove Listview1.ListItems(i).Index
            
            MsgBox ("Excluído com Sucesso")
            
            Exit For
        End If
    Next

End Sub

Bem, não estou conseguindo fazer com que a Exclusão se faça por como base, a coluna (E) e não pela coluna (B)
Os amigos podem me ajudar a solucionar isso??
Obrigado desde já!

 
Postado : 16/06/2015 4:00 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia jcgmc,

Altere essa parte do código:

If txtCodHistorico2 = Plan30.Cells(i, 2) Then

por

If txtCodHistorico2 = Plan30.Cells(i, 5) Then

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/06/2015 6:19 am
 jcgmc
(@jcgmc)
Posts: 71
Trusted Member
Topic starter
 

Bernardo,
Agradecido mas isso eu já fiz. Tdo q se referencia a coluna, alterei pra 5
Com alterações, o código não responde e nem dá nenhum erro.

Oque fazer??

 
Postado : 16/06/2015 7:55 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Cara, não executa nada do código?
Tem como disponibilizar um modelo da planilha?
Fica difícil visualizar assim.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/06/2015 8:49 am
 jcgmc
(@jcgmc)
Posts: 71
Trusted Member
Topic starter
 

Bernardo, Blzz
Segue aee o anexo Ok!!

Como está, a exclusão se baseia na coluna B, eu preciso que seje pela coluna E, tndeu!!
:)

 
Postado : 16/06/2015 10:31 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Cara, esse é um dos problemas de se não declarar variáveis.

Private Sub btExcluir_Click()

ultimaLinha = Plan30.Cells(Plan30.Cells.Rows.Count, "b").End(xlUp).Row + 1
    
    For i = 5 To ultimaLinha
        If Int(txtLinha) = Plan30.Cells(i, 5) Then
            Plan30.Range(i & ":" & i).EntireRow.Delete
            Exit For
        End If
    Next
    
    For i = 1 To Listview1.ListItems.Count
        If Listview1.ListItems.Item(i) = txtCodHistorico2 Then
            Listview1.ListItems.Remove Listview1.ListItems(i).Index
            MsgBox ("Excluído com Sucesso")
            Exit For
        End If
    Next

End Sub

Coloca isso e faz o teste...

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/06/2015 11:05 am
 jcgmc
(@jcgmc)
Posts: 71
Trusted Member
Topic starter
 

Bernardo brigadaum veii...
Eu ainda to engatinhando no VBA Rsss
Um outro erro q ocorre, é qdo eu adiciono uma nova linha com dados, ele até cadastra certinho, mas na planilha em E, ele adiciona uma contagem a mais. Como corrigir isso??

 
Postado : 16/06/2015 11:38 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Segue uma pequena alteração.

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/06/2015 12:54 pm
 jcgmc
(@jcgmc)
Posts: 71
Trusted Member
Topic starter
 

Bom dia Bernardo!
Tahh ficando ótimo...
Porém, queria tirar essas linhas abaixo, pra não ter que fechar e abrir o Form novamente pra ocorrer a atualização na Listview

Unload Me
Userform1.Show

Tem como fazer essa atualização na Listview de forma automática?
Abraço!

 
Postado : 17/06/2015 8:52 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Vê se ajuda cara.

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/06/2015 10:16 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

jcgmc, pode me ter passado alguma coisa batido, mas agora ajeitei bastante o código.
Depois é só incrementar algo.

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/06/2015 12:00 pm
 jcgmc
(@jcgmc)
Posts: 71
Trusted Member
Topic starter
 

Bernardo,
Brigadão veii, ficou perfeito!!
Agora sim, posso dar continuidade no meu projeto Rssss
Vlw D+++ sua ajuda e aprendizado...
Abraço!! :)

 
Postado : 17/06/2015 1:57 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Você baixou somente a correção que pediu.
O último arquivo não foi baixado.

Dá uma olhada depois.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/06/2015 2:07 pm
 jcgmc
(@jcgmc)
Posts: 71
Trusted Member
Topic starter
 

Tahh! Baixei este último...
Deu erro ao adicionar novo registro. :(

 
Postado : 17/06/2015 3:12 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia jcgmc,

Qual a versão do seu Office?
Me fala qual linha está apresentando esse erro.

Aqui está funcionando normalmente.

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/06/2015 6:01 am
Página 1 / 4
Forum Jump:
  Tópico Anterior
Próximo Tópico