Recorre compara y colorea filas




Esta es una macro que recorre filas por filas determinando si el valor de la misma, que es una hora determinada, es mayor a cero en ese caso colorea la fila con color amarillo, es parecido a formulario que colorea celdas, la diferencia es que en este último el dato es introducido por medio de un formulario, una vez encontrado se posiciona en la celda y la colorea, si lo que se desea es recorrer filas y hacer determinados procesos, tal vez te sirva esta macro que recorre filas y rellena con ceros las celdas vacías ó recorrer filas y llenar las celdas vacías con el número o texto de la última celda con datos encontrada.

Existen excelentes libros que te enseñan como se usa Excel, en caso que no poseas o quieras profundizar los conocimientos sobre este aplicativo, te aconsejo que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá.
MASTERCARD PAYONEER


Al presionar el botón corre una macro que recorre celda por celda de la columna A en caso que el valor sea mayor a un valor dado, se pinta la celda de color amarillo; en este ejemplo los valores que están en la columna son de tipo hora, la macro va determinando si el valor de la celda es mayor a las 00:00 hs. en ese caso procede a pintar la fila de color.

Con este ejemplo también se puede observar como se puede hacer un bucle con While ... Wend, también se usa With  ... End With.

Desde el link del final se puede descargar el archivo de ejemplo, podrás ver su codificación, la misma no tiene ningún tipo de restricciones, pudiéndose adaptar a lo que necesita cada usuario en particular. El código de VBA o Macro de Excel recorre las filas y las colorea en caso de cumplirse una condición dada.


Código que se debe insertar en un módulo



Sub rellena()
Application.ScreenUpdating = False

On Error Resume Next
Dim uf, fila As Integer
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
fila = 2
While Sheets("hoja1").Cells(fila, 1) <> Empty
cadena = Sheets("hoja1").Cells(fila, 1)
esp = InStr(cadena, " ")
dato = Mid(cadena, esp)
dato = Val(dato)

     
If dato > 0 Then
 Sheets("hoja1").Rows(fila).Select
      With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
      End With
 End If
fila = fila + 1
dato = Empty
Wend
Application.ScreenUpdating = True

End Sub




Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends