Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
khaw

Ajuda com excel

Mensagem Recomendada

No código abaixo (que busca os nomes das planilhas que possuem determinado valor na coluna A) eu gostaria de acrescentar um argumento, se o valor for encontrado na coluna A a busca só me retornará o nome da planilha caso na mesma linha em que está o valor tiver a letra F na coluna C.

 

Alguém poderia me ajudar? Grato.

 

 

Sub localiza()
Application.ScreenUpdating = False
achei = 0
linha = 4
Dim valor As String

valor = InputBox("Digite o código que deseja procurar:", "BUSCA")
Sheets("Inicial").Columns("A:B").Rows("4:100") = ""

If valor = "" Then
    MsgBox "Clique em Buscar e digite o código!"
   Exit Sub
End If

Dim planilha As Worksheet
For Each planilha In ActiveWorkbook.Worksheets
    Set RangeObj = Sheets(planilha.Name).Columns("A:A").Rows("5:100").Find(What:=valor, LookAt:=xlWhole)
    If RangeObj Is Nothing Then
    Else:
       Sheets("Inicial").Cells(linha, "A") = planilha.Name
       linha = linha + 1
       achei = achei + 1
    End If
Next planilha
If achei = 0 Then
    MsgBox "Nenhum possui este código!"
End If
End
End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Experimente acrescentando as linhas em vermelho.

 

...

     Else:
     
If Cells(Rangeobj.Row, 3).Value = "F" Then
        Sheets("Inicial").Cells(linha, "A") = planilha.Name
        linha = linha + 1
        achei = achei + 1
     
End If
    End If
...


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

.



Experimente acrescentando as linhas em vermelho.

 

...

     Else:
     
If Cells(Rangeobj.Row, 3).Value = "F" Then
        Sheets("Inicial").Cells(linha, "A") = planilha.Name
        linha = linha + 1
        achei = achei + 1
     
End If
    End If
...

 

Osvaldo, grato por sua resposta, no entanto não deu certo, a busca retorna sempre a msg "Nenhum possui este código" mesmo existindo.

Editado por khaw

''

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...