verifica corrispondenza codici e cerca un numero

Ciao Raimea, ti passo la mia macro commentata, ho aggiunto il blocco delle formule ed il tempo è sceso da circa 11 secondi a circa mezzo secondo 0,34.

Domenico che saluto ti commenterà la sua

questa la macro



ti allego anche 2 funzioni che ti saranno molto utili, le userai come Formule come se fosse una funzione normale.

sono il "Fuori90()" e "Vert90()", esempio nel tuo foglio che usi questa formula

=SE(RESTO(B2+D2;90);RESTO(B2+D2;90);90)

la sostituisci con

=Fuori90(B2+D2)

oppure il vertibile con del 61 che è il Fuori90 di prima

=Vert90(B2+D2) che è uguale a 16

queste le 2 funzioni, basta copiarle in un modulo e dimenticarle, poi applicare la funzione



allego anche il file.

Ciao By Sal (8-D

ok
cosi posso imparare a leggerle

grazie

Ciao se ti piace il VBA, allora incomincia ad imparare l'uso dell'editor, quello da imparare sono solo alcuni comandi, i principali sono 3

F5 fa partire la macro
F9 mette un punto di interruzione
F8 scorre la macro riga per riga

ce ne sono altri, ma questi sono necessari per vedere il funzionamento della macro, rilevare gli errori e correggerli nel caso ce ne sia bisogno

procedi piano piano.

le macro hanno un inizio ed una fine, iniziano con

Sub NomeMacro()

finiscono con

End Sub

tutto quello che si trova in mezzo sono i codici per il funzionamento

metti il cursore sulla riga Sub NomeMacro() e premi F9

vedrai la riga cambiare colore di norma Marrone con scritte bianche, premendo ancora F9 ritorna Normale

questo comporta un punto di blocco, cioè quando lanci la macro si fermerà in quel punto, quindi puoi decidere tu mettendo più punti di blocco quale parte della macro deve essere eseguita

adesso con il blocco posizionato su Sub NomeMacro() premi F5

questo farà partire la macro, ma logicamente si fermerà sulla prima riga diventando gialla, il cambio di colore Giallo significa che verrà eseguita l'istruzione di quella riga, per farla eseguire a questo punto premi F8

vedrai spostarsi la riga gialla alla riga successiva di comando, la riga delle variabile la legge ma non si ferma passa alla riga successiva.

a questo punto premendo ripetutamente F8 esegui la macro riga per riga controllando mano a mano cosa succede sul foglio per vedere se funziona bene oppure ci sono errori di esecuzione.

quando è attivo ScreenUpdating = false tali cambiamenti non li noti perche è bloccata la variazione del foglio, se devi fare i controlli devi disattivare ScreenUpdating con l'apostrofo.

ma oltre questo puoi vedere anche il valore che ha preso la variabile che hai assegnato, passando con il cursore sopra la variabile.

si può anche tornare indietro nella macro e rifare un passaggio modificando le istruzioni, per fare questo basta selesuonare sul bordo della riga gialla compare una frecci e puoi spostarla in avanti oppure indietro secondo quello che ti serve

ti metto una immagine per farti vedere il procedimento, nell'esecuzione della macro sopra.



con un poco di pratica potrai vedere come funzionano le macro ed acquisire più conoscenza.

Ciao By Sal (8-D

ciao
ho applicato ed adattato la macro di dodo47
ed era tutto ok

ora mi da un errore che prima non accadeva !

quando premo tasto prel 5/6 addendi
mi si blocca dicendo >>> tipo non corrispondente !

le ho provate tutte ma non capisco xche ora non funziona piu

la logica e uguale
cioe cercare la sigla di col Q in col J
prelev il corrispondente numero da inserire in col R

ma ora si blocca !

vi allego il file


NB
ho tentato anche di usare la macro di sal
ma non ho tradotto giusto qualcosa


[TESTO ::vba Sub RicPos() 'ricerca Posizione Dim r, c, d, p, n, x, y, rn1, rn2, arr1, Fine As Double, Inizio As Double Application.Calculation = xlCalculationManual 'blocca le formule r = Cells(Rows.Count, 17).End(xlUp).Row 'ultima riga colonna q Range("r2:r" & r).ClearContents 'pulisce dati in colonna r rn1 = Range("q2:q" & r) 'prende tutti i dati della colonna q Application.ScreenUpdating = False 'blocca lo scermo Inizio = Timer 'inizializza cronometro arr1 = Range("j2:j56") 'prende le sigle delle ruote r = Cells(Rows.Count, 9).End(xlUp).Row 'ultima riga colonna H rn2 = Range("I1:I" & r) 'prende estrazione colonna H For y = 1 To UBound(rn2) '1° ciclo scorre i numeri dell'estrazione n = rn2(y, 1) 'numero dell'estrazione p = arr1(y, 1) 'sigla dell'estrazione "Ba1-2-3-etc" Array colonna j For x = 1 To UBound(rn1) '2° ciclo scorre la colonna A If rn1(x, 17) = p Then 'confronta la sigla colonna q con la sigla dell'estrazione Cells(x + 1, 18) = n 'ogni volta che la trova scrive il numero in colonna r End If Next x Next y 'chiusura seleziona la cella A1 e rispristina lo schermo e il calcolo delle formule 'riportando il tempo impiegato Cells(1, 1).Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Fine = Timer MsgBox ("Tempo impiegato " & Round((Fine - Inizio), 2) & " secondi") End Sub]