[VBA] Selezionare la prima cella vuota, anche in un foglio vuoto

[23Andrea]

Range("$A$1").End(xlDown).Offset(1, 0).Select

seleziona la prima cella vuota successiva ad un intervallo di celle già occupato, ma se il foglio è vuoto restituisce un errore.
Come modificarla per utilizzarla anche in un foglio vuoto, in modo che selezioni la cella A1?
Grazie.

[LeleFT]

Sposto nel forum di "Visual Basic e .NET Framework".


Ciao.

[patel]

if Range("A1") <> "" then
     Range("$A$1").End(xlDown).Offset(1, 0).Select
Else
   Range("$A$1").select
End If

[patel]

comunque per evitare errori è meglio utilizzare questo codice

Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select

[23Andrea]

Mi sono accorto che il problema è più complesso...
Io ho bisogno di selezionare, nella prima colonna, la cella successiva all'ultima riga di tutto il foglio che contiene una cella occupata:
se, per esempio, l'unica cella contenente un valore è la E17, io devo selezionare la cella A18.
Quindi la macro deve anche saltare le eventuali celle vuote presenti nella prima colonna del foglio.
Non so se è fattibile...

[patel]

Sub a()
LR = ActiveSheet.UsedRange.SpecialCells(xlLastCell, xlNumbers).Row
Cells(LR + 1, 1).Select
End Sub