Ricerca e "copia" da una tabella

Celluman, 28/04/2017 10.58:

---

se puoi, posso chiederti la spiegazione logica? semplicemente sarebbe bello capire bene ciò che hai fatto e potrebbe tornarmi utile per un futuro
In sintesi: alimento una Collection mCol (diciamo un array con alcune caratteristiche particolari) con i codici Negozi (l'univocità la vediamo dopo); per ogni codice negozio, cerco i relativi articoli.

Sto cercando intanto di applicarla nel mio foglio questa funzione, ma proprio non va, se applico tutto al TUO foglio va perfetto, sto cercando di capire ma è troppo avanti!

wkfr credo sia il foglio d'appartenenza base, wkto quello di destinazione, ur credo sia la dimensione completa della tabella.
mcol ed mcod sono delle variabili temporanee che utilizzi per portare i valori di negozi e prodotti;
è corretto

With WkFr
    For Each cel In .Range("B2:U" & ur)
If cel <> "" Then
On Error Resume Next
            mCol.Add cel.Value, CStr(cel)
            On Error GoTo 0
End If
    Next"

[per ogni cella da b2...se diversa da nulla vai avanti,altrimenti in mcol carica il valore e avanti, ma non ho capito come rende univoci i risultati]
Univocità: mCol, dichiarata come New Collection, ha come membro (parametro): Add Item che permette l'assegnazione di una chiave al valore immesso (Es: mColl.Add (Item, Key,...). Ora come saprai sicuramente, una Key può essere solo univoca, quindi assegnando come chiave lo stesso valore dell'item (mCol.Add cel.Value, CStr(cel), inseriamo, per esempio in mCol: 560,560 cioè Negozio 560 chiave 560. Poiché come sopra detto la chiave non può avere duplicati, nel momento in cui si prova ad effettuare lo stesso inserimento perché trovato in una successiva riga, il codice segnalerebbe errore: non puoi inserire 2 chiavi uguali; qui entra in gioco: On Error Resume next, pertanto:
1) inserisco 560,560
2) provo a inserire di nuovo: 560,560
3) il codice rileva l'errore, non inserisce il 2° e passa al successivo Negozio. Spero sia chiaro.

------------------------------------------------------------------
' per ogni negozio cerca i relativi prodotti
riga = 2
col = 1
For i = 1 To mCol.Count
    mCod = mCol(i)
    WkTo.Cells(riga, col) = mCod
    With WkFr.Range("B2:K" & ur)
---[definisci da dove partire, per i=1 sino alla fine dei negozi caricati in mcol, poi mcod carica nella cella del nuovo foglio il negozio in mcol...]

è corretto

    Set c = .Find(mCod, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        firstaddress = c.Address

     Do
        col = col + 1
        WkTo.Cells(riga, col) = WkFr.Cells(c.Row, 1)
        Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
    End With
    col = 1
    riga = riga + 1
Cerca nella tabella il Codice Negozio di mCol; una volta trovato (If Not c Is Nothing Then) memorizza l'indirizzo di dove sta (c.address), e riporta nel foglio destinazione la prima colonna (Articolo) della riga in cui ha trovato il Negozio (WkTo.Cells(riga, col) = WkFr.Cells(c.Row, 1)).
Poi cerca la successiva corrispondenza dello stesso negozio (Set c = .FindNext(c) ) che non sia quella precedente e ricomincia (Loop While...) scrivendo il nuovo articolo trovato per lo stesso negozio.

---