[EXCEL] MACRO INSERIRE DATI IN UNO STORICO

[MIRUS82]

Salve a tutti avrei bisogno di aggiornare un foglio all'interno di un file con dei dati che vengono inseriti man mano in fogli diversi.

Il file raccogli i seguenti dati:

Data: (nella cella ("B2")) 01 - gen

A__________ B___________ C____________ D_____________ E______________ F ___________ G__________H
ph6200_____ 15x60_____ __ 2.500__________ 3.500________ 1.000________ 810________ 23,15%________
ph5000_____ 30x33_____ __ 2.500__________ 3.500________ 1.000________ 810________ 23,15%________


La macro attualmente salva il file corrente, crea un nuovo foglio copia del primo con la data successiva al primo.
Volevo sapere se è possibile salvare i dati in un altro foglio del file chiamato "Storico" che è sviluppato nel seguente modo



A__________ B___________ C____________ D_____________ E______________ F ___________ G__________
01-gen____ph6200_____ 15x60_____ __ 2.500__________ 3.500________ 1.000________ 810________ 23,15%________
01-gen____ph5000_____ 30x33_____ __ 2.500__________ 3.500________ 1.000________ 810________ 23,15%________
02-gen____ph6200_____ 15x60_____ __ 2.350__________ 3.500________ 1.000________ 810________ 23,15%________
02-gen____ph5000_____30x33_____ __ 2.500__________ 3.500________ 1.000________ 810________ 23,15%________

Spero di essermi spigato bene: la macro dovrebbe inserire i valori del foglio corrente nel foglio "Storico" mettendo la data nella prima colonna, io mi trovo in difficoltà perchè non riesco a mettere in fila dati, cioè con quelli del 2 gennaio copro quelli del 1 gennaio.
Nel caso che qualcuno riesca a darmi una mano mi basta avere aiuto per la colonna A della data e per la colona B poi dovrei riuscire a replicarlo per le altre.
Concludo dicendo che ho provato per tutta la mattina a spulciare topic simili, ma non sono riuscito a trovarne uno che risolvesse il mio problema.

Grazie Mille in anticipo.

[ricky53]

Ciao,
prima di tutto benvenuto nel nostro forum.

Veniamo al tuo quesito:
la cella "b" contiene una data la prima riga con i valori allora sarà la "3"?
Tu hai più fogli, dello stesso file, che vuoi copiare nello storico?

Puoi inviarci il codice che hai a disposizione e l'immagine dei dati.

[MIRUS82]

Ciao ricky, la prima riga con i valori è la 5, nel file c'è un foglio che quando clicco il bottone "registra" (macro) mi crea un nuovo foglio, e vorrei che i dati del foglio precedente venissero inseriti nel fogilo "Storico". il codice prevede anche di salvare il file e inviarlo, ma questo funziona correttamente.

Codice: Seleziona tutto

Sub Ivio_Salva()


Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String

EmailAddr = "xxxx@xxx.com.it"  'indirizzo mail di chi vuole ricevere il rappoto, separare con il punto e virgola
Subj = "Rapporto fine turno"




Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)



With OutMail
.To = EmailAddr
.CC = ""
.BCC = ""
.Subject = "Rapporto di turno - Reparto Presse" & " " & Range("B2") & " " & "turno: " & Range("D2")
.Body = Range("A1").Value & " " & Range("D1") & vbCrLf & "Operatore:" & "  " & Range("F2") & " " & vbCrLf & "turno del " & " " & Range("D2").Value & " del " & Range("B2").Value

.Attachments.Add ActiveWorkbook.FullName
.send

End With

ActiveWorkbook.Save
ActiveSheet.Name = Format(Range("B2").Value, "dd-mm-yyyy") & " " & Range("D2") ' rinomina il foglio con la data di domani

ActiveSheet.Copy After:=Sheets(Sheets.Count) ' crea un nuovo foglio e copia del primo
ActiveSheet.Name = Format(Range("B2").Value + 1, "dd-mm-yyyy") ' rinomina il foglio con la data di domani

Set OutMail = Nothing
Set OutApp = Nothing

ActiveSheet.Copy 'crea una copia solo del foglio corrente
nome = "G:\Comune\del " & Format([B2], "dd-mm-yyyy") & " " & [D2] & ".xls"
ActiveWorkbook.SaveAs nome 'salva solo il foglio in uso nella destinazione inserita nella variabile nome
ActiveWorkbook.Close 'chiude la copia salvata e rimane solo il file originale aperto da modificare



End Sub

[MIRUS82]

Non riesco a inviarti l'immagine, mi puoi dire come si fa? Grazie.

[Anthony47]

Ciao MIRUS82, benvenuto anche da parte mia.
Per allegare un file o uno screenshot guarda qui: viewtopic.php?f=26&t=80395
Suggerisco di allegare un file, non la semplice immagine, per evitare che chi vuole provare ad aiutarti non debba sciupare tempo a creare la stessa struttura dati che hai tu.

Ciao

[MIRUS82]

Scusate il ritardo, ho imparato a usare rapid share....
Il link dovrebbe essere questo:
http://rapidshare.com/share/272030129B24D0C9F2B7D25F8B53CD78

[Flash30005]

Ciao Mirus82 e benvenuto nel Forum
non ho afferrato bene cosa dovrebbe fare la macro dopo aver copiato i dati nel foglio "Storico" intanto pubblico questa macro che copia dal foglio attivo l'intera tabella poi vediamo...

Codice: Seleziona tutto

Sub CStorico()
Set Ws1 = Worksheets("Storico")
Set Ws2 = Worksheets(ActiveSheet.Name)
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
For RR2 = 5 To UR2
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row + 1
If UR1 < 3 Then UR1 = 3
Ws1.Range("A" & UR1).Value = Ws2.Range("B2").Value
Ws2.Range("A" & RR2 & ":G" & RR2).Copy Destination:=Ws1.Range("B" & UR1)
Next RR2
End Sub

ciao

[MIRUS82]

Flash,la macro che mi hai fornito esegue perfettamente quello che volevo, non mi ero spiegato bene.
Ringrazio te e tutto il team per il supporto fornitomi.