c3n2o
14-04-2016, 13:05
Salve a tutti,
spero di spiegarmi bene.
Devo fare una tabella dove su n celle ci sono 3 radio button, che cambiano il colore della cella specifica che contiene i radio button (non quella selezionata)..
Ho registrato la macro ma mi ha scritto:
Range("A1").Select
Ho fatto un altra macro:
ActiveCell.Interior.Color = RGB(0, 250, 250)
Ma così fa solo la cella selezionata.. ma se clicco non è detto che selezioni la cella dove c'è il bottone..
Io invece vorrei qualcosa del tipo:
ThisCell.Interior.Color = RGB(0, 250, 250)
Scusate la mia ignoranza, ma è da stamattina che googlo e questo è quello che sono riuscito a trovare.
Grazie
Edit:
Ora sto provando con questo codice.. ma continua a darmi errore:
Sub OptionButton1_Click()
'ActiveCell.Interior.Color = RGB(0, 250, 250)
'CurrentCell.Interior.Color = RGB(0, 250, 250) <-WRONG
'Application.ThisCell.Address.Interior.Color = RGB(0, 250, 250) <-WRONG
Dim cella As Range
cella = Application.Caller
cella.Interior.Color = RGB(0, 250, 250)
End Sub
spero di spiegarmi bene.
Devo fare una tabella dove su n celle ci sono 3 radio button, che cambiano il colore della cella specifica che contiene i radio button (non quella selezionata)..
Ho registrato la macro ma mi ha scritto:
Range("A1").Select
Ho fatto un altra macro:
ActiveCell.Interior.Color = RGB(0, 250, 250)
Ma così fa solo la cella selezionata.. ma se clicco non è detto che selezioni la cella dove c'è il bottone..
Io invece vorrei qualcosa del tipo:
ThisCell.Interior.Color = RGB(0, 250, 250)
Scusate la mia ignoranza, ma è da stamattina che googlo e questo è quello che sono riuscito a trovare.
Grazie
Edit:
Ora sto provando con questo codice.. ma continua a darmi errore:
Sub OptionButton1_Click()
'ActiveCell.Interior.Color = RGB(0, 250, 250)
'CurrentCell.Interior.Color = RGB(0, 250, 250) <-WRONG
'Application.ThisCell.Address.Interior.Color = RGB(0, 250, 250) <-WRONG
Dim cella As Range
cella = Application.Caller
cella.Interior.Color = RGB(0, 250, 250)
End Sub