Cosa intendi in questo passaggio?
raimea ha scritto:scrivendo un colore in E4 mi compili la tabella sottostante
contando il colore uscito subito dopo
Il primo colore uscito dopo il colore scelto?
Al posto di scrivere il colore, inserisci una convalida dati selezionando l'elenco dei colori in tabella
in maniera tale da evitare errori di digitazione del colore stesso.
Penso tu possa risolvere da solo facendo assumento come stringa di ricerca il colore in E4
e poi calcolando le righe in archivio procedere a ritroso (dall'ultima riga archivio alla prima)
fino a trovare il colore in colonna K
una volta trovato inizi il tuo vero ciclo for next da quella riga+1 all'ultima riga dell'archivio.
Non so se è necessario perché puoi procedere in diverse maniere, ad esempio:
1) lavorando con le stringhe (nome colore trovato in archivio)
e ricercare per ognuno la corrispondenza in tabella foglio "Spia.jolly" una volta trovata la corrispondenza sommi il valore 1 al valore cella esistente (Col E)
2) con i numeri... Puoi far divenire una stringa come fosse un numero con un vettore dichiarato all'inizio della macro
Dim VStr(7) as stringE con un ciclo for next dalla riga 5 (-4) assegnare il colore al numero es.
- Codice: Seleziona tutto
For RRC = 5 to 11
VStr(RRC-4) = Sheets(spia.jolly).Range("D" & RRC).value
Next RRC
Per ogni colore trovato lo riconverti in numero sempre con ciclo For next (questa volta da 1 a 7)
quando il colore corrisponde al vettore-stringa non fai altro che aggiungere 4 e avrai la riga corrispondente a quel colore e sommi in col E il valore 1 al valore della cella esistente (come per il punto 1).
Se riesci ok altrimenti, dopo che avrai chiarito la richiesta, ti darò qualche altro spunto.
ciao