vai all' ultima cella piena

[gio969]

ciao a tutti, chiedo aiuto
ho trovato in rete questo vba che nn riesco ad adattare alle mie esigenze
Sheets("EXE PT").Select
For I = Range("ay1").End(xlDown).Offset(1, 0).Row To 1 Step -1
If Len(Cells(I, 51).Value) > 0 Then Exit For
Next I
Cells(I + 0, 51).Select
in pratica vorrei che venisse selezionato dalla cella x (l' ultima piena che trova) tutto l' intervallo della colonna verso l'alto, cioè ay1

grazie

[gio969]

risolto!
ho aggiunto questo
Range(Selection, Selection.End(xlUp)).Select
ovvero:

For I = Range("ay1").End(xlDown).Offset(1, 0).Row To 1 Step -1
If Len(Cells(I, 51).Value) > 0 Then Exit For
Next I
Cells(I + 0, 51).Select
Range(Selection, Selection.End(xlUp)).Select

se a qualcuno può essere utile

[ricky53]

Ciao,
prova con questa istruzione

Codice: Seleziona tutto

Range("AY" & Rows.Count).End(xlUp).Select

da inserire subito dopo

Codice: Seleziona tutto

Sheets("EXE PT").Select

Non serve altro codice.


EDIT:
ho riletto e ... non avevo letto bene quanto da te scritto.
Quello che ti ho proposto è un'altra cosa.

Sorry