[Excel] Importare da fogli diversi

[christianghz]

Grazie Ricky!
ho inserito i dati mancanti, ma quando faccio partire la macro mi dà "Errore di runtime 9: Indice non incluso nell'intervallo"

e mi evidenzia Set WS1 = Wb1.Sheets("richiesta ritiro")

[ricky53]

Ciao,
controlla il nome del foglio !!!

A me risultava essere "richiesta ritiro" con "UNO" spazio di separazione tra richiesta e ritiro !!!

[christianghz]

Niente... ho provato a cambiare anche nome del foglio per essere sicuro ma mi da' sempre lo stesso errore
Set WS1 = Wb1.Sheets("..........")


e ho controllato che anche nome e percorso del file siano corretti..

[ricky53]

Ciao,
controlla bene il nome del foglio nel tuo file .. attenzione agli spazi, prima e dopo il nome

E' meglio eliminare gli spazi e mettere un "_"

Poi copia/incolla il nome del foglio nella macro !


Per sicurezza ti invio due file sui quale fare le prove:

FILE di ESEMPIO

Estrai i due file nella stessa directory e prova ...



EDIT: ho aggiunto un file di esempio

[Anthony47]

Niente... ho provato a cambiare anche nome del foglio per essere sicuro ma mi da' sempre lo stesso errore
Set WS1 = Wb1.Sheets("..........")
e ho controllato che anche nome e percorso del file siano corretti..

Questa tua ultima affermazione mi fa pensare che ci sia un equivoco: il foglio "richiesta ritiro" deve esistere nel file che era attivo al lancio della macro; e' li che hai controllato? Hai fatto modifiche alla ultima macro di Ricky?

Leggi anche il suggerimento di Ricky, sopra.

Ciao

[ricky53]

Ciao,
dopo aver letto l'intervento di Anthony

Io, nello scrivere il codice, nell'esempio iniziale avevo fatto riferimento ai nomi del tuo file.

In questo esempio ho eliminato gli spazi ... prova su questi file e poi adatta i tuoi ELIMINANDO GLI SPAZI nei NOMI dei FOGLI ... e dei FILE !!!

[christianghz]

Ok forse ho capito il mio errore:
io avevo salvato il modulo richiesta ritiro in una nuova cartella dove metterò tutte le richieste ritiro, e poi ho creato un file sul desktop chiamato riepilogo dove ho incollato la macro e da lì do "Esegui".

Invece mi par di capire che la macro deve essere inserita sul primo file, ovvero il modulo richiesta ritiro (perchè vedo che tu ricky l'hai messa là..).

ma a sto punto non capisco, ogni volta che mi arriva un modulo richiesta ritiro devo entrare in ogni modulo richiesta ritiro e far eseguire la macro?

Immagino di no.. perchè io vorrei aprire il file riepilogo e da lì far partire una macro che in automatico va a estrapolarsi i dati da tutti i moduli che ho messo nella nuova cartella dedicata..

scusate l'ignoranza

[ricky53]

Ciao,
per scrivere del codice in una macro bisogna sapere bene cosa la si deve fare ... tu non avevi specificato bene le tue necessità ed io ho prodotto del codice che prendeva dei dati da un file e li scriveva in un altro.

Partiamo dall'inizio:
1. tu hai un file "Riepilogativo" nel quale inserisci una macro (la mia che sistemeremo dopo)
2. apri un file "Richiesta_Ritiro.xls"
3. vuoi copiare i dati (alcuni o tutti da stabilire quali) di questo file in una o più righe del file "Riepilogativo" (in base alle condizioni sui pallets diversi)


Ho sintetizzato bene?

[ricky53]

Ciao,
in base a quanto ti ho scritto prima ecco il codice modificato
Copia questo codice nel Modulo1 del file "Riepilogativo.xls"

CONTROLLA BENE:
i NOMI dei FILE
i NOMI dei FOGLI
che hai tu con quanto ho scritto nella MACRO !!!

Codice: Seleziona tutto

Option Explicit

Sub Copia_Dati_Ritiro()
    Dim XX As Integer, U_Riga As Long, MioPercorso As String, MioFile As String, Wb1 As Workbook, Wb2 As Workbook
    Dim WS1 As Worksheet, WS2 As Worksheet
   
    Set Wb1 = Workbooks("Richiesta_Ritiro.xls") ' <<===== QUI va il nome del file che ti arriva
    Set WS1 = Wb1.Sheets("Richiesta_Ritiro") ' <<===== Controlla il nome del FOGLIO !!!
   
   
    Windows("Riepilogativo.xls").Activate  ' <<===== Anche QUI Controlla il nome del FILE aperto !!!
    Set Wb2 = ActiveWorkbook
    Set WS2 = Wb2.Sheets("Riepilogativo") ' <<===== Anche QUI Controlla il nome del FOGLIO !!!
    U_Riga = WS2.Range("A" & Rows.Count).End(xlUp).Row + 1
   
    With WS2
        .Cells(U_Riga, "A") = WS1.Range("B4")
        .Cells(U_Riga, "B") = WS1.Range("B5")
        .Cells(U_Riga, "C") = WS1.Range("B6")
        .Cells(U_Riga, "D") = WS1.Range("G5")

' . . .
' . . . QUI INSERISCI LE ALTRE ISTRUZIONI per impostare le colonne "E-R" del foglio "Riepilogativo"
' . . .
   
' Dati dei Pallets
        .Cells(U_Riga, "S") = WS1.Range("E25")
        .Cells(U_Riga, "T") = WS1.Range("C25")
        .Cells(U_Riga, "U") = WS1.Range("G25")
        .Cells(U_Riga, "V") = WS1.Range("I25")
        .Cells(U_Riga, "W") = WS1.Range("K25")
        .Cells(U_Riga, "Y") = WS1.Range("M25")
       
' Contrassegno
        .Cells(U_Riga, "X") = WS1.Range("C20")
       
' EVENTUALI Dati degli altri pallets
        For XX = 27 To 31 Step 2
            If WS1.Range("C" & XX) <> "" Then
                .Range("A" & U_Riga & ":Y" & U_Riga).Copy Destination:=.Range("A" & U_Riga + 1)
                .Cells(U_Riga + 1, "S") = WS1.Range("E" & XX)
                .Cells(U_Riga + 1, "T") = WS1.Range("C" & XX)
                .Cells(U_Riga + 1, "U") = WS1.Range("G" & XX)
                .Cells(U_Riga + 1, "V") = WS1.Range("I" & XX)
                .Cells(U_Riga + 1, "W") = WS1.Range("K" & XX)
                .Cells(U_Riga + 1, "Y") = WS1.Range("M" & XX)
                U_Riga = U_Riga + 1
            Else
                Exit For
            End If
        Next XX
    End With
   
    MsgBox "Effettuata la copia dei dati della spedizione n.  '" & WS1.Range("G5") & "'"

    Set Wb1 = Nothing
    Set Wb2 = Nothing
    Set WS1 = Nothing
    Set WS2 = Nothing
End Sub


[christianghz]

Allora Ricky,
non so cosa intendi con copiarlo nel "Modulo 1"

Per capire dov'è il problema, questo è quello che ho fatto passo per passo:

ho aperto il file Riepilogativo.xls
ho fatto Visualizza Macro -> Crea
ho incollato il tuo ultimo codice e messo i nomi corretti dei file e dei fogli (adesso non c'è più il percorso del file da mettere)

Se faccio "Esegui" mi dà errore di runtime 9 indice non incluso nell'intervallo e nel debug: Set Wb1 = Workbooks("Modulo richiesta ritiro.xlsx") [il nome del file e l'estensione sono corretti]

Se faccio "Esegui istruzione" mi dà Impossibile eseguire il codice in modalità interruzione.

Cosa sbaglio?

[ricky53]

Ciao,
hai copiato il codice nel file "Riepilogativo.xls" ???

se non ne esci mandaci i due file e vediamo di risolvere.

La tua versione è la 2010?

[ricky53]

Ciao,
ecco un E S E M P I O.

Nel file ZIP trovi due file excel,
aprili entrambi
ed esegui la macro che trovi nel "Moduol1" (Apri l'editor del VB con "AlT+F11", seleziona la macro ed eseguila)