Views

Histats

Vitrine

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


Inline image 2

Al


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

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...