Macros celda variable
Hola! Necesitaba hacer una macro que pinte de rojo desde la celda a1 y el numero de fila final del rango sea variable y dependa de un valor cargado en la celda c1, por ejemplo si en la celda c1 se agrega el valor 10, al ejecutarse la amcro debe pintar de rojo el rango comprendido entre a1:a10
Respuesta de calvuch
1
Inserta un modulo en tu libro ( desde el editor de visual basic ALT + F11), en ese modulo pegas este macro:
Sub color()
Range("A:A").Font.color = 0
If [c1] > 0 Then Range("A1" & ":" & "A" & [c1]).Font.color = 255
End Sub
Luego desde el editor de visual basic dale doble click a la hoja en que deseas correr el macro ( elijes la hoja desde la barra lateral izquierda, allí encuentras los objetos del libro "hojas" y "modulos", form, etc)
una vez abierto el editor que corresponde a esa hoja pegas este macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
color
End If
End Sub
Ahora grabas el libro y ya.
Como veras tienes un macro en un modulo general, se llama color y la llamada la tienes en el evento change de la hoja.
Ahora cada vez que pongas un numero en C1 el macro "color" pondrá la fuente del texto en rojo tantas filas como valor tienes en C1.
No olvides CERRAR la pregunta.
Sub color()
Range("A:A").Font.color = 0
If [c1] > 0 Then Range("A1" & ":" & "A" & [c1]).Font.color = 255
End Sub
Luego desde el editor de visual basic dale doble click a la hoja en que deseas correr el macro ( elijes la hoja desde la barra lateral izquierda, allí encuentras los objetos del libro "hojas" y "modulos", form, etc)
una vez abierto el editor que corresponde a esa hoja pegas este macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
color
End If
End Sub
Ahora grabas el libro y ya.
Como veras tienes un macro en un modulo general, se llama color y la llamada la tienes en el evento change de la hoja.
Ahora cada vez que pongas un numero en C1 el macro "color" pondrá la fuente del texto en rojo tantas filas como valor tienes en C1.
No olvides CERRAR la pregunta.
