VBA Excel - Encontra a palavra e destaca a Linha - Highlighting a row


Inline image 2
Blog Office VBA | Blog Excel | Blog Access |

Busque pela palavra na planilha.

Sub SearchWord()
Let nWord = InputBox("Digite a palavra", _
".: A&A",  "Palavra:")

If nWord = cancel Then ' Cancel
    Exit Sub
End If

Cells.Find(_
What:=nWord, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False_
).Select

MsgBox "A Palavra (" & nWord & ") foi localizada", _
vbInformation, _
".: A&A"
End Sub

Reference:

Tags: VBA, Excel, highlighting, search, row

Nenhum comentário:

Postar um comentário

diHITT - Notícias