Jump to content

Macro Pintar Fila según Condición


dta2210

Recommended Posts

Hola a todos,

Les agradecería me ayuden a crear una Macro (Boton) que me permita Pintar la Fila según una condición, adjunto excel de ejemplo, lo que se necesita es lo siguiente:

- En la hoja "Base" existe una lista de Profesiones si estas se encuentran Habilitadas en la columna "A" de la hoja "Condición" entonces las Filas (hoja Base) se deben pintar de Amarillo, solo las filas de las profesiones que se encuentren en esa lista (hoja "Condicion").

*Si fuera posible pintar solo el rango de la fila, ejem: A:D hoja Base para que no se pinte hasta la ultima columna de esa fila les agradecería. 

MacroPintarFilaCondicion.xlsx

Link to post
Share on other sites

@dta2210 , puedes usar el siguiente código:
 

Sub profesiones()
Dim shOrigen As Worksheet
Dim uFo As Long, uFd As Long
Dim prof_hab, Item
Dim i%

Set shOrigen = Sheets("Condicion")

'Llenamos la matriz de profesiones habilitadas '
With shOrigen
    uFo = .Range("A" & Rows.Count).End(xlUp).Row
    prof_hab = .Range("A2:A" & uFo)
End With

'Comparamos las celdas en C con cada valor de la matriz '
For Each Item In prof_hab
i = 2
    Do While Cells(i, "C") <> ""
        If Item = Cells(i, "C") Then
            'Rellenamos en amarillo solo el rango '
            Range(Cells(i, "A"), Cells(i, "D")).Interior.Color = vbYellow
        End If
    i = i + 1
    Loop
Next Item

End Sub

 

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy