[Excel] Variabile numero foglio

[lupoz]

E' possibile inserire in automatico in una cella il numero di foglio ed il totale di fogli usati?

Vorrei avere una cella tipo: "Foglio 1 di 3" che si compili in automatico

[nicola75ss]

Il numero totale di fogli che compone il file lo ricavi con

ActiveWorkbook.Sheets.Count

mentre l'indice del foglio stesso con

ActiveSheet.Index

nel caso in cui il numero di fogli non sia fisso e il file sia soggetto a inserimento di nuovi fogli o cancellazioni degli stessi devi gestire tutti questi eventi affinchè il conteggio sia coerente con la situazione attuale.

[lupoz]

Grazie,
ma come faccio ad inserirlo?

[nicola75ss]

Secondo me la soluzione più semplice è questa:

Private Sub Worksheet_Activate()
Range("a1").Value = "Foglio " & ActiveSheet.Index & " di " & ActiveWorkbook.Sheets.Count
End Sub

[lupoz]

Funziona perfettamente, proprio quello che intendevo.
Scusa ma non mastico molto VB

Grazie mille!

[nicola75ss]

Di nulla.