Trabajar debajo del formulario
Publicado por Marcelo (2 intervenciones) el 05/06/2006 03:56:36
Necesito saber como trabajar (seleccionar celdas, escribir datos) en una hoja de excel mientras tengo un formulario activo.
Tengo un formulario con tres opciones, que según la elección me cambian el color de la celda que seleccione.
Estoy trabajando con una imagen puesta como fondo de la hoja y quiero que el formulario quede activo y asi poder elegir otro color (de la opciones del formulario) sin tener que cerralo y abrirlo.
'Esta es la parte del formulario, según la elecion devuelve un valor a la celda a1000, que se refiere a un colorindex para darle color a la celda que seleccione
Private Sub OptionButton1_Click()
Range("a1000") = 6
Unload UserForm1
End Sub
Private Sub OptionButton2_Click()
Range("a1000") = 8
Unload UserForm1
End Sub
Private Sub OptionButton3_Click()
Range("a1000") = 10
Unload UserForm1
End Sub
'Cada vez que cambio la seleccion, pinto las celdas según el nro de color de la celda a1000.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Selection.Interior
.ColorIndex = Range("a1000")
End With
End sub
Si no pongo el "unload userform1" no puedo trabajar en la hoja, pero tengo que activarlo nuevamente cada vez que quiero cambiar de color. Se entiende el problema?
Saludos
Tengo un formulario con tres opciones, que según la elección me cambian el color de la celda que seleccione.
Estoy trabajando con una imagen puesta como fondo de la hoja y quiero que el formulario quede activo y asi poder elegir otro color (de la opciones del formulario) sin tener que cerralo y abrirlo.
'Esta es la parte del formulario, según la elecion devuelve un valor a la celda a1000, que se refiere a un colorindex para darle color a la celda que seleccione
Private Sub OptionButton1_Click()
Range("a1000") = 6
Unload UserForm1
End Sub
Private Sub OptionButton2_Click()
Range("a1000") = 8
Unload UserForm1
End Sub
Private Sub OptionButton3_Click()
Range("a1000") = 10
Unload UserForm1
End Sub
'Cada vez que cambio la seleccion, pinto las celdas según el nro de color de la celda a1000.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Selection.Interior
.ColorIndex = Range("a1000")
End With
End sub
Si no pongo el "unload userform1" no puedo trabajar en la hoja, pero tengo que activarlo nuevamente cada vez que quiero cambiar de color. Se entiende el problema?
Saludos
Valora esta pregunta


0