Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

(re)help

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

(re)help

Postdi bmercuri » 11/11/09 18:26

ciao,ancora un altro problema con xl,
ho questa matrice in foglio1:
A B G V
sku Zone Invoice Date Invoiced Net Qty
8BR616 WTHF0FA6 Asia 26/10/2009 25
8BR616 WTHF0FA6 Asia 22/10/2009 8
8BR616 WTHF0FA6 Asia 26/10/2009 15
8BR616 WTHF0FA6 Europe 20/10/2009 1
8BR616 WTHF0FA6 Europe 20/10/2009 6
8BR616 WTHF0FA6 Europe 20/10/2009 1
8BR616 WTHF0FA6 Europe 19/10/2009 1
8BR616 WTHF0FA6 Europe 19/10/2009 7
8BR616 WTHF0FA6 Europe 19/10/2009 5
8BR616 WTHF0FA6 Europe 20/10/2009 2
8BR616 WTHF0FA6 Europe 20/10/2009 1
8BR616 WTHF0FA6 Europe 22/10/2009 2
8BR616 WTHF0FA6 Europe 22/10/2009 1
8BR616 WTHF0FA6 Europe 23/10/2009 1
8BR616 WTHF0FA6 Europe 20/10/2009 5
8BR616 WTHF0FA6 Japan 26/10/2009 5
8BR616 WTHF0FA6 Middle East 26/10/2009 4
8BR616 WTHF0FA6 Middle East 26/10/2009 3
8BR616 WTHF0FA6 Middle East 26/10/2009 5

vorrei ottenere in foglio2:

8BR616 WTHF0FA6 Asia 26/10/2009 25
8BR616 WTHF0FA6 Asia 26/10/2009 15
8BR616 WTHF0FA6 Japan 26/10/2009 5
8BR616 WTHF0FA6 Middle East 26/10/2009 4
8BR616 WTHF0FA6 Middle East 26/10/2009 3
8BR616 WTHF0FA6 Middle East 26/10/2009 5
8BR616 WTHF0FA6 Middle East 26/10/2009 3


come faccio?
bmercuri
Utente Junior
 
Post: 26
Iscritto il: 29/10/09 17:02

Sponsor
 

Re: (re)help

Postdi bmercuri » 11/11/09 18:42

la data(26/10/2009)la vorrei ottenere come max.valori..ma non capisco come legarla alle altre colonne
bmercuri
Utente Junior
 
Post: 26
Iscritto il: 29/10/09 17:02

Re: (re)help

Postdi Flash30005 » 11/11/09 20:12

Non hai specificato se i dati dovevano essere riportati sempre nelle colonne A B G V (come erano all'origine)
oppure in colonne adiacenti (A B C D)
comunque prova questa macro semmai la adatti alle tue esigenze
Codice: Seleziona tutto
Sub MaxData()
UR1 = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
    UR2 = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
If UR2 < 2 Then UR2 = 2
    Worksheets("Foglio2").Range("A2:B" & UR2).ClearContents
    Worksheets("Foglio2").Range("G2:G" & UR2).ClearContents
    Worksheets("Foglio2").Range("V2:V" & UR2).ClearContents
    Range("A1").Select
I = 1
Dim MaxDt As Date
For Cicli = 1 To 2
    For Dt = 2 To UR1
        If Cicli = 1 Then
            ValDt = Worksheets("Foglio1").Range("G" & Dt).Value
            If ValDt > MaxDt Then MaxDt = ValDt
        Else
            ScrC = Worksheets("Foglio1").Range("G" & Dt).Value
            If ScrC = MaxDt Then
                I = I + 1
                Worksheets("Foglio1").Range("A" & Dt & ":B" & Dt).Copy Destination:=Worksheets("Foglio2").Range("A" & I & ":B" & I)
                Worksheets("Foglio1").Range("G" & Dt).Copy Destination:=Worksheets("Foglio2").Range("G" & I)
                Worksheets("Foglio1").Range("V" & Dt).Copy Destination:=Worksheets("Foglio2").Range("V" & I)
            End If
        End If
    Next Dt
Next Cicli
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: (re)help

Postdi bmercuri » 12/11/09 09:13

in colonna adiacenti tipo a b c d
bmercuri
Utente Junior
 
Post: 26
Iscritto il: 29/10/09 17:02

Re: (re)help

Postdi bmercuri » 12/11/09 09:47

in realta la matrice di partenza è piu complessa perche contiene diverse sku non solo quella dell'esempio(8br616 wthf0fa6) che sono in ordine casuale.quindi dovrei cercare nella prima colonna l'sku che mi serve(in questo caso 8br616 wthf0fa6) e poi ottenere in corrispondenza la massima data tra quelle presenti,per tutte le zone con la quantità corrispondente.non so se sono stata chiara.
fammi sapere.
bmercuri
Utente Junior
 
Post: 26
Iscritto il: 29/10/09 17:02

Re: (re)help

Postdi Flash30005 » 12/11/09 13:33

Non so come sia fatta la tua matrice nella realtà ma in base a quanto hai scritto nei post ho realizzato una cartella di lavoro con i fogli 1,2,3
Nel foglio1 ci sono i dati di partenza con un pulsante "Date Invoiced" che, premendolo, ti crea il foglio2 con un elenco di tutti i SKU che hanno quella data.
Nella cella A1 del foglio2 hai un elenco a discesa generato automaticamente di tutti i SKU che hai in questo foglio, selezionandone uno ti permetterà di avere nel foglio3 l'elenco da te richiesto (per SKU e Per Data Massima)
Allego il file

Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: (re)help

Postdi bmercuri » 13/11/09 15:38

funziona grazie!
bmercuri
Utente Junior
 
Post: 26
Iscritto il: 29/10/09 17:02


Torna a Applicazioni Office Windows

Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti