cella in primo piano

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Ciao a tutti.

In questo workbook che allego ci sono delle macro per mettere in primo piano al centro dello schermo delle celle.

Il foglio è bloccato con blocca riquadri.

Chiedo un aiuto perchè esempio se clicco nel pulsante verde C la cella non vuota della colonna I si fermi vicino

alla riga verticale del blocca riquadri.

E così anche per i pulsanti verddi D/E.

Spero di essermi spiegato.

Grazie

Allegati:

You must be logged in to view attached files.

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Il codice per la Colonna "I" è:

ActiveWindow.ScrollRow = Cells(Rows.Count, 9).End(xlUp).Row + 1

Adattalo per le altre macro.

Fai sapere. Ciao,

Mario

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Ciao mario

Non so se sbaglio ma non funziona

Sub ferma_3()

ActiveWindow.ScrollRow = Cells(Rows.Count, 9).End(xlUp).Row + 1
'Range("I" & Cells(Rows.Count, 9).End(xlUp).Row).Select

End Sub

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Spiega cosa vuol dire "non funziona" perchè a me funziona per tutte le macro (adattando il numero di colonna). Ovviamente vale per la prima cella vuota della colonna ma non per lo spostamento verso sinistra.

Ciao,

Mario

 

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Non va in primo piano le celle non si vualizzano

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Per lo spostamento di riga e colonna (sempre per la colonna "I") prova così

Sub ferma_3()
ActiveWindow.ScrollRow = Cells(Rows.Count, 9).End(xlUp).Row + 1
ActiveWindow.ScrollColumn = 9

'Range("I" & Cells(Rows.Count, 9).End(xlUp).Row).Select
   
End Sub

Ciao,

Mario

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Cosa vuol dire "non va in primo piano"? La macro che ti ho suggerito (e che ho testato) porta la prima cella vuota della colonna interessata immediatamente vicino alla colonna D. (Ti sembra (forse) di non vederla perche è vuota.

Ciao,

Mario

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Grazie Mario, funziona

Sub ferma_3()

ActiveWindow.ScrollRow = Cells(Rows.Count, 9).End(xlUp).Row + 1
ActiveWindow.ScrollColumn = 9
Range("I" & Cells(Rows.Count, 9).End(xlUp).Row).Select
   
End Sub

Grazie

[OscarPartecipante Oscar Karma: 45 pts]

Perchè attivi la Riga   "ActiveWindow.ScrollRow = Cells(Rows.Count, 9).End(xlUp).Row + 1"

Poi riattivi la Riga  "ActiveWindow.ScrollColumn = 9"

La prima non serve perchè viene annullata dalla seconda riga 

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

La seconda non attiva la "riga" bensì la colonna.

Se hai notato il file proposto ha un doppio blocco di riga e di colonna. Per far sì che la cella interessata stia in quella posizione occorrono entrambi.

Ciao,

Mario

[OscarPartecipante Oscar Karma: 45 pts]

Marius44 ha scritto:

La seconda non attiva la "riga" bensì la colonna.

Se hai notato il file proposto ha un doppio blocco di riga e di colonna. Per far sì che la cella interessata stia in quella posizione occorrono entrambi.

Ciao Mario non ho mica guardato il suo File adesso lo scarico poi ti faccio sapere

[OscarPartecipante Oscar Karma: 45 pts]

Evidentemente io non ho capito bene 

Quello che avevo capito io era portare sempre la scelta nella sesta colonna vedi esempio

Allegati:

You must be logged in to view attached files.

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Grazie Oscar,

funziona anche la tua soluzione:

Sub ferma_3()

ActiveWindow.ScrollColumn = 9
Range("I" & Cells(Rows.Count, 9).End(xlUp).Row).Select

End Sub

[Marius44Moderatore Marius44 Karma: 58 pts]

Salve a tutti

Excel consente di pervenire ad un risultato in molti modi diversi. Questo è un esempio!

Ciao,

Mario

[Autore]

Articoli