Você sabe tudo sobre o método Find no VBA?

[@explorarexcel]

SEGUEM ABAIXO OS CÓDIGOS DESTE VÍDEO: Sub Find_01() Dim Codigo As Integer Dim X As Variant Codigo = Range("B2").Value X = Range("B5:B100").Find(Codigo, , , xlWhole).Address MsgBox "O valor da variável X é : " & X End Sub '---------------------------------------------------------------------------------------------------- Sub Find_02() Dim Codigo As Integer Dim X(6) As Variant Dim Nome As String Codigo = Range("B2").Value Range("B5:B100").Find(Codigo, , , xlWhole).Select X(0) = Range("B5:B100").Find(Codigo, , , xlWhole).Address X(1) = Range("B5:B100").Find(Codigo, , , xlWhole).Row X(2) = Range("B5:B100").Find(Codigo, , , xlWhole).Column X(3) = Range("B5:B100").Find(Codigo, , , xlWhole).Interior.ColorIndex X(4) = Range("B5:B100").Find(Codigo, , , xlWhole).Comment.Text X(5) = Range("B5:B100").Find(Codigo, , , xlWhole).ColumnWidth X(6) = Range("B5:B100").Find(Codigo, , , xlWhole).RowHeight Nome = Selection.Name.Name MsgBox "Selecionamos a célula : " & X(0) & vbNewLine & _ "Sua linha é: " & X(1) & vbNewLine & _ "Sua coluna é: " & X(2) & vbNewLine & _ "Sua cor interna é: " & X(3) & vbNewLine & _ "Seu comentário é: " & X(4) & vbNewLine & _ "Sua largura é: " & X(5) & vbNewLine & _ "Sua altura é: " & X(6) & vbNewLine & _ "Seu nome é: " & Nome End Sub

[@edhermarco1]

♥♥♥

[@mardrimoura]

Olá Nilton Esse método *Find* é poderoso, tenho usado constantemente! Grato Marcelo Adriano

[@explorarexcel]

Realmente, muito útil.

[@explorarexcel]

Fiz a planilha para você, mandarei por e-mail. Os códigos "Zebra_Sim" e "Zebra_Não" estão no último módulo chamado "i_Zebra". Detalhe, todos os outros códigos foram modificados com as linhas abaixo para chamar o código "Zebra_Sim" caso este esteja ativo. If (Range("A11").Interior.Color = RGB(192, 192, 192) Or _ Range("A12").Interior.Color = RGB(192, 192, 192)) Then Call Zebra_Sim Atenciosamente; Nilton Castro.

[@mardrimoura]

@@explorarexcel Muito obrigado Nilton! Achei sensacional seu raciocínio!

[@explorarexcel]

@@mardrimoura Marcelo, fiz um vídeo a respeito , mas só irei postar em algumas semanas, pois vai entrar na fila dos vídeos programados. Abraços.

[@mardrimoura]

@@explorarexcel melhor ainda...

[@RodrigoFGLima]

A linha a mais no msgbox depois do comentário é porque no texto do comentário da célula possui mais de uma linha. *.Find*, tudo de bom!

[@explorarexcel]

Rodrigo, você tem razão. Fiz um teste aqui e realmente a mensagem ficou com uma linha a mais. Boa sacada. Valeu!