Estrutura de Repetição excluir Linha inteira  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Estrutura de Repetição excluir Linha inteira

Mensagempor ericksant » Qua Jul 11, 2018 1:09 pm

Prezados,
bom dia,

Gostaria de criar uma macro onde seguisse a seguinte lógica... Caso o valor seja = 10,00 ou vazio, excluir a linha inteira...

Acho que vendo o anexo fica mais fácil de entender, coloquei como ficaria o resultado na planilha2....

Mais uma vez, Obrigado!
Você não está autorizado a ver ou baixar esse anexo.
ericksant
Membro
Membro
 
Mensagens: 94
Registrado em: Seg Mar 05, 2018 12:37 pm
Has thanked: 26 times
Have thanks: 1 time

{ SO_SELECT }

Re: Estrutura de Repetição excluir Linha inteira

Mensagempor ericksant » Qua Jul 11, 2018 3:18 pm

Amigos,

tentei fazer o seguinte...

Código: Selecionar todos
   

Sub teste()

Application.ScreenUpdating = False
   
    Dim UltimaLinha As Long
 
    UltimaLinha = Planilha1.Range("A" & Rows.Count).End(xlUp).Row

    For i = 1 To UltimaLinha
        If (Planilha1.Range("C" & i).Value = 10)  or (Planilha1.range("C"&i).value = "") Then
              Rows(i).Delete
        End If
    Next i
   
    MsgBox "Concluído!"

End Sub


Mas mesmo assim ele ignora as linhas sem valor e parte pra próxima...
ericksant
Membro
Membro
 
Mensagens: 94
Registrado em: Seg Mar 05, 2018 12:37 pm
Has thanked: 26 times
Have thanks: 1 time

Re: Estrutura de Repetição excluir Linha inteira

Mensagempor klarc28 » Qua Jul 11, 2018 3:20 pm

Mensagem apagada pelo usuário
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 968
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 404 times

Re: Estrutura de Repetição excluir Linha inteira

Mensagempor ericksant » Qua Jul 11, 2018 3:28 pm

Esse código até funciona, mas eu tenho que rodar ele 2x pra ele não deixar nenhuma linha com a coluna C sem valor...

Se você rodar ele 1x, ele deixa varias linhas com a coluna C sem valor, se rodar mais uma vez, ele faz a limpeza que tinha que ter feito anteriormente...

pq ?
ericksant
Membro
Membro
 
Mensagens: 94
Registrado em: Seg Mar 05, 2018 12:37 pm
Has thanked: 26 times
Have thanks: 1 time

Re: Estrutura de Repetição excluir Linha inteira  [Resolvido]

Mensagempor klarc28 » Qua Jul 11, 2018 3:40 pm

Primeira Versão

Código: Selecionar todos
Option Explicit

Sub teste()


Dim linha As Long

Dim linhas As Long

linhas = Range("A1").End(xlDown).Row

For linha = 2 To linhas - 1

If Plan1.Range("C" & linha).Value = 10 Or Plan1.Range("C" & linha).Value = "" Then
Plan1.Range("E" & linha).Value = "sim"

End If



Next linha
inicio:
linhas = Range("A1").End(xlDown).Row
For linha = 2 To linhas

If Plan1.Range("E" & linha).Value = "sim" Then
Plan1.Range("E" & linha).EntireRow.Delete
GoTo inicio
End If
Next linha


End Sub


Segunda Versão

Código: Selecionar todos
Option Explicit

Sub teste()


Dim linha As Long

Dim linhas As Long

linhas = Range("A1").End(xlDown).Row

For linha = 2 To linhas - 1

If Plan1.Range("C" & linha).Value = 10 Or Plan1.Range("C" & linha).Value = "" Then
Plan1.Range("C" & linha).Value = "sim"

End If



Next linha
inicio:
linhas = Range("A1").End(xlDown).Row
For linha = 2 To linhas

If Plan1.Range("C" & linha).Value = "sim" Then
Plan1.Range("C" & linha).EntireRow.Delete
GoTo inicio
End If
Next linha


End Sub

Você não está autorizado a ver ou baixar esse anexo.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 968
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 404 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 3 visitantes