Ciao Cerchiamo di fare una cosa alla volta, prima un controllo preventivo, poi si potrà procedere al resto
la prima cosa dobbiamo trovare tutti i codici che hanno la stessa impostazione della scheda, ti ho preparato un foglio che fa questo tipo di passaggio, al momento è soltanto un modello, però potrai sviluppare tu sulla base di questo le impostazioni delle altre schede.
visto che i quadri della scheda sono 3,
Scheda, Costo e Distinta base, o preso le voci iniziali e l'indirizzo della cella, poi ho fatto un controllo con i fogli codici e mi sono fatto riportare tutti i nomi dei codici che corrispondono con il modello, a questo punto i codici trovati possono già passare al Database con questa impostazione, facendo un altro modello possiamo trovare altri codici che corrispondono al modello, fino a che alla fine avremo tutti i codici ognuno relativi a diversi modelli di scheda, poi sulla base di questo possiamo sviluppare il database.
non ho considerato i dati della riga 38 in poi che si possono fare con una macro dedicata, l'importante è l'impostazione dei dati del codice
ti metto un file con il foglio 1 e la macro che seleziona i codici uguali al modello, il primo modello e quello relativo al tuo codice "AAAA AA" del tuo file.
copia il "Foglio1" nel tuo file originale e lancia la macro questa per conoscere una prima "trance" di codici
Sub controllo()
Dim sh1 As Worksheet, fg As Worksheet
Dim r, c, d, x, y, t, n, rng
Set sh1 = Worksheets("Foglio1")
sh1.Activate
Application.ScreenUpdating = False
rng = Range("A2:B44")
Columns("D:D").ClearContents
sh1.Cells(1, 4) = "Codici"
r = 2: c = 4
For x = 1 To Sheets.Count
Set fg = Worksheets(Sheets(x).Name)
If fg.Name = "Foglio1" Or fg.Name = "Base" Or fg.Name = "Riepilogo" Then GoTo 1 'fogli da escludere
fg.Activate
t = 0: n = 0
For y = 1 To UBound(rng)
If fg.Range(rng(y, 2)) = rng(y, 1) Then n = n + 1
Next y
If n = 43 Then sh1.Cells(r, c) = fg.Name: r = r + 1
1 Next x
sh1.Activate
End Sub
inserisci i nomi dei fogli da escudere allungando nel caso o sostituire "Base" e "Riepilogo" che sicuramente non ci sono nel tuo file
questo un abbozzo del database, come vedi le differenze maggiori sono nel quadro "Distinta base" ultima immagine, che i dati non vengono riportati nella voce giusta, in quanto il modello è differente, ti allego le immagini, per i quadri ma è un unico foglio.
Come vedi fino a "sacchetto nylon" i dati sono coerenti dopo si ingarbugliano, come mai alcuni hanno la "tappatrice" ed altri no sarà un modello diverso senza tappatrice
ti allego il file, fai sapere, Ciao By Sal
[Modificato da by sal 30/03/2022 09:54]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui