Condividi:        

Funzione copia di excel

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

Funzione copia di excel

Postdi PAGLIA 2017 » 24/05/17 18:15

Ciao a tutti,

E' possibile per ogni volta che inserisco un valore in una cella ,esempio A1,copi il suo contenuto in B1, però quando cambio il valore di a1 deve copiarmi il nuovo valore in C1, non perdendo il valore in B1.

Grazie in anticipo
PAGLIA 2017
Utente Junior
 
Post: 42
Iscritto il: 17/04/17 17:40

Sponsor
 

Re: Funzione copia di excel

Postdi Fabiolan » 24/05/17 19:04

Ciao, posta un file di esempio con ciò che vuoi realizzare. Personalmente non ho ben capito.
Fabiolan
Utente Junior
 
Post: 65
Iscritto il: 12/02/17 19:19

Re: Funzione copia di excel

Postdi PAGLIA 2017 » 24/05/17 19:27

Ciao,

in "A1" metto un valore ,esempio "2"
in automatico in "B1" deve comparire "2"
Se poi metto in "A1" un'altro valore ,esempio "3" in automatico mi deve copiare in "C1",però in "B1" deve rimanere 2!


Sono riuscito a spiegarmi, purtroppo non o ancora un file! sto appunto cercando di crearlo!

Grazie per il momento
PAGLIA 2017
Utente Junior
 
Post: 42
Iscritto il: 17/04/17 17:40

Re: Funzione copia di excel

Postdi Anthony47 » 24/05/17 22:53

Si puo' fare con macro.
-Tasto dx sul tab col nome del foglio su cui si lavora; scegli Visualizza codice
-copia questo codice e incollalo nel frame vuoto di dx
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ckArea As String
'
ckArea = "A1:A20"       '<<< L'area per cui si esegue la copia
If Application.Intersect(Target, Range(ckArea)) Is Nothing Or Target.Count <> 1 Then Exit Sub
Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = Target.Value
End Sub
Personalizza la riga marcata <<< come da commento.

Poi torrna sul foglio di lavoro e prova a inserire un valore nell'area dichiarata come ckArea.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Funzione copia di excel

Postdi PAGLIA 2017 » 25/05/17 02:30

Ciao Anthony,

Grazie, come al solito molto utile, ma io nel mentre ho evoluto il mio pensiero e ho provato a buttare giu questo, la mia prima macro in assoluto, addirittura con due richiami di altre due macro :

Sub copia()
Application.ScreenUpdating = False
Sheets("Foglio 2").Activate
Range("A2:f2").Select
Selection.Copy
Sheets("Foglio1").Activate
Range("A2:f2").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
Call disposizionevalori
Call Cancella18
End Sub

E devo dire che funziona, perchè copia pari pari l'area selezionata.
Mi sto cervellando però nel capire come poter applicare il ragionamento della tua macro alla mia, cioè con la mia eseguo un ciclo,che è vero che posso ripetere per ogni riga che mi serve, ma principalmente mi servirebbe ,appunto , che quando ridicito qualcosa in quei range ,mi ricopiasse ma senza però cancellarmi il primo copia, insomma che in automatico andasse a copiare nella prima riga sotto disponibile!

Nella tua macro é questo comando che determina lo spostamento alla colonna di destra?:
Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = Target.Value

in attesa di risposta,continuerò a cervellarmi.

Grazie e ciao
PAGLIA 2017
Utente Junior
 
Post: 42
Iscritto il: 17/04/17 17:40

Re: Funzione copia di excel

Postdi wallace&gromit » 25/05/17 10:48

La tua macro sarà anche funzionante (e comunque complimenti per averci provato), ma compie un'operazione completamente diversa rispetto alla tua domanda iniziale. A questo punto sarebbe veramente meglio che tu presentassi un file con l'indicazione precisa di cosa ti serve.
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Funzione copia di excel

Postdi PAGLIA 2017 » 04/06/17 17:36

ciao,

dato che avevo dei dati sensibili nel file, ne ho creato uno con dati a casaccio!

http://www.filedropper.com/bozzaarchiviotestxlsm

praticamente la prima volta che scrivo in foglio1 dei dati su "paolo" me li copia in foglio2,premendo il pulsante.
Però vorrei che se riscrivo altri dati, nel processo di copia,non mi cancelli i primi dati ma che copi nella prima riga disponibile sotto

ah scusate per l'attesa di risposta, problemi personali.

grazie
PAGLIA 2017
Utente Junior
 
Post: 42
Iscritto il: 17/04/17 17:40

Re: Funzione copia di excel

Postdi PAGLIA 2017 » 04/06/17 17:37

aggiungo:

che io ho messo una riga di prova, ma deve essere applicato per range molto piu grande.

ciao
PAGLIA 2017
Utente Junior
 
Post: 42
Iscritto il: 17/04/17 17:40

Re: Funzione copia di excel

Postdi PAGLIA 2017 » 05/06/17 22:01

ciao tutti,

credo di aver risolto.
condivido per chi servisse:

Codice: Seleziona tutto
Sub incolla_su_prima_riga_vuota()
Sheets("foglio 2").Select
Range("A2:f2").Select
Selection.Copy
Sheets("foglio1").Select
    Range("A65000").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Call Cancella18
End Sub


In questa maniera dopo aver riempito la riga, premendo il pulsante cancella, fa una copia della riga nell'altro foglio, nella prima riga disponibile. cosi se dovessi scrivere di nuovo sulla prima riga, copierà nuovamente però in un'altra riga se cancellare la precedente.

unica pecca è che ho dovuto creare un pulsante e quindi una macro per ogni riga!

aperto a suggerimenti per renderlo piu snello e facile

ciao
PAGLIA 2017
Utente Junior
 
Post: 42
Iscritto il: 17/04/17 17:40

Re: Funzione copia di excel

Postdi Anthony47 » 05/06/17 23:38

unica pecca è che ho dovuto creare un pulsante e quindi una macro per ogni riga!

La macro che avevo dato, che salvava automaticamente, in che cosa e' manchevole?
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Funzione copia di excel":


Chi c’è in linea

Visitano il forum: Nessuno e 26 ospiti