Macro para buscar valor de la celda A5 (lista) en la fila 1 (j:bt)

Hola Dante veo que sabes mucho de Macros, te consulto como hago para buscar el valor de A5 (que depende de una lista desplegable) en la fila 1 (j:bt) y que si lo encuentra modifique el relleno de la celda en la que se repite (color de relleno blanco). GRACIAS!!

1 Respuesta

Respuesta
2

Qué es J:BT? ¿Son las columnas?

¿Se va a repetir varias veces el valor que tienes en la celda A5?

Si es así, te anexo la macro

Sub rellenar()
'Por.Dante Amor
    Set h = ActiveSheet
    Set r = h.Rows(1)
    Set b = r.Find(h.[A5], lookat:=xlWhole)
    If Not b Is Nothing Then
        ncell = b.Address
        Do
            b.Interior.Color = vbWhite
            Set b = r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> ncell
    End If
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas