Buscar un Valor en un Rango de Celda en EXCEL
Posted: Tue Mar 17, 2015 12:38 pm
amigos nuevamente por aca, solicito su ayuda. como puedo pasar esto a fw
Public rango As String, valorbuscado As String
Sub Encontrarvalores()
Dim resultado As Range
Dim primerabusqueda As String
Dim contador As Double
Set resultado = Range(rango).Find(valorbuscado, , xlValues, xlWhole, xlByColumns, xlNext, False, , False)
If resultado Is Nothing Then
MsgBox "No se encontraron coincidencias."
Else
primerabusqueda = resultado.Address
Do
contador = contador + 1
resultado.Interior.ColorIndex = 10
resultado.Font.ColorIndex = 2
Set resultado = Range(rango).FindNext(resultado)
Loop While Not resultado Is Nothing And resultado.Address <> primerabusqueda
If contador = 1 Then
MsgBox "Se encontrĂ³ " & contador & " coincidencia."
Else
MsgBox "Se encontrĂ³ " & contador & " coincidencias."
End If
End If
End Sub
Quiero buscar un valor en una planilla excel.
Saludos
Public rango As String, valorbuscado As String
Sub Encontrarvalores()
Dim resultado As Range
Dim primerabusqueda As String
Dim contador As Double
Set resultado = Range(rango).Find(valorbuscado, , xlValues, xlWhole, xlByColumns, xlNext, False, , False)
If resultado Is Nothing Then
MsgBox "No se encontraron coincidencias."
Else
primerabusqueda = resultado.Address
Do
contador = contador + 1
resultado.Interior.ColorIndex = 10
resultado.Font.ColorIndex = 2
Set resultado = Range(rango).FindNext(resultado)
Loop While Not resultado Is Nothing And resultado.Address <> primerabusqueda
If contador = 1 Then
MsgBox "Se encontrĂ³ " & contador & " coincidencia."
Else
MsgBox "Se encontrĂ³ " & contador & " coincidencias."
End If
End If
End Sub
Quiero buscar un valor en una planilla excel.
Saludos