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

ListView Exclusão pela Coluna (E)

 
Página 2 / 4
2024 - VBA & Macros
Post Recente por jcgmc 9 anos atrás
49 Posts
2 Usuários
0 Reactions
12.7 K Visualizações
RSS
 jcgmc
(@jcgmc)
Posts: 0
New 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
 jcgmc
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Bom dia Bernardo,

Taum, minha versão é 2003 e o erro é em:
For Each myControl In Controls < Variável não definida >

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

Muito provavelmente no modulo está "Option Explicit"; assim todas as variaveis devem obrigatoriamente ser declaradas. Declare-as que o "erro/problema" deverá ser resolvido.

 
Postado : 18/06/2015 6:26 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Substitui a sub limpar por essa:

Private Sub btLimpar_Click()
Dim mycontrol   As Control
Dim nome_objeto As Variant

    For Each mycontrol In Controls
        nome_objeto = TypeName(mycontrol)
        If nome_objeto = "TextBox" Or nome_objeto = "ComboBox" Then
            mycontrol.Value = Empty
        End If
    Next

End Sub

Agora vai.

Qualquer coisa da o grito.
Abraço

 
Postado : 18/06/2015 6:29 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Grande Reinaldo.

Sim, eu inseri o Option Explicit, acho que fica melhor.

O estranho é que estava funcionando normalmente. Quando inseri um ponto de interrupção ele apresentou o erro da ausência de definição da variável.

Agora vai.

Qualquer coisa da o grito.
Abraço

 
Postado : 18/06/2015 6:32 am
 jcgmc
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Bernardo blzz!
O problema realmente foi resolvido Rss

Mas detalhe veii, preciso q os dados na planilha sejam como no exemplo q te enviei. Após B4, vc voltou tdo pra A1 :-(
Vc pode por gentileza, corrigir. Penei muito pra acertar essas Linhas e Colunas aee Kkkkk
Outra coisa, o Atualizar, tbém preciso q seje como o Excluir, pela coluna (E) ok!!

Abraço!
Carlos

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

Segue.

Qualquer coisa da o grito.
Abraço

 
Postado : 18/06/2015 8:57 am
 jcgmc
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Agora simm!! Rssss
Mas, botão Atualizar não funcionando... :(
??

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

Na sub "btAtualizar_Click", Substitui isso:

If Me.txtLinha.Value = wsBD.Cells(i, 5).Value Then

por:

If Int(Me.txtLinha.Value) = wsBD.Cells(i, 5).Value Then

Qualquer coisa da o grito.
Abraço

 
Postado : 18/06/2015 1:08 pm
 jcgmc
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Bernardo,
A substituição resolveu, porém, observe aee a Coluna E
Está reiniciando a contagem após o 4, sendo que teria de ser apartir de 1
Não tô conseguindo acertar isso... :(
??

 
Postado : 18/06/2015 3:31 pm
 jcgmc
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Ajudaee... :)

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

Ajudaee... :)

Jc, leia as regras do forum e evite fazer "UPs" e tópicos condicionado a cobrança de alguma ajuda solicitada.
Vendo seus tópico, você começou com um tipo de solicitação e foi bem atendido pelo colegas Bernardo, e no decorrer do mesmo, apareceram outras questões e mesmo assim o colega continuo a prestar ajuda.
Lembre-se, toda ajuda nos foruns são voluntárias, gratuitas e dependem de tempo disponivel de cada um, então aguarde pela ajuda e não cobre resultados e respostas.
Espero pela compreensão do colega e peço que este tipo de postagem não se repita.

Mauro Coutinho
Moderador
[]s

 
Postado : 19/06/2015 8:43 am
 jcgmc
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Desculpe Mauro,
Esqueci deste detalhe Rsss

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

Segue anexo.

As vezes acompanho pelo celular mas não da para mexer.

 
Postado : 19/06/2015 10:35 am
 jcgmc
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Tarde Bernardo!!
Taum, até consegui acertar a coluna E aki Rsss
Mas qdo clico em atualizar sem dados nenhum, dá este erro de Tipos Incompátiveis
If Int(Me.txtLinha.Value) = wsBD.Cells(i, 5).Value Then

??

 
Postado : 19/06/2015 11:21 am
 jcgmc
(@jcgmc)
Posts: 0
New Member
Topic starter
 

E tbém, qdo excluo uma linha qualker, a coluna E não está atualizando a contagem de forma automática.

Dá pra corrigir esses erros??
Brigadaum hein!!

 
Postado : 19/06/2015 11:28 am
Página 2 / 4
Forum Jump:
  Tópico Anterior
Próximo Tópico