non riesco a trovare una soluzione a questo mio problema... vi spiego..
Ho in pratica 2 listini ognuno con codice, titolo, prezzo e varianti, composta da circa 4000 righe.
La cosa che hanno in comune questi due listini (almeno per l' 80%) è il titolo.
L'ordine però è diverso per i due listini.
A me servirebbe una funzione, o una macro, che allinei tra i due listini i titoli uguali (se ci sono) portando con se i rispettivi codici prezzo e varianti.
Spulciando qui sul forum ho trovato una problematica uguale alla mia ma applicando la macro consigliata excell si incarta e non processa tale macro.
Vi allego qui sul forum premendo il link in basse il file excel con la macro già inserita.
http://www.casadelvigile.it/Prova_allineamento1_macro.xlsm
La macro inserita è appunto questa:
- Codice: Seleziona tutto
Sub Allinea()
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
Ws2.Columns("A:L").Clear
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
Ws1.Range(Cells(1, 1), Cells(UR1, 5)).Copy Destination:=Ws2.Range("A1")
Ws1.Range(Cells(1, 6), Ws1.Cells(1, 8)).Copy Destination:=Ws2.Range("I1")
For RR1 = 2 To UR1
CodB = Ws1.Range("B" & RR1).Value
For RR2 = 2 To UR1
If Ws1.Range("I" & RR2).Value = CodB Then Ws1.Range(Cells(RR2, 6), Cells(RR2, 8)).Copy Destination:=Ws2.Range("I" & RR1)
Next RR2
Next RR1
End Sub
Spero tanto che qualcuno mi possa indicare come mai excel va subito in (non risponde)
Secondo voi devo semplicemente aspettare oppure sbaglio il codice??
Grazie infinite a chiunque partecipi a darmi una mano.
Antonio C.