none
Box de erro RRS feed

  • Pergunta

  • Olá,

    Estou com a Macro abaixo, que fiz, porém nao estou conseguindo colocar uma msg de erro caso nao encontre nenhum resultado, como devo complementar?


    Sub Procurar()

    ' Atalho do teclado: Ctrl+p


        Cells.Find(what:=InputBox("Digite o nome da empresa"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate

    End Sub

    segunda-feira, 18 de maio de 2015 18:13

Respostas

  • Tenta assim:

      Dim strEmpresa As String
      Dim empresa As Range
      
      strEmpresa = InputBox("Digite O Nome Da Empresa:")
      
      Set empresa = Sheets("Plan1").Range("A2:A10").Find(strEmpresa, lookat:=xlWhole)
      If empresa Is Nothing Then
        MsgBox "Empresa Não Localizada!"
      Else
        empresa.Activate
      End If
    


    Natan

    • Marcado como Resposta Rodrigo Lisboa segunda-feira, 18 de maio de 2015 20:19
    segunda-feira, 18 de maio de 2015 18:20

Todas as Respostas

  • Tenta assim:

      Dim strEmpresa As String
      Dim empresa As Range
      
      strEmpresa = InputBox("Digite O Nome Da Empresa:")
      
      Set empresa = Sheets("Plan1").Range("A2:A10").Find(strEmpresa, lookat:=xlWhole)
      If empresa Is Nothing Then
        MsgBox "Empresa Não Localizada!"
      Else
        empresa.Activate
      End If
    


    Natan

    • Marcado como Resposta Rodrigo Lisboa segunda-feira, 18 de maio de 2015 20:19
    segunda-feira, 18 de maio de 2015 18:20
  • Deu certo sim, vlw cara!

    segunda-feira, 18 de maio de 2015 20:19