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

Elenco Fogli con accanto somma voti

  1. #1
    nabbe non è in linea Novello
    Ho una serie di Fogli. Ogni foglio ha il nome degli alunni ed all'interno ci sono nella colonna A le materie (tipo Italiano, geografia ecc) e nelle colonna B i voti.

    In un foglio Indice sono riuscito (grazie a voi) a ricavare un elenco di tutti i fogli con questa routine
    Sub ElencoFogli()

    Dim objSheet As Worksheet
    Dim currCell As Range
    Set currCell = ActiveCell
    'Loop ai fogli ed estrazione del nome
    For Each objSheet In ThisWorkbook.Worksheets
    currCell = objSheet.Name
    Set currCell = currCell.Offset(RowOffset:=1)
    Next
    Set currCell = Nothing
    Set objSheet = Nothing

    End Sub

    Ora voglio riportare in un'altra colonna accanto all'elenco la somma dei voti per ogni alunno.
    Ovviamente la somma dei voti è presente in ogni foglio sempre nella stessa cella.

    Sareste così cortesi di mdarmi una dritta?
    grazie

  2. #2
    L'avatar di dodo47
    dodo47 non è in linea Topo di biblioteca
    Ciao e benvenuto nel forum
    io farei in questo modo
    Sub ElencoFogli()
    r = ActiveCell.Row
    c = ActiveCell.Column
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> "Indice" Then
            Cells(r, c) = Worksheets(i).Name
            Cells(r, c + 1) = Worksheets(i).Cells(3, 4) ' Cells(3, 4) rappresenta la riga e la colonna dove hai il tuo totale nei vari fogli, nell'esempio D3
            r = r + 1
        End If
    Next
    End Sub
    
    considerando che il foglio Indice non deve essere presente nell'elenco, in quanto è un foglio di riepilogo.

    Sarebbe più opportuno che tu decidessi da codice quale deve essere la cella iniziale dalla quale cominciare a scrivere i vari nomi. Nel modo da te indicato - e da me fatto per seguire il tuo codice - sei costretto a posizionarti prima con il cursore sulla cella di inizio per poi eseguire la macro.

    saluti

  3. #3
    nabbe non è in linea Novello
    Sei grande dodo47

    non sono molto pratico e ci stavo perdendo la testa da diversi giorni.

    grazie

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. creazione automatica elenco da vari fogli
    Da Giacomino nel forum Microsoft Word
    Risposte: 8
    Ultimo Post: 05-07-2011, 18:40
  2. Elenco Fogli con accanto somma voti
    Da nabbe nel forum Presentati
    Risposte: 1
    Ultimo Post: 16-06-2010, 11:28
  3. Risposte: 5
    Ultimo Post: 14-05-2010, 20:56
  4. avere l'elenco di fogli di un file xls
    Da panatronic nel forum Visual Basic .Net
    Risposte: 1
    Ultimo Post: 01-04-2009, 13:23
  5. [EXCEL]Somma di tutte C4 di tutti i fogli
    Da leonet nel forum Microsoft Excel
    Risposte: 5
    Ultimo Post: 14-10-2005, 16:46