| | 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) |
|
|