ayuda urgente

08/06/2004 - 04:10 por Damian | Informe spam
hola, tengo que realizar una validacion,
tengo 3 option botton dentro de un cuadro de controles, y
al elegir uno(click)que se dispare una comprobracion ,
seria aplicarle un formato a una celda x,
no se como realizar este problema,
tendria que hacer una macro que al hacer click me
compruebe cual se selecciono y darle formato?, primero que
no se como accedo a una celda x, y despues vere si sale

Slds
Damian
 

Leer las respuestas

#1 Héctor Miguel
08/06/2004 - 08:39 | Informe spam
hola, Damian !

... tengo que realizar una validacion
... 3 option botton dentro de un cuadro de controles,
... al elegir uno ... aplicarle un formato a una celda x
... macro que ... compruebe cual se selecciono y darle formato?
... no se como accedo a una celda x, y despues vere si sale



1°- suponiendo que para los optionbutton y 'el cuadro' usaste la barra de herramientas formularios...
los tres botones 'deben' estar 'asociados' =>todos<= a una misma celda [p.e. 'A1']
=>'click-derecho' / formato de control / [pestaña] control -> vincular con la celda...< y segun el boton que se 'clicka', en esa celda 'queda' su 'indice' [1, 2 o 3]
2°- para tener acceso a una celda 'x'... [solo] haz referencia 'a ella' [en el codigo] p.e
Range("a1") o... [a1] => 'aplica' a la celda 'A1' =>de la hoja 'activa'< Worksheets("Hoja1").Range("a1") => 'aplica' a la celda 'A1' =>de la 'Hoja1'<= [desde cualquiera otra]
3°- si el 'primer' supuesto es correcto [barra de herramientas formularios NO 'cuadro de controles']...
'asigna' una macro [+/- como la siguiente] =>a los tres botones de opcion< en un modulo de codigo 'normal' ==Sub Verificar_Opciones()
Select Case Worksheets("Hoja1").Range("a1")
Case 1: MsgBox "Opción 1 activada."
Case 2: MsgBox "Opción 2 activada."
Case 3: MsgBox "Opción 3 activada."
Case Else: MsgBox "NO hay Opción activada."
End Select
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨
¿comentas datos adicionales?
saludos,
hector.

Preguntas similares