Aperto il file
premi Alt+F11
ti trovi in ambiente VBA
dal Menu Inserisci seleziona Modulo
Incolli l'intero codice copiato dal post
A questo punto puoi
(se hai attivo il foglio interessato) premere il comando "Esegui Sub/Userform" sul Menu in alto (a forma di triangolo come il Play di un registratore)
oppure
chiudere il Vba
e dal foglio interessato scegli il Menu Visualizza
premi il comando Macro e scegli "Visualizza Macro"
Troverai il nome "TrovaCol" (suppongo abbia solo quello)
quindi premi il comando "Esegui"
Ripropongo la macro in quanto ho aggiunto la cancellazione della colonna AM altrimenti i numeri venivano accodati al precedente processo (nel caso di più avvii della macro stessa).
- Codice: Seleziona tutto
Sub TrovaCol()
Columns("AM:AM").ClearContents
For RR = 1 To 32
For CC = 1 To 37
If Cells(RR, CC).Interior.ColorIndex = 65535 Then Cells(Rows.Count, 39).End(xlUp).Offset(1, 0).Value = Cells(RR, CC).Value
Next CC
Next RR
End Sub
Ciao