Procurar em coluna

Como pintar uma célula, como formatar uma borda, funções básicas! Se você não sabe em que categoria postar a sua dúvida, escreva aqui que depois nós mudamos o tópico.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Re: Procurar em coluna

Mensagempor tiago21 » Sex Out 05, 2018 3:03 pm

Não tem como limitar ? fazer da linha 1 até a linha 1000 ?
tiago21
Membro
Membro
 
Mensagens: 37
Registrado em: Seg Out 09, 2017 11:27 am
Has thanked: 10 times
Have thanks: 0 time

{ SO_SELECT }

Re: Procurar em coluna

Mensagempor xlarruda » Sex Out 05, 2018 3:14 pm

Até dá , mas acho que vai perder um pouco de sentido a rotina...

De qualquer forma, segue:

Código: Selecionar todos
Option Explicit

Sub Verificar_e_apagar()
Dim ul, ul2, i, j, contagem, lin_ini As Long
Dim cel As Variant
Dim verif_col As String
Dim Temp_ini As Date
Application.ScreenUpdating = False
verif_col = "A" 'COLUNA A VERIFICAR
lin_ini = 2 'LINHA INICIAL DOS DADOS
Temp_ini = Time
inicio:
contagem = 0
ul = Plan1.Range(verif_col & 1000).End(xlUp).Row

For i = lin_ini To ul
ul2 = Plan1.Range(verif_col & 1000).End(xlUp).Row
    For j = ul2 To lin_ini Step -1
        Select Case Plan1.Range(verif_col & j).Value
            Case Is = Plan1.Range(verif_col & i).Value * -1 _
                        And Plan1.Range(verif_col & j).Address <> Plan1.Range(verif_col & i).Address
                       Plan1.Range(verif_col & j).EntireRow.Delete
                       Plan1.Range(verif_col & i).EntireRow.Delete
                       
        End Select
         
    Next j
   

Next i
Application.ScreenUpdating = True

MsgBox "Feito!" & vbNewLine & "Tempo de execução: " & WorksheetFunction.Text(Time - Temp_ini, "HH:MM:SS"), vbInformation
End Sub
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 761
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 95 times
Have thanks: 306 times

Re: Procurar em coluna

Mensagempor tiago21 » Sex Out 05, 2018 4:13 pm

pois é. acho que não funcionou. muito pesado. não roda.
tiago21
Membro
Membro
 
Mensagens: 37
Registrado em: Seg Out 09, 2017 11:27 am
Has thanked: 10 times
Have thanks: 0 time

Re: Procurar em coluna

Mensagempor xlarruda » Sex Out 05, 2018 4:46 pm

Desmarque o resolvido ou crie um novo tópico.
Quem sabe alguém dá uma outra solução para esse problema.



Abrç!
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 761
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 95 times
Have thanks: 306 times

Anterior

Voltar para Excel - O básico

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante