Condividi:        

Macro per copiare celle scritte da foglio a foglio

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

Macro per copiare celle scritte da foglio a foglio

Postdi claudialuzzatto » 14/01/13 11:44

]Buongiorno a tutti e un grazie a quanti mi risponderanno.
ho un problema di questo genere: su un figlio excel (scheda) inserisco una serie di dati :
id assistito Nominativo Giorno / mese Totale Kg.
40 pinco 14-gen 14,050

su altra riga (sotto)inserisco ciò che io decido di dare a questa persona quindi con codice 1520 darò a pinco 15 pz da 500 g di grana, 10 pz da 655 g di granaAgea ecc

Codice al. Denominazione Peso un. Q.ta Kg.
1520 Formaggio grana 0,500 15 7,500
1521 Formaggio Grana Agea 0,655 10 6,550

automaticamente mi si aggiorna il totale sulla prima riga(totale kg).


su un altro foglio (Archivio) vorrei poter copiare automaticamente tutti i dati scritti nel foglio di prima (scheda)e poi cancellare il folgio di prima (scheda). come posso fare?
grazie mille claudia
claudialuzzatto
Newbie
 
Post: 8
Iscritto il: 14/01/13 11:31

Sponsor
 

Re: Macro per copiare celle scritte da foglio a foglio

Postdi Flash30005 » 14/01/13 12:13

Ciao Claudia e benvenuta nel Forum

con una macro ad hoc si dovrebbe risolvere il quesito ma, per centrare l'obiettivo, dovresti inviare un facsimile del tuo file (modifica dati sensibili)

Per l'invio file segui questa procedura

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: Macro per copiare celle scritte da foglio a foglio

Postdi claudialuzzatto » 14/01/13 12:15

si ma come si fa ad allegare un file in questo forum?
claudialuzzatto
Newbie
 
Post: 8
Iscritto il: 14/01/13 11:31

Re: Macro per copiare celle scritte da foglio a foglio

Postdi Flash30005 » 14/01/13 12:19

:roll:
la procedura indicata spiega come fare
comunque utilizza questo server
clicchi su "Upload file"
selezioni il file sul tuo HardDisk
premi ok
una volta che il server ha caricato il tuo file ti rilascerà un indirizzo
copi quell'indirizzo e lo incolli nel post del forum utilizzando il tag URL che trovi nell'editor

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: Macro per copiare celle scritte da foglio a foglio

Postdi Flash30005 » 14/01/13 12:46

Prova questa macro
Codice: Seleziona tutto
Sub Archivia()
Set WsA = Worksheets("Archivio")
Set WsS = Worksheets("Scheda")
URA = WsA.Range("A" & Rows.Count).End(xlUp).Row + 1
URS = WsS.Range("A" & Rows.Count).End(xlUp).Row
WsA.Range("A" & URA).Value = WsS.Range("A10").Value
WsA.Range("B" & URA).Value = WsS.Range("B10").Value
WsA.Range("C" & URA).Value = WsS.Range("C10").Value
WsA.Range("D" & URA).Value = WsS.Range("D10").Value
WsA.Range("E" & URA).Value = WsS.Range("E10").Value
WsA.Range("F" & URA).Value = WsS.Range("F10").Value
WsS.Range("A10:B10").ClearContents
WsS.Range("A12:A" & URS).ClearContents
WsS.Range("D12:D" & URS).ClearContents
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: Macro per copiare celle scritte da foglio a foglio

Postdi claudialuzzatto » 14/01/13 15:51

ormai io ne approfitto della disponibilità
nel mio programmino c'è già un pulsante di archiviazione 'macro' che funziona in questo modo.

1'copia i dati della prima riga del foglio scheda

2' li incolla nella riga del foglio archivio

3' cancella i dati scritti nel foglio scheda individuale

io avrei bisogno di salvare l'intero contenuto della scheda individuale nell'archivio, con la possibilità di sommare più schede,e non solo la prima riga come adesso.
ho provato ad inserire la macro (sub archivia), ma non copia i dati....
non ci capisco niente aiuttoooooo. grazie mille cmq
claudialuzzatto
Newbie
 
Post: 8
Iscritto il: 14/01/13 11:31

Re: Macro per copiare celle scritte da foglio a foglio

Postdi claudialuzzatto » 15/01/13 09:51

ciao io ho inserito il comando che mi hai scritto in vba, ma non mi copia dalla righa dalla A12 in poi di scheda, nelle colonne dalla G.. in poi di archivio.
come posso fare? scusa se stresso. riallego il file modificato
http://www.filedropper.com/caritasparrocchialeregistroanualealimentidefxls1_2
claudialuzzatto
Newbie
 
Post: 8
Iscritto il: 14/01/13 11:31

Re: Macro per copiare celle scritte da foglio a foglio

Postdi Flash30005 » 15/01/13 20:01

Non posso immaginare come vorresti i dati
almeno invia un file di esempio con dati inseriti sia nella Scheda che in archivio e che faccia da esempio per realizzare una macro

Non so, in pratica, se con un nominativo in B10 e 5 o 6 righe nella scheda da A12 ad a17 come dovranno essere riportati nel foglio archivio

quindi sii più esaustiva e non perdere la pazienza :D

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: Macro per copiare celle scritte da foglio a foglio

Postdi claudialuzzatto » 16/01/13 08:44

http://www.filedropper.com/archivio_3

http://www.filedropper.com/scheda

Non perdo la calma...anzi, mai avrei pensato che foste così gentili da aiutarmi!! :lol:
io avrei bisogno, come da esempio che i dati inseriti in scheda, vengano riportati tutti in archivio (tutti quelli scritti e compilati), quindi non solo nome cognome e peso totale, ma anche gli alimenti che diamo a quella famiglia.
inoltre dopo aver portato i dati in archivio, che i campi in scheda vengano eliminati e si possa inserire nuovi dati e che questi vengano poi copiati nuovamente (sotto quelli appena inseriti in archivio).
inoltre se ho inserito l'utente 1 rossi in archivio e poi devo inserire ancora l'utente 1 da scheda, che sia possibile rinserirlo ina rchivio, riportando ancora il nominativo Rossi, ma sotto quello precedentemente introdotto.
grazie mille Claudia
claudialuzzatto
Newbie
 
Post: 8
Iscritto il: 14/01/13 11:31

Re: Macro per copiare celle scritte da foglio a foglio

Postdi Flash30005 » 16/01/13 11:43

Sotituisci la macro precedente con questa
Codice: Seleziona tutto
    Sub Archivia()
    Set WsA = Worksheets("Archivio")
    Set WsS = Worksheets("Scheda")
    URA = WsA.Range("G" & Rows.Count).End(xlUp).Row + 1
    If URA < 5 Then URA = 5
    URS = WsS.Range("A" & Rows.Count).End(xlUp).Row
    If URS < 12 Then Exit Sub
    WsA.Range("A" & URA).Value = WsS.Range("A10").Value
    WsA.Range("B" & URA).Value = WsS.Range("B10").Value
    WsA.Range("C" & URA).Value = WsS.Range("C10").Value
    WsA.Range("D" & URA).Value = WsS.Range("D10").Value
    WsA.Range("E" & URA).Value = WsS.Range("E10").Value
    WsA.Range("F" & URA).Value = WsS.Range("F10").Value
    For RRS = 12 To URS
        URA = WsA.Range("G" & Rows.Count).End(xlUp).Row + 1
        WsA.Range("G" & URA).Value = WsS.Range("A" & RRS).Value
        WsA.Range("H" & URA).Value = WsS.Range("B" & RRS).Value
        WsA.Range("I" & URA).Value = WsS.Range("C" & RRS).Value
        WsA.Range("J" & URA).Value = WsS.Range("D" & RRS).Value
        WsA.Range("K" & URA).Value = WsS.Range("E" & RRS).Value
    Next RRS
    WsS.Range("A10:B10").ClearContents
    WsS.Range("A12:A" & URS).ClearContents
    WsS.Range("D12:D" & URS).ClearContents
    End Sub


E, se non lo avevi già fatto, abbina a questa macro un pulsante di avvio

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: Macro per copiare celle scritte da foglio a foglio

Postdi claudialuzzatto » 16/01/13 15:22

grazie mille :lol: sei un mago!! ti sono debitrice!
Claudia
claudialuzzatto
Newbie
 
Post: 8
Iscritto il: 14/01/13 11:31


Torna a Applicazioni Office Windows


Topic correlati a "Macro per copiare celle scritte da foglio a foglio":


Chi c’è in linea

Visitano il forum: Nessuno e 47 ospiti