Buscar y colorear
Buscar dentro de una hoja Excel un texto o numero y que me coloree todas las filas de las celdas donde este ese texto o numero
1 respuesta
Respuesta de bacter582
1
Como estas amigo, te dejo un modulo que te puede ayudar
Saludos
Bacter
Sub buscar_y_colorear()
Dim mirango As Range
Dim busqueda As String
busqueda = InputBox("Ingrese la palabra que busca")
Range("a1").Select
Set mirango = Range(ActiveCell, ActiveCell.SpecialCells(xlLastCell))
mirango.Select
For Each celda In mirango
If celda.Value = busqueda Then celda.Interior.ColorIndex = 6
Next
End Sub
Saludos
Bacter
Sub buscar_y_colorear()
Dim mirango As Range
Dim busqueda As String
busqueda = InputBox("Ingrese la palabra que busca")
Range("a1").Select
Set mirango = Range(ActiveCell, ActiveCell.SpecialCells(xlLastCell))
mirango.Select
For Each celda In mirango
If celda.Value = busqueda Then celda.Interior.ColorIndex = 6
Next
End Sub
