Ciao,
eccomi con un'altra bella gatta da pelare (modo di dire che non mi piace assolutamente, ma che purtroppo esiste e rende l'idea...) che riguarda le mie tabelle... ormai potrei essere definito "l'uomo delle tabelle" ahahahah...
Devo confrontare due tabelle procedenti dal basso verso l'alto (dai dati più recenti, in alto, ai dati più vecchi, in basso, che riguardano una situazione storica di un magazzino per ottimizzare le forniture di componenti) e nomino tabella1 di 5 colonne da col.C a col.G e tabella2 di 12 colonne da col.H a col.S, con i seguenti criteri e modalità di paragone tra le due tabelle:
confrontare i dati di una riga di tabella2 con i dati di tabella 1 che vanno dalla stessa riga fino alle 10 righe immediatamente superiori a quella in esame (totale 11 righe, per intenderci...), segnalando in tabella2 la compresenza in tabella1, in una o più delle 10 righe "precedenti" (in realtà sono cronologicamente successive, ma le tabelle procedono a mo' di gambero), di 2, 3 o più componenti.
Ecco un piccolo esempio pratico:



-riga 5 : in tabella2 abbiamo il componente cod.89 segnalato in carico in tabella1 in riga 3
-riga 6 : in tabella2 abbiamo il componente cod.69 segnalato in carico in tabella1 in riga 5
-riga 7 : in tabella2 abbiamo i componenti 5 e 79 segnalati in carico in tabella1 rispettivamente in riga 2-6 e i componenti cod.1-69 compresenti in riga 5 di tabella1
-riga 8 : in tabella2 abbiamo i componenti cod.32-79 compresenti in riga 6 di tabella1
-riga 9 : in tabella2 abbiamo i componenti cod.20 e 75 segnalati in carico in tabella1 rispettivamente in riga 8-4
-riga 10: in tabella2 abbiamo il componente cod.35 segnalato in carico in tabella1 in riga 9 e i componenti cod.59-176 compresenti in riga 4 di tabella1
-riga 11: in tabella2 abbiamo i componenti cod.14-190 compresenti in riga 7 di tabella1
-riga 12: in tabella2 abbiamo i componenti cod.39 e 73 segnalati in carico in tabella1 rispettivamente in riga 2-11- e i componenti cod.20-58 e 34-79 compresenti rispettivamente in riga 8 e 6 di tabella1
-riga 13: in tabella2 abbiamo il componente cod.88 segnalato in carico in tabella1 in riga 4 e i componenti cod.61-183 compresenti in riga 8 di tabella1
-riga 14: in tabella2 abbiamo i componenti cod.32 e 51 e 183 e 190 segnalati in carico in tabella1 rispettivamente in riga 6-11-8-7 e i componenti cod.35-163 e 54-167 compresenti rispettivamente in riga 9 e 12 di tabella1
-riga 15: in tabella2 abbiamo i componenti cod.9 e 32 e 54 segnalati in carico in magazzino (vedi tabella1) rispettivamente in riga 13-6-12 e i componenti cod.114-163 compresenti in riga 9 di tabella1

Il lavoro può essere svolto da una macro che, posizionando il cursore ad esempio in B15, mi confronti i dati di tabella2, riga 15, con in dati di tabella1 range C15:G5 trovando i componenti presenti singolarmente nel range di tabella1 bordandone le relative celle in riga 15 di tabella2; i componenti compresenti in ogni singola riga del range di tabella1 colorando in modo appropriato, come dall'esempio, le relative celle di riga 15 in tabella2. Io sono sicuramente ancora mo-o-o-o-o-o-lto acerbo per riuscire a dare un'istruzione di così altissimo livello... :))
Grazie infinite e buona giornata
eZio


Nota:
l'operazione svolta in modo "manuale" è abbastanza laboriosa e le probabilità di errore sono piuttosto elevate... Benedette siano le macro, ma sopra tutto benedetti siano coloro che le sanno scrivere... Ogni riferimento "ad personam" è puramente caUsale :)))







EDIT:
Premetto che sono solo uno di buona volontà... e quindi mi mancano tutte le nozioni che invece mi piacerebbe tanto conoscere...... :((
ho risolto il mio problema mo-o-o-o-o-lto empiricamente, il tutto con questa serie di "pasticci"-"posticci"... che nulla hanno a che vedere con l'eccellente pulizia del linguaggio e della sintassi del VBA:

- La macro risolutiva

Sub processa_TUTTO()
Application.Run "confronta1"
Application.Run "confronta2"
Application.Run "confronta3"
Application.Run "confronta4"
Application.Run "confronta5"
Application.Run "confronta6"
Application.Run "confronta7"
Application.Run "confronta8"
Application.Run "confronta9"
Application.Run "confronta10"
Columns("T:BQ").ClearContents
ActiveCell.Offset(-1, 0).Range("A1").Select
End Sub

- La 1^ macro che gira:

Sub confronta1()
Application.ScreenUpdating = False
Dim colonna As Integer
N = ActiveCell.Row
colonna = 20
Set area2 = Range(Cells(N, 8), Cells(N, 19))
Set area1 = Range(Cells(N - 1, 3), Cells(N - 1, 7))
For Each cl In area1
For Each cl2 In area2
If cl = cl2 Then
With cl2
.Interior.ColorIndex = 39
End With
Cells(N, colonna).Value = cl.Value
colonna = colonna + 1
End If
Next cl2
Next cl
Set area = Nothing
Set area2 = Nothing
Application.ScreenUpdating = True
End Sub


- Adattando i parametri di individuazione dell'area di lavoro ci sono in tutto 10 macro
e l'ultima macro che gira è:

Sub confronta10()
Application.ScreenUpdating = False
Dim colonna As Integer
N = ActiveCell.Row
colonna = 65
Set area2 = Range(Cells(N, 8), Cells(N, 19))
Set area1 = Range(Cells(N - 10, 3), Cells(N - 10, 7))
For Each cl In area1
For Each cl2 In area2
If cl = cl2 Then
With cl2
.Interior.ColorIndex = 48
End With
Cells(N, colonna).Value = cl.Value
colonna = colonna + 1
End If
Next cl2
Next cl
Set area = Nothing
Set area2 = Nothing
Application.ScreenUpdating = True
End Sub

Il problema è risolto, ma mi piacerebbe moltissimo conoscere la sintassi "accademica" per questa macro...... :))))))))
Grazie infinite

salve
concettualmente ottieni il risultato voluto, ma devi cercare di concentrare l'esecuzione del codice.
a che ti serve eseguire 10 macro quando puoi definire con certezza l'area di lavoro?

vedi come semplificare:

Sub confronta11()
Dim cl, cl2 As Variant
riga = ActiveCell.Row
If riga <= 11 Then
MsgBox ("Numero Riga selezionata errata")
Exit Sub
End If
Set area = Range(Cells(riga, 8), Cells(riga, 19))
Set area2 = Range(Cells(riga - 11, 3), Cells(riga, 7))
For Each cl In area
For Each cl2 In area2
If cl.Value = cl2.Value Then
cl2.Interior.ColorIndex = 3
End If
Next
Next
Set area = Nothing
Set area2 = Nothing
End Sub



Con questa istruzione:
Set area2 = Range(Cells(riga - 11, 3), Cells(riga, 7))
le tue 10 macro non servono più.

saluti
Giap

PS. a che ti serve questa istruzione:
Cells(N, colonna).Value = cl.Value ??

---

salve



l'istruzione, non fa altro che riscriverti la riga di tabella 1 a partire da colonna 65

saluti
Giap

---

salve
tutte le istruzioni che hai segnato in rosso sono tra loro dipendenti, quindi vanno tolte tutte.
saluti
Giap

---

salve

Partendo da questa macro:

Sub confronta11()
Dim cl as Variant, cl2 As Variant
riga = ActiveCell.Row
If riga <= 11 Then
MsgBox ("Numero Riga selezionata errata")
Exit Sub
End If
Set area = Range(Cells(riga, 8), Cells(riga, 19))
Set area2 = Range(Cells(riga - 11, 3), Cells(riga, 7))
For Each cl In area
For Each cl2 In area2
If cl.Value = cl2.Value Then
cl2.Interior.ColorIndex = 3
End If
Next
Next
Set area = Nothing
Set area2 = Nothing
End Sub

---

L'istruzione "Dim" dichiara il nome della variabile utilizzata nella macro e ne identifica le sue caratteristiche.
nel nostro caso CL e CL2 sono definite come "Variant" e possono quindi essere di tipo ,numerico,stringa,data ecc.
Nel caso di "Dim Colonna as Integer" viene definita la variabile come numero intero fino a 32767 quindi sarebbe meglio definirlo come"Dim Colonna as Long" che assume un valore numerico intero fino a 2.147.483.647.

Veniamo ai cicli For

Abbiamo definito due aree "area" - "area2"
si vuole processare ogni record di "area" per tutti gli elementi di "area2"
quindi con" For Each cl In area" si inizia a ciclare la tabella "Area" partendo dal primo valore che viene confrontato con il primo valore di tabella "area2" con "For Each cl2 In area2"
La prima istruzione "Next" che sarebbe meglio scriverla "Next cl2" serve per scorrere tutti gli elementi di "Area2"
Passati tutti gli elementi di "Area2", la seconda istruzione "Next" (meglio definirla "Next cl") analizza il record successivo di tabella "area" che viene a sua volta confrontato con tutti gli elementi di " Area2" così fino alla fine della tabella.

Alla fine della macro, è buona cosa scaricare dalla memoria i riferimenti assegnati alle variabili che non sono più necessarie.
quindi non essendo più necessarie le due variabili, vengono scaricate .Set area = Nothing Set area2 = Nothing.


per quanto riguarda il colore delle righe della tabella Area (sperando di aver capito la domanda), qui sotto la modifica della macro(per quanto riguarda i colori se non ti piacciono, devi intervenire nell'assegnazione del valore di partenza della variabile "colore")


Sub confronta11()
Dim cl As Variant, cl2 As Variant
riga = ActiveCell.Row
Uprow = riga - 11
If riga <= 11 Then
MsgBox ("Numero Riga selezionata errata")
Exit Sub
End If
colore = 3
Set area = Range(Cells(riga, 8), Cells(riga, 19))
Set area2 = Range(Cells(riga - 11, 3), Cells(riga, 7))
For Each cl In area
Range(Cells(Uprow, 8), Cells(Uprow, 19)).Interior.ColorIndex = colore
For Each cl2 In area2
If cl.Value = cl2.Value Then
cl2.Interior.ColorIndex = 3
End If
Next cl2
colore = colore + 1
Uprow = Uprow + 1
Next cl
Set area = Nothing
Set area2 = Nothing
End Sub



Il testo della Hoepli (non credo che ci possano accusare di pratiche scorrette indicando l'editore) che non conosco ma conoscendo l'autore (una visita al suo blog non fa male), presumo sia una buona base di apprendimento. Il consiglio che posso darti, è quello di leggere i manuali non saltando da un capitolo all'altro ma con buona pazienza iniziare dalla prima pagina e continuare fino all'ultima anche se certi argomenti si presume di conoscerli.
saluti
Giap

---

salve
la tua macro esegue un numero esagerato di cicli che appesantisce l'esecuzione del codice.
Va da sè che i risultati che vuoi ottenere sono decisamente "Lambiccosi"
Una soluzione buttata li può essere quella rappresentata dal codice qui sotto che utilizza l'istruzione Select Case
per individuare il colore da assegnare ad ogni riga.
Tra parentesi, ho corretto all'interno della macro il range della tabella1 perchè in base a quanto richiesto nel primo post le righe da selezionare in alto dovevano essere 10 + quella selezionata e la macro ne selezionava 12
controlla questa riga del codice: Set area2 = Range(Cells(riga - 11, 3), Cells(riga, 7)) diventata ora
Set area2 = Range(Cells(riga - 10, 3), Cells(riga, 7)).



Spero di averci preso.!

Se mi permetti una piccola annotazione..
Normalmente quando si mette mano a un progetto complesso come il tuo, sarebbe buona cosa fare una analisi di quello che si vuole ottenere sviscerando a fondo tutte le problematiche per evitare di fare rattoppi e aggiunte con macro su macro che appesantiscono inutilmente il lavoro.
Non è una critica ma un suggerimento per i tuoi prossimi lavori.
saluti
Giap

---

-Variabile "N" serve per intercettare la riga della Tabella 1 ed è legata a questa istruzione:
If n = 5 Then
RRiga = RRiga - 1
n = 1
Else
n = n + 1
End If
Siccome la tabella 1 è formata da 5 colonne, la variabile N mi serve per cambiare il valore di RRiga al raggiungimento dell'elaborazione del 5° record. quando N raggiunge il valore di 5 riparte da 1 per la prossima riga
(funge in definitiva da contatore) Nel caso il valore di N sia inferiore a 5 il contatore viene incrementato di una unità.

Per quanto riguarda il Select Case, si prende come base di partenza la variabile RRiga che è pari alla Riga selezionata -10

Come abbiamo visto, la variabile RRiga viene ridimensiona ad ogni completamento di riga (RRiga = RRiga - 1)
Nella macro, RRiga iniziale sarà uguale a 12
al secondo passaggio RRiga sarà = 11 e via discorrendo

quindi nelle istruzioni di Select Case

si imposta il controllo della riga in scansione
Case=riga-10
colore=3
Case= riga-11
Colore=4
ecc. ecc.

in base alla corrispondenza della riga viene assegnato un colore specifico.
Sarebbe bastato scrive (sicuramente più facile da comprendere) anche
Case =12
colore = 3
Case=11
colore = 4
Case=10
colore = 5
Case=9
colore =6
eccc. ecc.
spero solo di essere stato almeno un pochino chiaro.

Per quanto riguarda manuali o corsi di VBA puoi vedere nella collana di Mondadori informatica dovresti trovare
manuali a vari livelli di conoscenza. Utili se poi un domani vorresti affrontare anche l'argomento relativo a maschere e relativi controlli.
saluti
Giap

---

salve
rileggendo, noto che la spiegazione di cui sopra, potrebbe essere male interpretata.
La semplificazione mostrata vale per l'esempio descritto (Riga 22 selezionata) non può essere applicata alla macro in generale. Resta valido il codice
Select Case RRiga
Case riga - 10
colore = 3
Case riga - 11
colore = 4
Case riga - 12
colore = 40
Case riga - 13
colore = 6
Case riga - 14
colore = 7
Case riga - 15
colore = 8
Case riga - 16
colore = 34
Case riga - 17
colore = 10
Case riga - 18
colore = 35
Case riga - 19
colore = 12
Case riga - 20
colore = 13
Case riga - 21
colore = 14
End Select

che prende come riferimento una qualsiasi riga selezionata nella tabella. L'esempio tendeva a mostrare il meccanismo adottato.
saluti
Giap

---

salve
La macro a cui ti riferisci, serve per confrontare la tabella 1 (colonne 4:8) con altre 3 tabelle Tabella2 (colonne 9:63) Tabella 3 (colonne(65:69) Tabella 4 (colonne 70:95) - Siccome si doveva applicare un colore diverso in base
alla tabella in cui si trovava la corrispondenza del valore cercato, ho giocato un po' con i numeri per identificare le tabelle.

La variabile "X" inizializzata come vuota, (X="") serve per registrare in quali tabelle è presente il valore scansionato della Tabella 1
La prima tabella scansionata e la tabella 4 se il record di tabella1 è presente in tabella 4 - X assume il valore 4 e lo memorizza nella variabile.
la seconda Tabella scansionata è la Tabella 3 se anche qui trova il valore di tabella 1 la Variabile X accorpa il numero 3 e diventa 43 ecc

Es. se in tabella 1 controllo il valore 10 e viene trovato sia in tabella2-Tabella3-Tabella4 la variabile X assume il valore di 432.
Finito di scansionare il primo numero in tutte le 3 Tabelle con il Select Case analizzo il valore di X per applicare il colore al record di Tabella 1.
Alla fine, per passare all'analisi del secondo record di tabella 1 ho la necessità di resettare il valore di X ecco perchè trovi di nuovo l'istruzione( X="")
saluti
Giap

---

salve
un sito che ti posso consigliare utile per entrare nell'ordine di idee del linguaggio vb è quello oramai storico di Ennius
http://ennius.interfree.it/index.html
ci trovi un mare di esempi organizzati per temi con spiegazioni chiare e semplici.
prova a darci una occhiata.
saluti
Giap

---