[excel 2007] formattazione condizionale da elenco a discesa

[nicola75ss]

Mi sembra ti avessi già postato il codice funzionante e anche un esempio di come attribuire agli "scaffali" lo stesso colore delle merci.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim colore As Integer

If Not Intersect(Target, Range("d10:d15")) Is Nothing Then

        Select Case Target

            Case "3x2"

                colore = 3

            Case "sconto 10%"

                colore = 6

            Case "promo"

                colore = 4

            Case "inventario"

                colore = 5

            Case Else

                colore = 2

        End Select

        Target.Offset(0, -2).Interior.ColorIndex = colore

    End If


Range("c4,d4").Interior.ColorIndex = Range("b10").Interior.ColorIndex
Range("d6,g4").Interior.ColorIndex = Range("b11").Interior.ColorIndex

Range("j4,k4").Interior.ColorIndex = Range("b12").Interior.ColorIndex
Range("k6,n4").Interior.ColorIndex = Range("b13").Interior.ColorIndex

Range("q4,r4").Interior.ColorIndex = Range("b14").Interior.ColorIndex
Range("r6,u4").Interior.ColorIndex = Range("b15").Interior.ColorIndex

End Sub

Qui trovi la palette dei colori

http://www.mvps.org/dmcritchie/excel/colors.htm

e qui il file come piace a te

http://myfreefilehosting.com/f/186204797d_0.05MB


Per quanto riguarda la domanda relativa alle caselle a discesa non ho office 2007 a portata di mano. Comunque nelle versioni antecedenti, una volta definito l'elenco dei valori possibili (h10:h13), si andava su dati > convalida > impostazioni > consenti: elenco e da lì si definiva l'intervallo per la singola cella.
Con un semplice copia > incolla speciale > convalida applichi il menù a tendina anche alle celle sottostanti.

Cercati la procedura nella tua versione.

[Blackeyes]

grazie per la pazienza in effetti excel lo uso abbastanza ma le potenzialità del vba non le conoscevo mi limitavo alla modifica di qualche macro ma in modo molto semplicistico. Vedo che ci si possono fare parecchie cose che altrimenti risulterebbero macchinose se non impossibili.
Vorrei saperne qualche cosa in piu' potresti consigliarmi quslche guida di base e almeno per ora che ho poca familiarita' in italiano?
Grazie ancora

[nicola75ss]

Le cose migliori in rete le troverai tutte in inglese.

Per iniziare ti consiglio di acquistare un manualetto da pochi soldi che ti darà le basi.

Parecchi anni fa avevo acquistato questo

http://www.ibs.it/code/9788883314292...portatili.html

10 euro ben spesi.

[Blackeyes]

Grazie

[Blackeyes]

HO terminato il file ma sembra non andare sul codice vba ho messo solo un Range("BI77,BI58").Interior.ColorIndex = Range("bV93").Interior.ColorIndex

perche' ho visto che non funzionava mi sembrava inutile inserire gli altri

ecco il file completo

http://www.megaupload.com/?d=MA72KT4C

mi aiuteresti a capire cosa ho sbagliato?
grazie

[nicola75ss]

File non disponibile. Caricalo su myfreefilehosting.

edit. Ok, adesso va. Comunque in futuro carica lo stesso sul sito che ti ho scritto. Almeno non tocca attendere le comodità loro.

[nicola75ss]

La macro non batte ciclio perchè l'hai associata a ThisWorkbook, mentre devi associarla al foglio piantina. Fai doppio click su di esso e incolla la macro lì.

Vedrai che le celle della colonna N. testata assumeranno il colore, anche se non coincidono con quelli della legenda. Per quello puoi risolvere da solo visto che ti avevo già linkato anche la palette dei colori.

Per le testate

Range("BI77,BI58").Interior.ColorIndex = Range("bV93").Interior.ColorIndex

deve diventare


Range("BI77,BI58").Interior.ColorIndex = Range("bt93").Interior.ColorIndex

[Blackeyes]

Originariamente inviato da nicola75ss
La macro non batte ciclio perchè l'hai associata a ThisWorkbook, mentre devi associarla al foglio piantina. Fai doppio click su di esso e incolla la macro lì.

Vedrai che le celle della colonna N. testata assumeranno il colore, anche se non coincidono con quelli della legenda. Per quello puoi risolvere da solo visto che ti avevo già linkato anche la palette dei colori.

Per le testate

Range("BI77,BI58").Interior.ColorIndex = Range("bV93").Interior.ColorIndex

deve diventare


Range("BI77,BI58").Interior.ColorIndex = Range("bt93").Interior.ColorIndex

Ok Adesso va' non avevo pensato al foglio sbagliato
Altra domanda visto che hai presente il file avrai capito che il procedimento và applicato a tutti gli "scaffali", a livello di codice debbo inserire tanti
Range("BI77,BI58").Interior.ColorIndex = Range("bt93").Interior.ColorIndex per quante sono le testate - ovviamente cambiando le celle di riferimento - o esiste un modo piu' veloce a livello di codice?
Grazie

[Blackeyes]

Originariamente inviato da nicola75ss
File non disponibile. Caricalo su myfreefilehosting.

edit. Ok, adesso va. Comunque in futuro carica lo stesso sul sito che ti ho scritto. Almeno non tocca attendere le comodità loro.

Ok l'ho messo nei segnalibri!
per excel ho preso http://www.hoepli.it/libro/excel-200...00022001010002

l'altro non si trovava dovevo ordinarlo

[nicola75ss]

Originariamente inviato da Blackeyes
avrai capito che il procedimento và applicato a tutti gli "scaffali", a livello di codice debbo inserire tanti
Range("BI77,BI58").Interior.ColorIndex = Range("bt93").Interior.ColorIndex per quante sono le testate - ovviamente cambiando le celle di riferimento - o esiste un modo piu' veloce a livello di codice?
Grazie

No. Dovrai farlo a mano.
La disposizione degli scaffali non segue alcun criterio logico per poter essere automatizzato.