Excel - Macro per incollare valori

[sasy89]

Buongiorno,
ho creato un file excel che mi calcola le probbabilità che un dato evento si manifesti e ho un archivio dove salvo tutti i risultati, nello specifico ho i dati che vanno dalla cella C3 a J3.
ho un pulsante "INSERISCI" al quale è assegnato una macro che copia i dati nella prima riga vuota che è il seguente:

Codice: Seleziona tutto

 Sub Incolla_dati()
Range("C3:J3").Copy Destination:=Range("C65535").End(xlUp).Offset(1, 0)
End Sub

purtroppo mi copia le formule che ci sono in C3:J3 restituendomi nella prima riga vuota tutti 0.
la mia domanda è come posso fare per incollare i valori (incolla speciale - valori) anzichè fare un copia e incolla semplice?
Grazie a tutti per l'aiuto

[Flash30005]

Prova così

Codice: Seleziona tutto

Sub Incolla_dati()
    UR = Range("C" & Rows.Count).End(xlUp).Row + 1
    Range("C1:J1").Copy
    Range("C" & UR).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

ciao

[Gigi_]

Ciao io pensavo a questa forma:

Codice: Seleziona tutto

Sub Incolla_dati()
Range("C65535").End(xlUp).Offset(1, 0).Value = Range("C3")
Range("D65535").End(xlUp).Offset(1, 0).Value = Range("D3")
Range("E65535").End(xlUp).Offset(1, 0).Value = Range("E3")
Range("F65535").End(xlUp).Offset(1, 0).Value = Range("F3")
Range("G65535").End(xlUp).Offset(1, 0).Value = Range("G3")
Range("H65535").End(xlUp).Offset(1, 0).Value = Range("H3")
Range("I65535").End(xlUp).Offset(1, 0).Value = Range("I3")
Range("J65535").End(xlUp).Offset(1, 0).Value = Range("J3")
End Sub

Approfitto della Presenza di Flash per chiedere: come se ne può fare un ciclo, insomma evitare di ripetere tutti i campi come ho grossolanamente fatto io (immagina poi se invece di 8 fossero decine...). SO che puoi darmi la risposta... grazie

[Anthony47]

Ma in questo esempio non c' e' nessun vantaggio a trasformare 1 copia in una serie di copie...
Mi permetto anche di suggerire una possibile alternativa a quanto gia' proposto:

Codice: Seleziona tutto

Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Resize(1, 8).Value = Range("C3:J3").Value

Ciao a tutti.

[ricky53]

Ciao Gigi
dopo aver provato quanto ti ha suggerito Anthony ...
prova questo codice che fa la stessa cosa che ti ha indicato Anthony ...

Codice: Seleziona tutto

Sub Incolla_dati()
' Copia i dati dalla colona "C"  a  colonna "J" della riga  "3" sulla prima cella libera dell'intervallo "C:J"
    For I = 3 To 10
        UR = Cells(Rows.Count, I).End(xlUp).Row + 1
        Cells(UR, I) = Cells(3, I)
    Next I
End Sub


[sasy89]

Prova così

Codice: Seleziona tutto

Sub Incolla_dati()
    UR = Range("C" & Rows.Count).End(xlUp).Row + 1
    Range("C1:J1").Copy
    Range("C" & UR).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

ciao

Grazie mille questo codice funziona perfettamente ..grazie anche agli altri che mi hanno aiutato

[Gigi_]

Ciao Gigi
dopo aver provato quanto ti ha suggerito Anthony ...
prova questo codice che fa la stessa cosa che ti ha indicato Anthony ...

Codice: Seleziona tutto

Sub Incolla_dati()
' Copia i dati dalla colona "C"  a  colonna "J" della riga  "3" sulla prima cella libera dell'intervallo "C:J"
    For I = 3 To 10
        UR = Cells(Rows.Count, I).End(xlUp).Row + 1
        Cells(UR, I) = Cells(3, I)
    Next I
End Sub


questa l'ho capita, grazie! sto studiando l'altra, ha argomenti nuovi per me, moolto interessanti entrambe.

[ricky53]

Ciao,
quella di Anthony è potente perchè utilizzando "Resize" può essere anche "COMPATTA"