Condividi:        

estrarre celle colorate

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

estrarre celle colorate

Postdi Statix » 16/02/12 00:52

Ciao a tutti,
un mio amico mi ha chiesto se potevo dargli una mano a creare una macro
che mi estrae le celle colorate come in figura,
esempio prima e dopo, premetto che non sò di preciso come ha colorato le celle,
lo sò che con la formattazione condizionale è improbabile,
facciamo conto che sono colorate a mano.
grazie

Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: estrarre celle colorate

Postdi ricky53 » 16/02/12 01:10

Ciao,
se la colorazione è avvenuta con la formattazione condizionale non si può fare.

Tanto per iniziare prova questo codice
Codice: Seleziona tutto
Sub Trova_Colore_Celle()
    For I = 7 To 26 ' <<----------- cambia il 7 e il 26 in base alle effettive righe di inizio e di fine
        Cells(I, 1) = Cells(I, 2).Interior.ColorIndex
    Next I
End Sub

Scrive nella colonna "A" il numero del colore dello sfondo delle celle di colonna "B" se ottieni sempre -4142 vuol dire che il colore è impostato con la formattazione condizionale e non si può fare nulla se hai altri numeri li utilizzeremo per costruire la macro che copia i dati ...

Bozza su cui lavorare
Codice: Seleziona tutto
Sub Copia_Dati()
    Dim I As Integer, K As Integer
    K = 7
    For I = 7 To 26
        If Cells(I, 2).Interior.ColorIndex = 6 Then ' <<-------- il "6" corrisponde al giallo, va scrittto il numero che si troverà con l'altra macro
            Cells(K, 8) = Cells(I, 2)
            Cells(K, 9) = Cells(I, 3)
            K = K + 1
        End If
    Next I
End Sub


A ritrovarci
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: estrarre celle colorate

Postdi Statix » 16/02/12 10:10

Ciao Ricky53,
provato tutto ok,grazie
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: estrarre celle colorate

Postdi ricky53 » 16/02/12 15:44

Ciao,
bene e grazie per il riscontro.

Alla prossima e ... buon proseguimento
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "estrarre celle colorate":


Chi c’è in linea

Visitano il forum: Nessuno e 38 ospiti