[risolto]macro in excel

Per chi ha poca pratica con questi prodotti, quì non troverà  dei guru in grado di snociolare risposte a tutti i quesiti, ma delle persone appassionate che mettono a disposizione tutta la loro passione per trovare insieme le soluzioni migliori.

Moderatori: isex, mariobrossh, donatella

RADIX
Messaggi: 89
Iscritto il: ven 07 set 2007 3:25 pm

Messaggio da RADIX »

se mi mandi la tua email ti mando il file excel che ho elaborato.
penso di aver risolto il tuo problema, ma fai prima te a capirlo guardando il file che io a spiegartelo, cmq ho utilizzato sia la formattazione condizionale che la colonna nascosta.

ciao fammi sapere
cosimocs

Messaggio da cosimocs »

Questo potrebbe essere il risultato come vedi
quando premi sul bottone ti colora tutte le celle
del foglio col valore corrispondente che protrai
personalizzare, valuta quale tra le proposte postate
è quella che fa al caso tuo.

Immagine
el_pampa
Messaggi: 8
Iscritto il: mar 05 mag 2009 2:36 pm

Messaggio da el_pampa »

perfetto grazie a tutti sono riuscito in questo modo:

Codice: Seleziona tutto

Sub Colore()
Dim r As Long
Dim myId
Dim myLastId
Dim Colore

myLastId = ""
For r = 2 To Cells(65536, 1).End(xlUp).Row
    myId = Cells(r, 1).Value
    If r > 1 Then myLastId = Cells(r - 1, 1).Value
   
    If myId <> myLastId Or r = 1 Then
        If Colore = 36 Then
            Colore = 34 'azzurro
        Else
            Colore = 36 'giallo
        End If
    End If
   
    Range(Cells(r, 1), Cells(r, 15)).Interior.ColorIndex = Colore
Next r

End Sub
Rispondi