Buongiorno a tutti. Ho bisogno di una mano per realizzare una macro.
In una cartella ho un centinaio di file identici come struttura, ma che rappresentano ognuno un prodotto diverso, chiamati nomericetta.xlsx
Devo prendere i dati di produzioni distribuiti all'interno dei fogli e copiarli su un foglio riassuntivo, dove vado io a inserire i nella prima colonna il nome della ricetta.
la macro deve quindi leggere il nome della ricetta, aprire il file corrispondente, copiare i dati e poi passare allla casella successiva, fino all'ultima casella piena.
Per aprire il file corrispondente ho utilizzato questa macro,
Public Sub mApriFile()
Dim sh As Worksheet
Dim wrk As Workbook
Dim sPath As String
Dim sNomeFile As String
Dim lRisposta As Long
sPath = "D:\Documents and Settings\ ... \Ricette\NDF\801\"
Set sh = Worksheets("Base NK 801")
With sh
sNomeFile = .Range("B3").Value & ".xlsx"
Workbooks.Open (sPath & sNomeFile)
End With
End Sub
ma non so intanto come copiare tutti i dati perche passo dal mio foglio riiassuntivo al foglio aperto con il comando
sNomeFile = .Range("B3").Value & ".xlsx"
Workbooks.Open (sPath & sNomeFile)
piu volte.
Grazie per il vostro aiuto.