Bucle en Excel
¿Cómo puedo hacer un bucle en una macro para que se ejecute desde la primera hasta la ultima fila de la hoja excel?
Gracias.
Gracias.
1 Respuesta
Respuesta de javigo
1
Disculpa el retraso.
Te mando un ejemplo que va seleccionando cada celda de la columna A y le cambia el color.
Sub Macro1()
For Each cell In Range("a:a")
With cell.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Next cell
End Sub
Si necesitas cualquier aclaración no dudes en continuar la pregunta.
Te mando un ejemplo que va seleccionando cada celda de la columna A y le cambia el color.
Sub Macro1()
For Each cell In Range("a:a")
With cell.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Next cell
End Sub
Si necesitas cualquier aclaración no dudes en continuar la pregunta.
Cuando digo ultima fila me refiero a ultima fila que contenga datos, no ultima fila del excel.
Prueba con esto, tal vez te sirva mejor:
Sub CambiaColor()
'
ActiveSheet.Range("A1").Activate
Do While Not IsEmpty(ActiveCell)
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Sub CambiaColor()
'
ActiveSheet.Range("A1").Activate
Do While Not IsEmpty(ActiveCell)
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
