TABELLA EXCEL

Question

Buongiorno, avevo questo quesito da porre...

Io ho creato per un mio cliente una tabella in excel con 4 colonne e 25 righe.

Il mio cliente chiedeva se una volta aperto il file di excel, si potevano vedere solo le colonne e le righe utilizzate dalla tabella.

Lui non vuole più vedere tutte le caselle vuote affianco, sopra o sotto! Il resto non si deve proprio vedere, a lui serve solo la tabella e basta!

Si può fare?

Answer 1

Ciao qwertyasdfgh1,

Sig. Norman, perfetto!!

Era proprio quello di cui avevo bisogno!

Mi fa piacere che ti sia stato utile.

Per chiudere questo thread, vorrei chiederti gentilmente di contrassegnare la mia risposta come Risposta. In questo modo, tu aiuterai anche coloro che potessero cercare soluzioni ai problemi simili negli archivi della Community.

===

Regards,

Norman

Answer 2

Sig. Norman, perfetto!!

Era proprio quello di cui avevo bisogno!

Grazie 1000

Auguro buona Giornata!

Answer 3

Ciao qwertyasdfgh1,

Io ho creato per un mio cliente una tabella in excel con 4 colonne e 25 righe.

Il mio cliente chiedeva se una volta aperto il file di excel, si potevano vedere solo le colonne e le righe utilizzate dalla tabella.

Lui non vuole più vedere tutte le caselle vuote affianco, sopra o sotto! Il resto non si deve proprio vedere, a lui serve solo la tabella e basta!

Si può fare?

Credo di sì! :-)

Prova qualcosa del genere:

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim Rng As Range

    Dim iRow As Long, iCol As Long

    Const sFoglio As String = "Foglio1"           '<<=== Modifica

    Const sTabella As String = "A1:D25"         '<<=== Modifica

    Set WB = ThisWorkbook

    Set SH = WB.Sheets(sFoglio)

    Set Rng = SH.Range(sTabella)

    With Rng

        iRow = .Row + .Rows.Count

        iCol = .Column + .Columns.Count

    End With

    With SH

        .Cells.EntireRow.Hidden = False

        .Cells.EntireColumn.Hidden = False

        .Range(.Columns(iCol), Columns(.Columns.Count)).Hidden = True

        .Range(.Rows(iRow), .Rows(.Rows.Count)).Hidden = True

    End With

End Sub

'<<========= 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm
• Alt+F8 per aprire  la finestra di gestione delle macro
• Seleziona Tester
• Esegui

Potresti scaricare il mio file di prova Qwertyasdfgh120180426.xlsm

===

Regards,

Norman