Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Problemino , mi sta lavorando a rovescio e cioé mi copre le gialle e mi lascia tutte le altre , come mai ?
Perché avevo inteso l'inverso, per cui ribalta il controllo sui diversi da giallo:
Sub Filtra_best()
Dim rngC As Range
For Each rngC In Range("B3:KP3")
If rngC.DisplayFormat.Interior.Color <> RGB(255, 255, 0) Then
rngC.EntireColumn.Hidden = Not rngC.EntireColumn.Hidden
End If
Next rngC
End Sub
Ciao.