compattare codice

[f.si...@gmail.com]

Ciao,

non riesco ancora a capire come compattare una selezione alcune volte funziona altre no:

Sheets("foglio").Select

 Cells(64000, 1).Select

 Selection.End(xlUp).Select

 inizio = ActiveCell.Row

vorrei scriverlo

inizio = Sheets("foglio").Cells(64000, 1).End(xlUp).row

  

[roberto mensa]

ciao,
Sheets("foglio").Cells(64000, 1).End(xlUp).row
in linea di massima funziona, quello che fa equivale a posizionarsi sulla cella A64000 e seguire con la combinazione di tasti ctrl+freccia in alto ... occhio alle possibili fregature ... metti ad esempio che le celle a64000 e a64001 siano valorizzate avrai come risultato 64001

un altro problema potresti averlo lavorando con dati che provengono da una esportazione da db ... dove le celle apparentemente vuote risultano invece in alcuni casi sensibili al'End allo stesso modo di celle valorizzate.

io preferisco sempre utilizzare una funzione ad hoc per il calcolo di ultima riga, vedi qui:
http://sites.google.com/site/e90e50/vba/funzionitascabili/ultimariga-1

saluti
r

--
Hai ricevuto questo messaggio in quanto sei iscritto al gruppo "Excel VBA" di Google Gruppi.
Per mandare un messaggio a questo gruppo, invia una email a
excel_v...@googlegroups.com
Per modificare la tua iscrizione
http://groups.google.it/group/excel_vba_free/subscribe?hl=it
Per maggiori opzioni, visita questo gruppo all'indirizzo
http://groups.google.it/group/excel_vba_free?hl=it?hl=it