Excel: andare a inizio colonna dal basso verso l'alto

[gamma_ray]

Mi spiego: inserendo i dati nelle celle in orizzontale, ad esempio da a1 a g1, una volta arrivato a g1, se clicco invio poi il cursore mi va in b1. Perfetto.
Si può fare anche in verticale? Cioè io inserisco dei dati da a1 a a10, e una volta arrivato a a10 vorrei che premendo invio il cursore andasse in alto su b1, e così via dicendo.
Grazie.

[Anthony47]

Non hai detto come hai ottenuto la suddetta prestazione, per quello che chiedi potresti usare la proprieta' "ScrollArea" del foglio; va impostata ad esempio all'apertura del file tramite la Sub Workbook_Open.
In questo modo potresti controllare sia lo spostamento orizzontale che verticale.
Il codice:

Codice: Seleziona tutto

Private Sub Workbook_Open()
Sheets("Foglio2").ScrollArea = "A1:G10"                 '<<< La tua Area
Application.MoveAfterReturnDirection = xlDown           '<<<1 A1.2.3..10-B1.2.3...
'Application.MoveAfterReturnDirection = xlToRight        '<<<2 A1.B1.C1-A2.B2.C2-...
End Sub


Il codice va messo nel modulo QuestaCartellaDiLavoro (vedi viewtopic.php?f=26&t=103893&p=647675#p647675)
Lasciando la riga <<<1, ad ogni Enter l'avanzamento e' verticale fino ad A10 e poi va in B1.
Abilitando la riga <<<2 (togliere l'Apostrofo a inizio riga) e cancellando la riga <<<1 (non e' indispensabile, visto l'ordine delle istruzioni; ma e' meglio), ad ogni Enter l'avanzamento e' orizzontale fino a G1, poi va su A2

Ciao

[gamma_ray]

Non hai detto come hai ottenuto la suddetta prestazione,

Non ho capito cosa intendi per prestazione, nel senso che inserisco semplicemente i dati nelle celle senza particolari formule o macro.

Per quanto riguarda il tuo suggerimento, avrei bisogno di qualche passaggio...La macro penso di averla creata, però non ho capito questo:

"Lasciando la riga <<<1, ad ogni Enter l'avanzamento e' verticale fino ad A10 e poi va in B1.
Abilitando la riga <<<2 (togliere l'Apostrofo a inizio riga) e cancellando la riga <<<1 (non e' indispensabile, visto l'ordine delle istruzioni; ma e' meglio), ad ogni Enter l'avanzamento e' orizzontale fino a G1, poi va su A2".

Grazie.

[gamma_ray]

No aspetta, la macro non l'ho creata, perchè quando clicco su salva mi dice

"Impossibile salvare le caratteristiche seguenti in cartelle di lavoro senza macro
- PROGETTO VB"

[gamma_ray]

Allora ce l'ho fatta a crearla, ma non funziona. C'è qualcosa che sbaglio sicuramente perchè all'apertura del documento mi copare una finestra di debug, e mi viene evidenziata questa riga:

Sheets("Foglio2").ScrollArea = "A1:G10" '<<< La tua Area

[Anthony47]

Cosa dice il messaggio di errore?
Il tuo file ha un "Foglio2"?
Il file viene aperto in "modalita' protetta"?
Ciao

[gamma_ray]

Allora l'errore dice:
"Errore di run time 9: indice non compreso nell'intervallo". E se clicco su debug mi evidenzia questo: Sheets("Foglio2").ScrollArea = "A1:G10" '<<< La tua Area

Inoltre:
- il mio file ha molti fogli ma non c'è un Foglio2
- il file sono riuscito a crearlo in modalità macro, disabilitando la protezioni all'apertura.

[gamma_ray]

Aspetta, funziona! Il problema stava nel Foglio2 mancante.
O meglio, ho corretto il nome ed a posto.

Solo un'ultima domanda: per applicare questa macro a tutti gli altri 6 fogli come faccio? A ogni foglio la sua macro con copia/incolla?

[Anthony47]

Per gestire piu' fogli, la cosa piu' semplice (anche se e' la meno elegante) e' inserire tante righe simili:

Codice: Seleziona tutto

Private Sub Workbook_Open()
Sheets("Foglio1").ScrollArea = "A1:G10"                 '<<< La tua Area
Sheets("Foglio2").ScrollArea = "C1:H10"                 '<<< La tua Area
Sheets("Foglio3").ScrollArea = "A1:G10"                 '<<< La tua Area
'... altri fogli
'...
Application.MoveAfterReturnDirection = xlDown           '<<<1 xlDown oppure xlToRight
End Sub

Questo ti consente di specificare eventualmente anche aree diverse tra foglio e foglio

Nell'istruzione marcata <<<1, se inserisci = xlDown allora il tasto Enter fa selezionare la cella sottostante (con "riporto" alla colonna successiva quando arrivi in fondo); se invece inserisci = xlToRight allora il tasto Enter fa avanzare alla cella a destra (con "riporto" alla prima colonna della riga successiva quando arrivi in fondo)

Ciao

[gamma_ray]

PERFETTISSIMO!
Grazie ancora per tutto.