Per gli esperti di excel

[Roby]

Qualcuno di voi sa come procedere (con macro o formule appropriate) a far colorare in automatico le linguette che recano la denominazione della pagina?

Per meglio comprenderci, vorrei automatizzare la colorazione della linguetta al verificarsi di una determinata condizione.

Ad esempio: se la cella "A1" contiene un valore maggiore di zero, allora la linguetta deve colorarsi di rosso, diversamente di colore bianco.

Grazie.

 

[maxma62]

Hai provato con la formattazione condizionale?
menu' strumenti -->> formato -->> formattazione condizionale
Max

 

[capuleti]

L'istruzione dovrebbe essere questa

ActiveWorkbook.Sheets("Foglio1").Tab.ColorIndex = 3

Credo che con gli opportuni controlli possa funzionare con una macro

 

[Castigamatti]

quote:Originally posted by capuleti

L'istruzione dovrebbe essere questa

ActiveWorkbook.Sheets("Foglio1").Tab.ColorIndex = 3

Credo che con gli opportuni controlli possa funzionare con una macro

Infatti, l'istruzione è proprio quella.
Ma come faccio ad azionarla automaticamente al verificarsi della condizione richiesta?
Ho provato ad aggiungere alla macro una serie di "if", ma vengono sistematicamente ignorati.

 

[Fiore di Aprile]

Castigamatti m sa' ke io t conosco a te!!!!!

 

[vincilotto]

VINCI

LOTTO

 

[Castigamatti]

quote:Originally posted by Fiore di Aprile

Castigamatti m sa' ke io t conosco a te!!!!!

[?][?][?]

 

[Fiore di Aprile]

Prima scrivevi su un'altra chat??

 

[Castigamatti]

quote:Originally posted by Fiore di Aprile

Prima scrivevi su un'altra chat??

chat o forum?
Nel primo caso la risposta è no
nel secondo si

 

[maxma62]

Tante volte ho risolto i problemi di excel con delle formule che ho trovato o che gli utenti delle discussioni mi hanno creato nei gruppi di discussione di VIOLAZIONE: scambio email non consentito !
http://groups.google.it/group/microsoft.public.it.office.excel/topics?hl=it
se vuoi prova inserire il tuo problema nelle varie discussioni.
(se sei registrato in VIOLAZIONE: scambio email non consentito !, altrimenti registrati)
Max
(Il sito e' di google non VIOLAZIONE: scambio email non consentito !, scusa)

 

[Fiore di Aprile]

Ti dice nulla grace nik?

 

[Castigamatti]

quote:Originally posted by maxma62

Tante volte ho risolto i problemi di excel con delle formule che ho trovato o che gli utenti delle discussioni mi hanno creato nei gruppi di discussione di VIOLAZIONE: scambio email non consentito !
http://groups.google.it/group/microsoft.public.it.office.excel/topics?hl=it
se vuoi prova inserire il tuo problema nelle varie discussioni.
(se sei registrato in VIOLAZIONE: scambio email non consentito !, altrimenti registrati)
Max

Grazie per la segnalazione

 

[Castigamatti]

quote:Originally posted by Fiore di Aprile

Ti dice nulla grace nik?

Purtroppo non mi dice nulla.
Mi spiace

 

[TRISMEGISTUS]

Gran bel quesito.
Hai provato con "Application.Run" una volta costruita la macro di colorazione?

 

[Giannettolo]

Ciao, premetto che non sono un esperto,

se ho capito bene
dovresti crearti una macro di questo tipo

Sub colfoglio1()
'
' colfoglio1 Macro
' Macro registrata il 07/29/2007 da lem
'

' If Sheets("Foglio1").Range("A1").Value > "50" Then

Sheets("Foglio1").Select
ActiveWorkbook.Sheets("Foglio1").Tab.ColorIndex = 3
End If
End Sub

questa ti colora la linguetta rossa se il valore di A1 è maggiore di 50... lavorandoci su dovresti riuscire ad ottenere quello che ti serve

ps. l'ho provata su excel 2003
Ciao



Giannettolo

 

[Giannettolo]

Inserendo alla stessa macro un altra condizione If Then
puoi ottenere


Sub colfoglio1()
'
' colfoglio1 Macro
' Macro registrata il 07/29/2007 da lem
'

'
If Sheets("Foglio1").Range("A1").Value > "50" Then

Sheets("Foglio1").Select
ActiveWorkbook.Sheets("Foglio1").Tab.ColorIndex = 3
End If
If Sheets("Foglio1").Range("A1").Value < "50" Then

Sheets("Foglio1").Select
ActiveWorkbook.Sheets("Foglio1").Tab.ColorIndex = 4
End If
End Sub


Questa colora la linguetta del foglio1 di rosso se A1 è maggiore di 50 la colora di verde se A1 è inferiore a 50

ciao

Giannettolo

 

[vincilotto]

VINCI

LOTTO

 

[Castigamatti]

Grazie Giannetolo, così funziona perfettamente.
Bravo!!!

 

[Giannettolo]

Grazie,
mi fa piacere essere stato di aiuto
ciao


Giannettolo