(re)help

[bmercuri]

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]

la data(26/10/2009)la vorrei ottenere come max.valori..ma non capisco come legarla alle altre colonne

[Flash30005]

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

[bmercuri]

in colonna adiacenti tipo a b c d

[bmercuri]

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.

[Flash30005]

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

[bmercuri]

funziona grazie!