(macros) Encontrar un valor en una selección en Word
Sub busca()
Set mirango = Range(ActiveCell,ActiveCell.Cells(Selection.Rows.Count,Selection.Columns.Count))
loquebusco = Application.InputBox(prompt:="¿qué buscas?", Type:=3)
Set c = mirango.Find(loquebusco, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Range(c.Address).Select
MsgBox ("Se econtró en " & c.Address)
Set c = mirango.FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End Sub
(macros) Encontrar un valor en una selección en Word