Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
copia incolla
- Hai un problema con Excel?
copia incolla
di luca (utente non iscritto) data: 02/02/2014 19:12:51
Permetto non so usare le macro
Ciao a tutti ho creato un foglio di lavori per calcolare dei prezzi, vorrei se possibile copiare il risultato di ogni calcolo in una casella diversa per ottenere un elenco dei risultati.
Per precisare il risultato mi viene es nella casella A1 vorrei copiare il valore nella casella C1 e via di seguito senza perdere il valore dopo ogni calcolo
Si può fare????
Grazie mille per l'aiuto
di patel data: 02/02/2014 21:13:48
allega un file di esempio con le spiegazioni ed il risultato desiderato
di luca (utente non iscritto) data: 03/02/2014 07:38:15
Sub Salva()
Worksheets("prezzo scuri").Select
Range("K8").Select 'celle che vuoi copiare
Ho scritto questi comandi e funziona!!!
L'unico problema è che sono varie macro quindi ogni volta che voglio salvare un dato devo attivare una macro diversa.
E' possibile legare tutte le macro a un comando di avvio unico???
ovviamente senza perdere i calcoli salvati prima
Grazie per l'aiuto
Sub Salva() Worksheets("prezzo scuri").Select Range("K8").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("D13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("C3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("A13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("E3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("B13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("C3").Select End Sub Sub Salva1() Worksheets("prezzo scuri").Select Range("K8").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("D14").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("C3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("A14").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("E3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("B14").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C3").Select End Sub Sub Salva2() Worksheets("prezzo scuri").Select Range("K8").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("D15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("C3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("A15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("prezzo scuri").Select Range("E3").Select 'celle che vuoi copiare Selection.Copy Worksheets("prezzo scuri").Select ' foglio dove vuoi copiare Range("B15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C3").Select End Sub
- Vuoi Approfondire?
