Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

mettere assieme i numeri colorati

Ultimo Aggiornamento: 28/10/2019 22:57
Post: 61
Registrato il: 27/05/2019
Città: MILANO
Età: 56
Utente Junior
2016
OFFLINE
20/10/2019 18:11

Ciao, mi servirebbe una funzione che mi metta assieme i numeri colorati che sono all'interno di un gruppo di numeri. I numeri in questione li ho colorati per mezzo della formattazione. Nel raggruppare i numeri colorati vorrei non ci fossero quelli doppi.
Grazie mille.
Post: 884
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
20/10/2019 22:41

Prova con questa mia macro (come base di partenza che potrai adattare alle tue esigenze) da mettere nel modulo vba del foglio interessato:
Option Explicit

Sub Estrapola_Celle_Colorate()

    Dim rng As Range
    Dim cella As Range
    Dim x As Long

    Application.ScreenUpdating = False
    Set rng = Range("A1:E5")                      'definisci l'area da controllare
    x = 1
    Range("G:G").Clear                            'svuota colonna G
    For Each cella In rng                         'cicla tutte le celle
        If cella.DisplayFormat.Interior.ColorIndex = 38 Then 'verifica il colore della cella, se corrisponde
            Range("G" & x) = cella.Value          'copiane il contenuto in colonna G
            x = x + 1
        End If
    Next cella
    ActiveSheet.Range("G1:G" & x).RemoveDuplicates Columns:=1, Header:=xlNo 'rimuovi eventuali duplicati
    Application.ScreenUpdating = True

End Sub

Private Sub colore()
    'solo per rilevare il colore usato

    Debug.Print Range("A2").DisplayFormat.Interior.ColorIndex
    
End Sub

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Post: 61
Registrato il: 27/05/2019
Città: MILANO
Età: 56
Utente Junior
2016
OFFLINE
23/10/2019 23:42

Grazie
Post: 887
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Senior
Excel 2016-32bit Win11
OFFLINE
28/10/2019 22:57

Grazie del riscontro positivo 👍.

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 11:29. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com