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á!
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
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??
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
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!!
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
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??
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
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!
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
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
Bernardo,
Brigadão veii, ficou perfeito!!
Agora sim, posso dar continuidade no meu projeto Rssss
Vlw D+++ sua ajuda e aprendizado...
Abraço!!
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
Tahh! Baixei este último...
Deu erro ao adicionar novo registro. 
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