Domanda.

nome=tiziano
cognome=pasqualato
versione=xp
conosco3=buono
vba=SI
macro=SI
email=pasqualato.tiziano@enel.it
chra=912
problema=Come posso fare un test in VBA per verificare se un foglio Excel è completamente vuoto ?

 

Risposta.

salve Tiziano, puoi usare un'istruzione come questa sotto, che sfruttando UsedRange identifica tutta l'area compresa tra inizio foglio e ultima cella occupata. Diventa quindi velocissima se il foglio è vuoto, rallenta e impiega anche diversi minuti se l'ultima cella occupata fosse proprio l'ultima; dovrebbe infatti controllare oltre 16 milioni di celle. Gli faccio dare anche un messaggio con il numero della prima cella che trova occupata (o l'unica se ultima)

Sub cerca()
Set zona = ActiveSheet.UsedRange
For Each cell In zona
If cell <> "" Then
MsgBox "la cella " & cell.Address & " contiene valori"
End If
Next
End Sub


saluti, ennius