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.
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
