Tendina che ingrigisce via MACRO.

[e.giulio]

Ciao, qualche anima pia, che magari ha più esperienza di me in Excel, sa come:
- da un menù a tendina si può scegliere 0 oppure 1
- se si sceglie 0, si ingrigiscono 4 o 5 celle successive a quella con la tendina
- se si sceglie 1, tornano normali.

Per ora, sono riuscito a creare una macro che, abbinata ad un tasto, ingrigisce delle celle (purtroppo, sempre quelle):

Sub Macro1()
'
Worksheets("Foglio1").Range("B1:C1:D1:E1:F1").Interior.ColorIndex = 3
'
End Sub

Io vorrei poter abbinare un qualcosa del genere al menù a tendina che, però, agisca in modo "intelligente", ingrigendo un certo numero di celle di fianco alla propria tendina e non in modo assoluto come ora. Grazie fin d'ora, Giulio.

[Anthony47]

Devi usare qualcosa come

Codice: Seleziona tutto

Activecell.Range("A1:D1").Interior.ColorIndex = 3

(questa ingrigisce 4 celle a partire da quella selezionata.
Oppure

Codice: Seleziona tutto

Activecell.offset(0,1).Range("A1:D1").Interior.ColorIndex = 3

che lavora su 4 celle dopo quella selezionata.

Eventualmente associ il codice a una macro di tipo Worksheet_Change, per far partire l macro quando cambia una cella del tuo foglio.
Ciao.