Funzione copia di excel

[PAGLIA 2017]

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

[Fabiolan]

Ciao, posta un file di esempio con ciò che vuoi realizzare. Personalmente non ho ben capito.

[PAGLIA 2017]

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

[Anthony47]

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

[PAGLIA 2017]

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

[wallace&gromit]

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.

[PAGLIA 2017]

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]

aggiungo:

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

ciao

[PAGLIA 2017]

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

[Anthony47]

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?