Buongiorno.
Mi presento. Sono Michele e sono nuovo all'uso delle macro, ma vorrei imparare bene.

Stavo pensando ad una macro che mi possa risolvere un problema:

ho un foglio di lavoro "iniziale" che contiene un campo "data", un campo "articoli" etc;
Su altri fogli di lavoro ci sono dei movimenti di magazzino relativi a tutti gli articoli ordinati per data.
Nel primo foglio, inserendo una data, una volta associata ai movimenti del secondo foglio di lavoro, automaticamente devono essere copiate le righe provenienti proprio dalle celle del secondo foglio di lavoro.

La cosa forse più complicata è che una volta inserita la data, se a quella data sono associati ad esempio 10 movimenti, mi dovrebbe comparire un messaggio che mi chieda il range di righe che voglio copiare...

Non so se sono stato chiaro.
Grazie mille per l'aiuto!

su quanti fogli deve essere effettuata la ricerca? il filtro è applicato solo alla data?
saluti
Giap

---

salve
non sapendo come è strutturato il tuio file ho cercato di simuilare una situazione per come l'ho capita.

Nel foglio1 in cella A1 la data da ricercare
nel foglio2 la tabella nelle colonne A B C
la data nella claonna A a partirte da riga 2

la macro che vedi sotto, confronta le date, mostra quante righe rispettano la condizione, una inputBox chiederà quante righe vuoi copiare
nel foglio1 a partire da riga 5

Tieni conto che va adattata alla reale situiazione della tua cartella.

Sub confronta_Copia()
Application.ScreenUpdating = False
Sheets("foglio2").Select
miadata = Sheets("Foglio1").Range("a1").Value
crit1 = Format(DateSerial(Year(miadata), Month(miadata), Day(miadata)), "dd/mm/yyyy")
Range("a1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=crit1
ActiveSheet.AutoFilter.ApplyFilter
uriga = Range("a" & Rows.Count).End(xlUp).Row
Set area = Range(Cells(2, 1), Cells(uriga, 3)).SpecialCells(xlCellTypeVisible)
xx = area.Rows.Count
yy = area.Row
nr = InputBox("Righe trovate N. " & xx & vbCrLf & "quante righe Vuoi copiare?")
Set area2 = Range(Cells(2, 1), Cells(yy + CLng(nr) - 1, 3)).SpecialCells(xlCellTypeVisible)
area2.Select
Selection.Copy Destination:=Sheets("foglio1").Range("a5")
Application.CutCopyMode = False
Selection.AutoFilter
Range("a1").Select
Sheets("Foglio1").Select
Application.ScreenUpdating = True
Set area = Nothing
Set area2 = Nothing
End Sub


saluti
Giap

---

salve
qual'è la riga della macro che si evidenza di giallo per l'errore?
saluti
Giap

---

salve
L'errore che ti viene mostrato, significa che un nome definito nella macro non trova nessuna corrispondenza.
quando esegui la macro, se si verifica un errore, viene evidenziata di giallo la riga che produce l'errore.
ho bisogno di questa informazione.
saluti
giap

---

salve
continui a non rispondere alla mia domanda. Qual'è la riga incrimionata?
quando ti compare il messaggio di errore cliccando su "Debug" che riga ti mostra?

sarebbe meglio vedere il file per capire la situazione.
saluti
Giap

---

salve carica il tuo file QUI e posta l'indirizzo per condividerlo
saluti
Giap

---

Salve. Ho provato e riprovato ma mi dà sempre lo stesso errore. Non c'è modo di usare altri canali per inviarti il file?

Grazie.
Saluti.

M

Salve.
Dovrei averlo inviato in formato .zip
è arrivato? Non mi dava riscontri sull'esito...

Grazie.

Mic

Ciao.

Scusa, ma non ho capito bene...
Non ti è arrivato il file?
O devo prelevare io un file da te?
Ma poi come faccio a postare l'indirizzo?

Grazie.
Mic