[excel2007] Copia ed incolla con macro

[Cele79]

Ciao a tutti.
Vorrei sapere se è possibile fare una macro che copi ed incolli un serie di celle.
io vorrei che le celle che vanno da CM44 a DA44 venissero incollate nelle celle da CM39 a DA39
e lo stesso le celle che vanno da CM40 a DA40 venissero incollate nelle celle da CM40 a DA40
questo quando do in comando per eseguire la macro perche nelle celle che vengono copiate c'è la formula casuale.tra()
e voglio che mi restino quei valori sino a quando io non gli voglio cambiare.
Il foglio dove voglio la macro è nominato COMBINAZIONI
Grazie.

[Cele79]

In un'altra tabella uso questa macro che ho provato a modificare ma senza ottenere risultati

Codice: Seleziona tutto

Sub Macro1()
    Sheets("VINCITE").Rows("7:7").Insert
    Sheets("VINCITE").Rows("4:4").Copy
    Sheets("VINCITE").Cells(7, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("VINCITE").Range("L4").ClearContents
End Sub


[scanacc]

Dovrebbe essere così... per le celle che vanno da CM44 a DA44 e che si devono incollare in CM39 fino a DM39. Non capisco però dove devono essere incollate le celle che vanno da CM40 a DA40. Sempre nel solito posto? Non capisco ....Ciao

Codice: Seleziona tutto

Sub Copia_Incolla()
'
' Copia_Incolla Macro
'
    Sheets("COMBINAZIONI").Select

    Range("CM44:DA44").Select
    Selection.Copy
    Range("CM39").Select
    ActiveSheet.Paste

End Sub


[Cele79]

Hai ragione non mi ero accorto dell'errore.
da CM41 a DA41 sono da incollare da CM40 a DA40

si puo fare tutto in una sola macro?
grazie

[Cele79]

Ciao scanacc.
Ho provato la tua macro e funziona bene pero mi copia anche la formula e quindi al riaggiornarsi dei calcoli si riaggiornano amche quelli incollati.
e possibile incollare solo i valore e non le formule?

[Cele79]

Ho modificato la macro che avevo cosi

Codice: Seleziona tutto

Sub Macro10()
    Sheets("COMBINAZIONE").Range("CM44:DA44").Copy
    Sheets("COMBINAZIONE").Range("CM39").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub


e va bene ma non so come farlo fare anche alla seconda serie di celle.

[scanacc]

prova così ..

Codice: Seleziona tutto

 
    Sub Macro10()
    Sheets("COMBINAZIONE").Range("CM44:DA44").Copy
    Sheets("COMBINAZIONE").Range("CM39").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("COMBINAZIONE").Range("CM41:DA41").Copy
    Sheets("COMBINAZIONE").Range("CM40").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

se ti va bene la prima che hai creat, dovrebbe andare anche la seconda.
Praticamente ho fatto il copia incolla della tua formula ed ho cambiato i riferimenti delle celle....
Fammi sapere