Procurar o valor de uma célula

2024 - VBA & Macros

Post Recente por mroliv 5 anos atrás

3 Posts

1 Usuários

0 Reactions

921 Visualizações

RSS

mroliv

(@mroliv)

Posts: 3

New Member

Topic starter

Bom dia,
Estou tentando procurar em uma outra Aba, os valores de um intervalo, com o seguinte código:

Dim rng As Range: Set rng = Application.Range("Planilha3!A1:A60")
Dim cel As Range
Oi = cel.Value
For Each cel In rng.Cells
    With cel
        Sheets("Visão Parcela").Select
        Range("A1").CurrentRegion.Select
        Cells.Find(What:=Oi, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
    End With
Next cel

Porém, ele não está procurando este valor.

Postado : 27/11/2019 8:14 am

mroliv

(@mroliv)

Posts: 3

New Member

Topic starter

É exatamente essa a idéia.
Existem duas abas, sendo ela "Visão Parcela" e "Visão Pasta".
Estou correndo meu código na Visão Pasta, e descobrindo dois valores "30" e "50", sendo que estes ficam na Coluna A das duas Abas.
O que precisa ser feito é procurar esses valores na Coluna A da Aba "Visão Parcela" e se encontrar, excluir toda a linha.

E, da maneira que voce propos, também não deu certo, já havia tentado.
Não dá erro, mas é selecionada a celula "CE1", que é a primeira célula fora da currentregion

Postado : 27/11/2019 8:34 am