ho creato un pulsante con una macro che colora, una volta clickato, lo sfondo di 4 celle ottenendo questo codice:
- Codice: Seleziona tutto
Sub Pulsante98_Click()
'
' Pulsante98_Click Macro
'
'
Range("B75,C75,E75,F75").Select
Range("F75").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 8420607
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Allego screen per rendere meglio l'idea:
Volevo sapere come fare in modo che se il tasto viene riclickato lo sfondo delle celle torni come era prima.
Inoltre visto che questo tasto è inserito su tutte le righe della tabella, cioè 160, volevo sapere se ci fosse un modo per fare un tasto e poi copiarlo per tutte le righe e non fare un tasto personalizzato per ogni riga come ho fatto io
Allego file d'esempio:
http://www.filedropper.com/schemaentratemodelloduplicauff
Grazie in anticipo.. SIETE I MIGLIORI!