Delimitazione area di lavoro al numero righe

Question

salve,

vorrei delimitare la lunghezza del mio foglio di lavoro al numero righe.

mi spiego meglio:

quando vado giu con il cursore della barra laterale, non vogli che scenda all'infinito, voglio che si fermi all'ultima riga utilizzata.

cioè non vogli che excel mi aggiunga progressivamente colonne e righe, se possibile vorrei se esiste questa opzione.

Grazie.

Answer 1

Ciao Fratello.

Da tempo mi hai reso edotto delle tue sane abitudini, alle quali mi sono sostanzialmente adeguato.:-))

Ma da un punto di vista essenzialmente artigianale, vediamo se questa ennesima artigianale non fa scatenare i tuoi "bassi" istinti. :-D)

Public Sub assegnascroll()

Dim wks As Worksheet

Dim Ucol As Long, Urig As Long

Dim scelta As VbMsgBoxResult

'elimina lo scroll esistente

Call eliminascroll

scelta = MsgBox("Vuoi attivare lo ScrollArea del range utilizzato?", vbYesNo)

If scelta = vbYes Then

ActiveSheet.ScrollArea = ""

Set wks = Worksheets("Foglio1")

Ucol = wks.Cells.Find("*", , , , xlByColumns, xlPrevious).Column

Urig = wks.Cells.Find("*", , , , xlByRows, xlPrevious).Row

wks.ScrollArea = wks.Range(Cells(1, 1), Cells(Urig, Ucol)).Address

'commentare l'istruzione che segue se non serve

ActiveWindow.View = xlPageBreakPreview

End If

End Sub

Non ci dovrebbe essere pericolo di perdita di dati, credo.

Cordialmente

Eliano

Answer 2

Ciao Mixio.

Vedo che Fratello Mauro non ha ricevuto il passaggio, per cui ti do una possibile soluzione con le consuete artigianali.

Per attivare lo scroll,copia nel modulo del foglio interessato la seguente macro:

 Private Sub Worksheet_Activate()

Me.ScrollArea = Me.UsedRange.Address

ActiveWindow.View = xlPageBreakPreview

End Sub

Per disattivare lo scroll, copia in un modulo standard, ad esempio Modulo1 questa macro:

Public Sub eliminascroll()

ActiveWindow.View = xlNormalView

ActiveSheet.ScrollArea = ""

End Sub

In ogni caso le dimensioni della Visualizzazione delle Interruzioni di pagina (righe blu) vanno aggiustate con il mouse; questo nel caso tu abbia la necessità di effettuare variazioni successive alla prima impostazione.

Saluti

Eliano

Ciao Fratello. UsedRange a volte fa cose che non ti aspetti, Mauro lo usa pochissimo(mai?). Diciamo che ha memoria di posti dove hai scritto e poi eliminano il contenuto. E' per quello che non ho raccolto... ;-)

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 3

Ciao Mixio.

Vedo che Fratello Mauro non ha ricevuto il passaggio, per cui ti do una possibile soluzione con le consuete artigianali.

Per attivare lo scroll,copia nel modulo del foglio interessato la seguente macro:

 Private Sub Worksheet_Activate()

Me.ScrollArea = Me.UsedRange.Address

ActiveWindow.View = xlPageBreakPreview

End Sub

Per disattivare lo scroll, copia in un modulo standard, ad esempio Modulo1 questa macro:

Public Sub eliminascroll()

ActiveWindow.View = xlNormalView

ActiveSheet.ScrollArea = ""

End Sub

In ogni caso le dimensioni della Visualizzazione delle Interruzioni di pagina (righe blu) vanno aggiustate con il mouse; questo nel caso tu abbia la necessità di effettuare variazioni successive alla prima impostazione.

Saluti

Eliano

Answer 4

Vero, mi riferivo solo al blu.

Ciao

Marexe46

;-)

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 5

Per caso non era attivata l'anteprima di attivazione pagina?

In Excel 2003 si attiva con il comando

Visualizza > Anteprima attivazione di pagina

vengono bordati in blu scuro i margini della zona da stampare e con righe blu tratteggiate i salti pagina.

Questi confini possono essere modificati trascinandoli con il mouse.

Per ripristinare la tabella selezionare da menù  Visualizza > Normale

E' quello che desideravi sapere?

Salutoni

Marexe46