Anónimo
Seleccionar Filas Con VB
Necesito buscar un dato especifico en varias celdas y que queden seleccionadas todas las celdas donde aparece el dato. El trabajo se realiza con buscar pero no se graba cuando quiero que se realice como macro. ¿Podrían colaborarme con una macro para hacer esto?
{"Lat":-19.3111433550646,"Lng":-74.53125}
1 respuesta
Respuesta de Elsa Matilde
1
Esta rutina te colorea la fila de las celdas encontradas.
Como opción dejé la posibilidad de seleccionar las celdas encontradas.
Sub buscaCeldas()
'dearrollada por Elsamatilde
dato = "ene" 'puede ser un valor de celda, inputbox u otro dato
Set busco = ActiveSheet.Cells.Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then
prim = busco.Address
Do
busco.EntireRow.Interior.ColorIndex = 6 'colorea la fila de amarillo
'permite guardar la ref de la celda encontrada y al final las selecciona a todas
cadena = cadena & busco.Address(False, False) & ", "
Set busco = ActiveSheet.Cells.FindNext(busco)
Loop While Not busco Is Nothing And busco.Address <> prim
cadena = Mid(cadena, 1, Len(cadena) - 2) 'para quitar la última coma
Range(cadena).Select
Set busco = Nothing
End If
End Sub
Como opción dejé la posibilidad de seleccionar las celdas encontradas.
Sub buscaCeldas()
'dearrollada por Elsamatilde
dato = "ene" 'puede ser un valor de celda, inputbox u otro dato
Set busco = ActiveSheet.Cells.Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then
prim = busco.Address
Do
busco.EntireRow.Interior.ColorIndex = 6 'colorea la fila de amarillo
'permite guardar la ref de la celda encontrada y al final las selecciona a todas
cadena = cadena & busco.Address(False, False) & ", "
Set busco = ActiveSheet.Cells.FindNext(busco)
Loop While Not busco Is Nothing And busco.Address <> prim
cadena = Mid(cadena, 1, Len(cadena) - 2) 'para quitar la última coma
Range(cadena).Select
Set busco = Nothing
End If
End Sub