Saltar al contenido
Busqueda de Datos en Excel

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

Otros post de utilidad:

  1. Recuperar password de hoja bloqueada
  2. Abre explorador de archivo de Windows e inserta foto
  3. Abre explorador de archivo de Windows
  4. Combobox suma datos repetidos
  5. Busca un dato en todas las hojas de excel
  6. Combobox incrustado en Excel
  7. Formulario para insertar datos en hoja de excel
  8. Formulario de alera y envío de mail
  9. Tutoriales sobre VBA
  10. Llenar combobox y buscar datos
  11. Mensaje de Alerta y envío de mail con Excel
  12. Combobox que lista hojas de excel y las selecciona
  13. Busca un dato en todas las hojas de excel

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