cercare e prelevare 128 estraz del lotto

[raimea]

ciao

tramite macro vorrei prelevare 128 estrazioni
da un determinata riga = Record. di una determ citta.

in fgl cicli32 in A2 scrivo il numero del record
di inizio ricerca x prelevare

in fgl cicli32 in B1 menu tendina, scelgo la citta da cercare


quindi andando in fgl archivio cerco il record in col A da A3
cerco la relativa citta in Riga 2 da D2

una volta individuato riga e citta
devo copiare i 5 numeri per 128 estraz successive
ed incollarli in fgl cicli32 partendo da cella B2
incollando >> Solo Valori.

vi allego il file

https://www.dropbox.com/scl/fi/q3kfh1lmkx3rlmb37i02n/preleva_128estrazioni.xlsm?dl=0&rlkey=92qxjgx9d0tmslk6ub4hmfllu


ciao

[Anthony47]

Probabilmente:

Codice: Seleziona tutto

Sub Per128()
Dim ASh As Worksheet, C32 As Worksheet
Dim staCol As Long, starow As Long
'
Set C32 = Sheets("Cicli 32  di 4 estr tre numeri ")
Set ASh = Sheets("Archivio")
'
staCol = Application.Match(C32.Range("B1").Value, ASh.Range("A2:BF2"), False)
starow = Application.Match(C32.Range("A2").Value, ASh.Range("A2:A10000"), False) + 1
ASh.Cells(starow, staCol).Resize(128, 5).Copy
C32.Range("B2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub


Fai sapere...

[raimea]

ciao

quando tento di associare un pulsante alla macro

mi risponde cosi

-- il riferim. deve essere un fgl macro

https://www.dropbox.com/s/3tkp603scgweoyc/211021.jpg?dl=0

[Anthony47]

Confonde Per128 con la cella PER128... Mah... Aiutiamolo cambiando il nome della maco in Sub PerPer128

Ciao

[raimea]

ciao
tutto ok

grazie

[miko]

Buonasera,
se non violo la privacy puoi rendere disponibile il file iniziale,
il link non funziona
mi interessa per capire come funziona la macro di anthony
ciao grazie

[raimea]

ciao
mi spiace
ma tutto il file non posso condividerlo

tutto il file non e mio
io ho sistemato solo 2 passaggi

posso passarti solo la parte interessata dove e stata messa la macro sopra
fai sapere

ciao