Condividi:        

[EXCEL] MACRO INSERIRE DATI IN UNO STORICO

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[EXCEL] MACRO INSERIRE DATI IN UNO STORICO

Postdi MIRUS82 » 14/02/14 16:28

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.
MIRUS82
Newbie
 
Post: 5
Iscritto il: 14/02/14 15:31

Sponsor
 

Re: [EXCEL] MACRO INSERIRE DATI IN UNO STORICO

Postdi ricky53 » 14/02/14 16:58

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [EXCEL] MACRO INSERIRE DATI IN UNO STORICO

Postdi MIRUS82 » 14/02/14 17:22

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
Newbie
 
Post: 5
Iscritto il: 14/02/14 15:31

Re: [EXCEL] MACRO INSERIRE DATI IN UNO STORICO

Postdi MIRUS82 » 14/02/14 17:23

Non riesco a inviarti l'immagine, mi puoi dire come si fa? Grazie.
MIRUS82
Newbie
 
Post: 5
Iscritto il: 14/02/14 15:31

Re: [EXCEL] MACRO INSERIRE DATI IN UNO STORICO

Postdi Anthony47 » 14/02/14 18:09

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
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [EXCEL] MACRO INSERIRE DATI IN UNO STORICO

Postdi MIRUS82 » 17/02/14 08:40

Scusate il ritardo, ho imparato a usare rapid share....
Il link dovrebbe essere questo:
http://rapidshare.com/share/272030129B24D0C9F2B7D25F8B53CD78
MIRUS82
Newbie
 
Post: 5
Iscritto il: 14/02/14 15:31

Re: [EXCEL] MACRO INSERIRE DATI IN UNO STORICO

Postdi Flash30005 » 17/02/14 12:40

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] MACRO INSERIRE DATI IN UNO STORICO

Postdi MIRUS82 » 17/02/14 14:37

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.
MIRUS82
Newbie
 
Post: 5
Iscritto il: 14/02/14 15:31


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] MACRO INSERIRE DATI IN UNO STORICO":


Chi c’è in linea

Visitano il forum: Nessuno e 60 ospiti