Excel Forum

	Soluzioni Excel Domande e Risposte
		copia e cancellare le celle in base al colore

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

copia e cancellare le celle in base al colore

Ultimo Aggiornamento: 27/03/2023 16:26

Post: 6

Registrato il: 16/01/2023

Età: 43

Utente Junior

office 365 64

OFFLINE

24/03/2023 18:07

00#1

Cancella celle in base alla formattazione

Ciao sn nuovo nel forum ho bisogno di questo :

ho due colonne L : M nel scaricofoglio10 che si popolano con una macro (copia e incolla VBA )che riempie il range con celle che divengono rosso o verde in base a una formattazione condizionale relativa alla cella adiacente O.

La mia richiesta è questa : dato che ho un due colonne L:M con delle celle rosse e verdi voglio dividere le stesse in due Range quello con le righe verdi e quelle con le righe rosse ...oppure copiare le righe rosse e incollarle su un range diverso da L:M e poi cancellarle dal range L:M facendolo diventare cosi solo due Range righe verdi Righe rosso puoi usare (Range x rosse T:U:V) (Range x verde L:M)

Download (3.405 KB)

[Modificato da CESARE FEMIANO 24/03/2023 18:20]

dodo47

Post: 3.408

Registrato il: 06/04/2013

Utente Master

2010

OFFLINE

25/03/2023 10:47

10#2

Ciao
il seguente codice suddivide i rossi e i verdi rispettivamente nelle colonne T-U e V-W.
Il colore riportato NON è da formattazione condizionale.

saluti

Sub RossoVerde()
lr = Range("L" & Rows.Count).End(xlUp).Row
If lr = 1 Then Exit Sub
r = 2
v = 2
For j = 2 To lr
    If Cells(j, 12).DisplayFormat.Interior.Color = 255 Then
        Cells(r, 20) = Cells(j, 12)
        Cells(r, 21) = Cells(j, 13)
        Range(Cells(r, 20), Cells(r, 21)).Interior.Color = 255
        r = r + 1
    Else
        Cells(v, 22) = Cells(j, 12)
        Cells(v, 23) = Cells(j, 13)
        Range(Cells(v, 22), Cells(v, 23)).Interior.Color = 5296274
        v = v + 1
    End If
Next
End Sub

Domenico
Win 10 - Excel 2016

Post: 6

Registrato il: 16/01/2023

Età: 43

Utente Junior

office 365 64

OFFLINE

27/03/2023 16:26