Este fórum está sendo desativado

[perdidoexcel]

Boa tarde, não sei mexer com Vba e estou fazendo um trabalho pra faculdade.
Eu quero que o usuário digite um valor na A1 por exemplo e através de um if comparar se esse valor existe em uma determinada coluna, se não existir retorna erro, então eu fiz assim mais sei que está errado:
Linha = 4
If Cells(Linha, 2) = "F(22:32)" Then
MsgBox (" Ok. ")
Else
MsgBox (" Valor incorreto, digite um numero valido e Clique em Começar.")
End If

Alguém pode me ajudar?

[LeoHenrique]

Boa tarde !

Pelo que precisa, acredito que não há necessidade de um código, veja se a fórmula na planilha em anexo te atende !

Att,

Leandro Moreira

[babdallas]

Veja se ajuda

Código: Selecionar todos

Option Explicit
Option Private Module

Public Sub ProcurarValor()
    With wshTeste
        If Application.WorksheetFunction.CountIf(.Range("F6:F20"), .Range("A1")) > 0 Then
            VBA.MsgBox "OK"
        Else
            VBA.MsgBox "Valor incorreto! Digite um numero válido na célula A1 e clique no botão Começar."
        End If
    End With
End Sub