questo comado identifica l'area rettangolare con all'interno tutte le celleusate.

• .UsedRange
restituisce l'area rettangolare delle celle usate del foglio attivo, tutte le celle compreso quelle vuote ma bordate

sintassi:
ActiveSheet.UsedRange




esempio: modifico colori delle celle usate
Set zona = ActiveSheet.UsedRange setto zona tutte le celle usate nel foglio di lavoro attivo
With zona con il comando with cambio i colori di tutta zona

.Font.ColorIndex = 0
.Font.Bold = False

End With

esempio: istruzioni su celle usate
Dim cella As Range
Set zona = ActiveSheet.UsedRange definisco zona con comando Set
For Each cella In zona

....

Next




.SpecialCells

si possono indicare delle celle usate speciali "SpecialCells" il quale fa riferimento a tutte le celle che risponderanno al "tipo" specificato, in modo da restringere l'area:

Attento il comando genera un errore in caso non ci siano celle che soddifano questo criterio
va quindi usato il comando On Error per risolvere


sintassi:
ActiveSheet.UsedRange.SpecialCells(opzione)

opzioni:

• xlCellTypeAllFormatConditions celle con qualunque formato
• xlCellTypeAllValidation celle con criteri di validazione
• xlCellTypeBlanks celle vuote
• xlCellTypeComments celle contenenti note
• xlCellTypeConstants celle contenenti costanti
• xlCellTypeFormulas celle contenenti formule
• xlCellTypeLastCell ultima cella del foglio di lavoro
• xlCellTypeVisible tutte le celle visibili

esempio:
Set LastCell = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell) setto LastCell come area usata dalla cella usata all'ultima fino a destra-basso
Range(Range("F13"), LastCell).Select seleziono le celle usate dalla F13 l'area rettangolare fino al'ultima usata a destra-basso




esempio: tolgo tutte le validazioni errate con #REF! in tutto il file
' variabili

Dim scheda As Worksheet
Dim cella As Range



' ciclo togli validazione REF

For Each scheda In Worksheets

Sheets(scheda.Name).Select

On Error Resume Next dato che il comando da errore se non trova celle compatibili va usato On Error

Set Tutto = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
For Each cella In Tutto

If InStr(cella.Validation.Formula1, "#REF!") > 0 Then cella.Validation.Delete

Next cella

On Error GoTo 0



Next scheda