Excel vba

[Netrox92]

Ola

tenho uma duvida e acredito que a resposta seja fácil.

no vba o seguinte cód faz com que seja selecionada a celula "G100" e vai subindo até chegar em alguma celula que não esteja vazia:

Range("G100").End(xlUp).Rows.Select

A minha pergunta é a seguinte:

Existe algum cód que faça a mesma coisa, porém que pare de subir quando encontrar um valor expecifico?

Exemplo:

Na coluna "G" existem varios valores, eu quero que vá subindo até encontrar uma celula onde o valor é "Em aberto"

abraços

[zinhovba]

Boa noite!!

Eu não sei se vai lhe agradar

Sub SelecionarValorDesejado()
    Dim l As Long
    l = Application.WorksheetFunction.Match("Em aberto", Range("A1:A100"), 0)
    MsgBox "Encontrado 'Em aberto' na linha : " & l
End Sub

[Netrox92]

Ola zinhovba,

Obrigado pela resposta,

É quase isso.

porém quando eu tava fazendo uma planilha de exemplo para postar aqui, eu consegui criar o código que eu precisava.

Estou postando o código que eu fiz caso ajude alguem.

Dim i, NotFound As String

For h = 10 To 109

Range("h" & h).Select

On Error Resume Next

Linha = ActiveCell.Row

If Range(Cells(Linha, 8), Cells(Linha, 8)).Value = "Em aberto" Then

i = Range(Cells(Linha, 6), Cells(Linha, 6)).Value

NotFound = NotFound & i & ","

Else

End If

Next h

If NotFound = "" Then MsgBox "Nenhuma etiqueta para jogar fora", vbInformation, "Aviso": Exit Sub

MsgBox "Jogue fora as etiquetas:" & Chr(13) & Chr(13) & NotFound, vbExclamation, "Atenção"

Obrigado mais uma vez,

Abraço

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.