LoginRegistrati
Stai vedendo 2 articoli - dal 1 a 2 (di 2 totali)
  • Autore
    Articoli
  • #27783 Risposta

    Kiki

      Buonasera, ringrazio anticipatamente chiunque proverà ad aiutarmi.

      Sto imparando ad usare VBA, ma mi sono impiantata su questa macro

      Sub foreach_fogli()

      Dim foglio As Worksheet

      Dim cella As Range Dim intervallo As Range

      For Each foglio In ThisWorkbook.Worksheets

                  foglio.Activate

                  Set intervallo = Range("b4:b10")

      For Each cella In intervallo

                  Workbooks("Cartel6").Activate

      Cells(cella.Row, cella.Column) = Cells(cella.Row, cella.Column) + cella.Value

      Next cella Next foglio

      End Sub

      Non mi compila e mi dà l'errore 'indice fuori misura', indicandomi con il debug la riga 'Workbooks("Cartel6").Activate

      il nome della nuova cartella dove voglio mettere la somma si chiama effettivamente Cartel6, dunque dove ho sbagliato? 

      Vi ringrazio

       

      #27784 Risposta

      Mister_x

        ciao

               Workbooks(nomefile)  e il file

               Worksheets(nomefoglio) e il foglio da utilizzare

        -----------------------------

        L'insieme restituito dalla proprietà Workbooks non include componenti aggiuntivi aperti, che sono un tipo speciale di cartella di lavoro nascosta. È tuttavia possibile restituire un singolo componente aggiuntivo aperto se si conosce il nome del file. Ad esempio,

        Workbooks("Oscar.xla")

        ------------------------

        Sintassi

        espressione.Worksheets

        espressione   Variabile che rappresenta un oggetto Application.

        Note

        Se si utilizza questa proprietà senza un qualificatore di oggetto, verranno restituiti tutti i fogli di lavoro della cartella di lavoro attiva.

        Questa proprietà non restituisce fogli macro. Per restituire tali fogli, utilizzare la proprietà Excel4MacroSheets o Excel4IntlMacroSheets.

         

        Esempio

        In questo esempio viene visualizzato il valore della cella A1 nel foglio "Sheet1" della cartella di lavoro attiva.

        Visual Basic, Application Edition
        MsgBox Worksheets("Sheet1").Range("A1").Value

         

        ciao

      LoginRegistrati
      Stai vedendo 2 articoli - dal 1 a 2 (di 2 totali)
      Rispondi a: Indice fuori misura
      Gli allegati sono permessi solo ad utenti REGISTRATI
      Le tue informazioni:



      vecchio frac - 2750 risposte

      albatros54
      albatros54 - 1009 risposte

      patel
      patel - 976 risposte

      Marius44
      Marius44 - 839 risposte

      Luca73
      Luca73 - 717 risposte