ayuda urgente

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.

Ya lo enlace con una celda x, el problema es que no le
puedo dar un formato,
Pe. cuando hago click en 1 endria que darle un blanqueo a
la celda enlazada y color de fondo

Desde ya te agradesco tu ayuda
Slds
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.

.

hola, Damian !

Ya lo enlace con una celda x, el problema es que no le puedo dar un formato.
Pe. cuando hago click en 1 endria que darle un blanqueo a la celda enlazada y color de fondo [...]

para mantener el 'anonimato' de esa celda 'x' :))
vamos a seguir 'suponiendo' que se trata de la celda 'A1' de la 'Hoja1' ;)
[aunque no se con exactitud a que te refieres con 'eso' de 'blanqueo'] :((
los siguientes ejemplos te daran una 'pista' para manejar colores de fondo y texto en las celdas ;)
[consulta en la ayuda de vba otros colores para el 'ColorIndex']

¿comentas?
saludos,
hector.
cambia la macro a lo siguiente ==Sub Verificar_Opciones()
With Worksheets("Hoja1").Range("a1")
Select Case .Value
Case 1
.Font.ColorIndex = 3
.Interior.ColorIndex = 6
Case 2
.Font.ColorIndex = 6
.Interior.ColorIndex = 3
Case 3
.Font.ColorIndex = xlColorIndexAutomatic
.Interior.ColorIndex = xlColorIndexNone
End Select
End With
End Sub