Aggiornamento fogli stesso file

Hai un problema con Excel?

Nuova discussione

Aggiornamento fogli stesso file
di Nico82 (utente non iscritto) data: 19/12/2012 10:49:34
Buongiorno a tutti..volevo sottoporvi il mio problema: su uno stesso file ho un foglio origine ed un foglio elaborazione dati con colonne ordinate diversamente. Il mio obiettivo è far si che, aggiornando il folgio origine con altri dati (con più o meno righe, quindi) sul foglio di elaborazione vi sia un aggiornmanto automatico delle celle..è possibile farlo? metto una bozza di programma che avevo sviluppato salvo poi trovarmi senza via d'uscita!
Grazie a tutti

Sub Conta_Celle_Origine()
     Dim righe As Double     'righe rappresenta il numero di righe riempite dal foglio origine
     Dim ordine(12) As String
     
     ordine(0) = "1"
     ordine(1) = "14"
     ordine(2) = "15"
     ordine(3) = "57"
     ordine(4) = "16"
     ordine(5) = "17"
     ordine(6) = "58"
     ordine(7) = "49"
     ordine(8) = "51"
     ordine(9) = "56"
     ordine(10) = "62"
     ordine(11) = "53"
         
    ' Sheets("Foglio2").Range("A1") = Application.WorksheetFunction.CountA(Sheets("Foglio1").Range("A:A"))
        
     righe = Application.WorksheetFunction.CountA(Sheets("Origine Cooling").Range("A:A"))   'Sheets("Foglio2").Range("A1")
        
        
     Sheets("Cooling Data").Range("a:a") = ""
     Sheets("Cooling Data").Cells(10, 2) = righe
      
     Sheets("Cooling Data").Range("A:A").NumberFormat = "hh.mm.ss"
     Sheets("Cooling Data").Cells(1, 1) = Sheets("Origine Cooling").Cells(1, 1)
     'Sheets("Foglio2").Cells(1, 1).NumberFormat = "@"
     Sheets("Cooling Data").Cells(1, 1) = "Time"
     
     'For k = 1 To 8
        For t = 0 To 11
            p = ordine(t)
            ' Sheets("Cooling Data").Cells(5, 10) = p
            For i = 1 To righe
                 Sheets("Cooling Data").Cells(i + 14, k) = Sheets("Origine Cooling").Cells(i + 1, p)
            Next i
        Next t
    'Next k
       
       Sheets("Cooling Data").Cells(righe + 15, 1).Value = ""
       
    End Sub

di Vecchio Frac data: 19/12/2012 11:04:08
Un piccolo file di esempio, con dati fittizi, per non costringerci a dover ricostruire la struttura su cui si deve lavorare, magari sbagliando, sarebbe apprezzato :)

Vuoi Approfondire?