Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel 2007] Estrazione Dati tra due fogli con condizione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel 2007] Estrazione Dati tra due fogli con condizione

Postdi MrHelloRabbit » 06/08/14 20:48

Salve a tutti,

Vi seguo da un po' di tempo e grazie al vostro supporto sono sempre riuscito a risolvere ogni problema, purtroppo oggi sono "costretto" a darvi fastidio :D

Ho creato un file Excel denominato Proforma e Al suo interno sono presenti i fogli :

    - Ordine
    - Campionario

Nel foglio Ordine (vuoto, da compilare per ogni singolo cliente) sono presenti le seguenti intestazioni:

    A5 = Articolo
    (codice dell'articolo)
    B5 = Immagine dell'Articolo
    (un immagine jpeg)
    C5 = Dimensioni
    (dimensioni dell'articolo)
    D5 = Quantità
    (la sua quantità)
    E7 = Prezzo Unitario
    (il suo prezzo)

Nel Foglio Campionario sono presenti le stesse intestazioni del foglio precedente ma con dei dati al suo interno, diciamo come se fosse una sorta di database.

Quel che mi occorrebbe :

Inserire nella cella A6 (A7,A8 e cosi via) del foglio Ordine il numero dell'articolo, verificare se quest'ultimo valore sia presente nel foglio Campionario e se PRESENTE, copiare i dati presenti in quest'ultimo foglio e incollarli nel foglio Ordine.


Esempio Ricerca: Inserisco l'articolo 5

Codice: Seleziona tutto
[b]Foglio Ordine[/b]
        A           B          C           D            E
5    Articolo   Immagine   Dimensioni   Quantità   Prezzo_Unitario
6       5 
ecc...


Il VALORE nella cella A6 è Presente nel 'Foglio Campionario'?
SE è presente
Copia da 'Foglio Campionario' VALORI da B7 a E7 (Ovviamente le righe variano in base alla posizione dell'articolo)
e Incolla in 'Foglio Ordine' in posizione da B6 a E6

SE non è presente non fare nulla

Codice: Seleziona tutto
[b]Foglio Campionario[/b]
        A           B          C           D            E
5    Articolo   Immagine   Dimensioni   Quantità   Prezzo_Unitario
6       1                     1*1          /            1€
7       5                     4*5          /            3,5€
ecc...


Spero di non avervi annoiato con questa lunga descrizione, ho cercato di essere il più chiaro possibile. Se per caso il mio problema fosse già stato trattato, chiedo scusa per non aver cercato adeguatamente e in tal caso vi autorizzo a prendermi a bastonate :lol:

L'unica cosa che ho trovato purtroppo non funziona tanto bene, perchè credo che per le immagini bisognerebbe usare qualche altra istruzione. Vi allego la Sub con relativo LINK esterno ( sperando di non infrangere regole )


Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sh As Worksheet
    Dim rng As Range
    Dim lRiga As Long
   
    Set sh = ThisWorkbook.Worksheets("Foglio2")
   
    If Target.Cells.Count = 1 Then
   
        Select Case Target.Column
            Case 1, 2
                With sh
                    lRiga = .Range("A" & .Rows.Count).End(xlUp).Row
                    .Range("A1").AutoFilter Field:=Target.Column, Criteria1:=Target.Value
                    On Error Resume Next
                    Set rng = .Range("A2:F" & lRiga).SpecialCells(xlCellTypeVisible)
                    If Not rng Is Nothing Then
                        rng.Copy Destination:=Me.Range("A" & Target.Row)
                    End If
                    .Range("A1").AutoFilter
                End With
        End Select
   
    End If
   
    Set rng = Nothing
    Set sh = Nothing
   
End Sub


http://answers.microsoft.com/it-it/office/forum/office_2003-excel/creare-macro-x-copiare-dati-da-un-foglio-ad-un/1bb04890-036f-49e9-b2ea-c7ab7a9a7183?rtAction=1407349178947


Ringraziandovi Anticipatamente Vi Auguro una Buona Serata!


Mr.HelloRabbit
Maurizio: Un Computer sicuro... è un Computer spento
Io: ... E se la Wake up on lan fosse abilitata? :O
Avatar utente
MrHelloRabbit
Newbie
 
Post: 2
Iscritto il: 06/08/14 19:51
Località: Napoli

Sponsor
 

Re: [Excel 2007] Estrazione Dati tra due fogli con condizion

Postdi Anthony47 » 12/08/14 01:08

Ciao MrHelloRabbit, benvenuto nel forum.
Immagino che tu voglia copiare una "Immagine" e le informazioni testuali preseni sul foglio Campionario e relativi all' articolo.
Se e' cosi', allora dovresti chiarire come si fa a identificare che una certa immagine e' relativa a un certo articolo: si usa il suo "nome"? la sua "posizione"? o cosa?
Inoltre un file adeguatamente popolato nel foglio Campionario potrebbe aiutare a personalizzare la risposta; per come allegarlo vedi qui: viewtopic.php?f=26&t=80395

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "[Excel 2007] Estrazione Dati tra due fogli con condizione":


Chi c’è in linea

Visitano il forum: alfrimpa e 4 ospiti