+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 2 su 2

Indice dei fogli per una cartella EXCEL

  1. #1
    g.rabito non è in linea Novello
    Ho un piccolo problema, ho creato un indice dei fogli in una cartella Excel utilizzando questo codice VBA all'interno di un modulo, il problema è che all'interno della carterlla ho anche dei fogli che sono dei grafici ma mediante questo codice non riesco ad includere nell'indice i grafici mi riporta solo il nome dei fogli.
    Qualcuno puo' aiutarmi?
    GRAZIE

    Public Sub indice()
    Dim w As Worksheet, n As Integer, s As Range
    n = 1
    Application.EnableEvents = False
    On Error Resume Next
    Set s = Range("postodovemettereindice")
    s.Parent.Activate
    s.Cells(n, 1) = "Indice dei fogli"
    Range(s.Cells(n + 1, 1), s.Cells(n + 1, 1).End(xlDown)).Clear
    For Each w In ActiveWorkbook.Worksheets
    n = n + 1
    s.Cells(n, 1) = w.Name
    ActiveSheet.Hyperlinks.Add s.Cells(n, 1), w.Name
    s.Cells(n, 1).Hyperlinks(1).Address = ""
    s.Cells(n, 1).Hyperlinks(1).SubAddress = "'" & w.Name & "'!A1"
    Next
    s.Cells(1, 1).Font.Bold = True
    Range(s.Cells(1, 1), s.Cells(n, 1)).Select
    Selection.Font.Underline = xlUnderlineStyleNone
    With Selection.Borders
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
    End With
    Selection.EntireColumn.AutoFit
    Application.EnableEvents = True
    s.Cells(1, 1).Select
    Set s = Nothing
    Set w = Nothing
    End Sub

  2. #2
    L'avatar di dragone bianco
    dragone bianco non è in linea Certosino
    Ciao g.rabito

    il foglio grafico (Quello in cui visualizzi il grafico in un foglio separato viene considerato da excel come un grafico come oggetto VBA è Chart) il worksheet non lo vede va lo vede lo sheets

    Prova a fare così

    For i = 1 To Sheets.Count
        MsgBox Sheets(i).Name
    Next i
    
    in questo esempio visualizza tutti i nomi anche quello del foglio di un grafico.

    Ciao
    ℹ️ Leggi di più su dragone bianco ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Cercare in tutti i fogli della cartella
    Da daelia83 nel forum Microsoft Excel
    Risposte: 18
    Ultimo Post: 22-02-2018, 08:14
  2. Risposte: 1
    Ultimo Post: 31-05-2016, 17:21
  3. Risposte: 1
    Ultimo Post: 08-06-2015, 14:12
  4. Risposte: 10
    Ultimo Post: 12-11-2014, 07:46
  5. Risposte: 1
    Ultimo Post: 25-06-2014, 13:14