È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

copia e cancellare le celle in base al colore

  • Messaggi
  • OFFLINE
    CESARE FEMIANO
    Post: 6
    Registrato il: 16/01/2023
    Età: 43
    Utente Junior
    office 365 64
    00 24/03/2023 18:07
    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)
    [Modificato da CESARE FEMIANO 24/03/2023 18:20]
  • OFFLINE
    dodo47
    Post: 3.408
    Registrato il: 06/04/2013
    Utente Master
    2010
    10 25/03/2023 10:47
    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
  • OFFLINE
    CESARE FEMIANO
    Post: 6
    Registrato il: 16/01/2023
    Età: 43
    Utente Junior
    office 365 64
    00 27/03/2023 16:26
    TUTTO RISOLTO
    Grazie sei stato bravissimo tutto risolto....
  • 15MediaObject5,0013 1