MACRO : Collegare i dati di un foglio Excel con un altro

[Alex31]

Ho creato un file excel (Foglio1) importando i dati da un file .txt.
Le celle del foglio1 (quelle delle colonne D,E,F) devono aggiornare in automatico dei campi specifici di un altro foglio excel (Foglio2).
Ma i campi da aggiornare non sono consecutivi Es. A1- A10, A16 - A25
Ho provato con il copia /incolla speciale linkando ogni cella del foglio1 con la sua corrispondente del foglio2 ma in questo modo inserisce il link quando invece a me serve il valore effetivo della cella.
Mi è stato detto di dover utillizzare delle macro ma non ho molta conoscenza di questo strumento.

Ringrazio anticipatamente chi vorrà darmi una mano.

[pietrol]

Ciao Alex31
non sono sicuro di avere capito tutto, vorresti che una o più zone (o sono celle singole?) del foglio1 venissero ricopiate sul foglio2 in automatico?
Oppure il problema è che invece di proporti il valore della cella nel foglio2 ti trovi qualcosa come
=Foglio1!A12
Se invece è ancora diverso puoi essere più preciso?

grazie
pietrol

[Alex31]

Per prima cosa ti ringrazio in anicipo di avermi risposto
Anche se non sono molto pratico cercherò di essere più chiaro

Il primo presupposto è che se modifico il valore di una cella sul foglio1, il valore della cella nel foglio2 collegata a quella del foglio1 deve venire aggiornato quando il foglio2 viene aperto.
Il secondo presupposto è che la cella non contenga il link alla cella collegata (Es. =Foglio1!A12, cosa che mi è accaduta usando il copia /incolla speciale ) ma il valore effettivo. (Es. se la cella D1 del foglio1 contiene 12 la cella D10 del foglio2 deve contenere 12 non =Foglio1!D1).
Ti faccio poi un esempio di come dovrei collegare le celle:

Le celle da D1 a D10 del foglio1 con le celle da D6 a D16 del foglio2, le celle da D11 a D20 del foglio1 con le celle da D25 a D35 del foglio2 etc etc

le celle da E1 a E10 del foglio1 con le celle da E6 a E16 del foglio2, le celle da E11 a E20 del foglio1 con le celle da E25 a E35 del foglio2 etc. etc.

le celle da F1 a F10 del foglio1 con le celle da F6 a F16 del foglio2, le celle da F11 a F20 del foglio1 con le celle da F25 a F35 del foglio2 etc. etc.

Praticamente dei blocchi di celle del foglio1 collegati con dei blocchi di celle del foglio2

Grazie ancora.

[pietrol]

Ciao Alex31
facciamo una prova, se funziona andrà bene anche con tutte le altre celle

Le celle da D1 a D10 del foglio1 con le celle da D6 a D16 del foglio2

Sul foglio2 seleziona la cella D6, Formato/Celle scheda Numero scegli "Generale" OK
sempre sulla cella D6, scrivi "=" (senza virgolette) poi clicca sul foglio 1 e poi sulla cella D1, invio.
Ora sulla cella D6 dovresti trovarti il valore contenuto in Foglio1!D1.
Se è così trascina la cella fino a D16 per aggiornare anche le altre della serie.
Ripeti la procedura per tutte le serie.

Fammi sapere
ciao
pietrol

[Flash30005]

Le celle da D1 a D10 del foglio1 con le celle da D6 a D16 del foglio2, le celle da D11 a D20 del foglio1 con le celle da D25 a D35 del foglio2 etc etc

Noto un errore in quanto da D1 a D10 sono 10 celle mentre da D6 a D16 sono 11 celle presumo quindi che sia da D6 a D15 (stesso errore si ripete da D25 a D35)
Comunque...
usando questa macro credo che risolvi almeno per i gruppi che hai menzionato

Codice: Seleziona tutto

Private Sub Worksheet_Activate()
    For CC = 4 To 6
        For I = 1 To 20
            If I <= 10 Then
            DI = I + 5
            Else
            DI = I + 14
            End If
            Sheets("Foglio2").Cells(DI, CC).Value = Sheets("Foglio1").Cells(I, CC).Value
        Next I
    Next CC
End Sub

Copia quanto contenuto nel codice
in excel vai su Strumenti>Macro>Visual Basic Editor
nella finestra di sinistra VbaProjet seleziona il foglio2 e sulla finestra di destra incolla il codice copiato
Chiudi l'editor del Vba con la X la finestra e fai le dovute prove modificando i valori del foglio1 e aprendo poi il foglio2

Ciao

[Alex31]

Grazie dell'aiuto Flash30005.
Però ho avuto qualche difficoltà con le istruzioni che mi hai scritto e quindi volevo chiederti una cosa .
Posso usare lo script anche per caricare i dati del foglio1 del file excel1 sul foglio2 del file excel2 ?

Ciao e grazie ancora.

[Anthony47]

Non avevo seguito questa discussione, ma se non sbaglio potrebbe esserti utile guardare questa discussione (compreso l' ulteriore discussione lì linkata): viewtopic.php?f=26&t=79814&start=0

Ciao.

[Alex31]

Volevo sapere se il codice che mi è stato consigliato ( riportato qua sotto) funziona anche se i dati che devo collegare si trovano su un foglio di lavoro diverso?

Private Sub Worksheet_Activate()
For CC = 4 To 6
For I = 1 To 20
If I <= 10 Then
DI = I + 5
Else
DI = I + 14
End If
Sheets("Foglio2").Cells(DI, CC).Value = Sheets("Foglio1").Cells(I, CC).Value
Next I
Next CC
End Sub

Grazie

[Anthony47]

La risposta e' SI, ma per essere piu' precisi noi devi essere piu' dettagliato tu nell' esporre la situazione.

Ciao.