Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

AAA Excel :Copiare e incollare mantenendo valori e formule

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

AAA Excel :Copiare e incollare mantenendo valori e formule

Postdi pascod » 03/01/12 10:03

Ciao ragazzi,
a lavoro ho un problemino che vi spiego con un esempio:
nelle prime 5 righe di una colonna di un file Excel ho alcuni dati linkati ad un file xls esterno, nella sesta ho la formula del totale come Sum(...).

Ogni fine mese devo "s"linkare le prime 5 righe ma lasciare il totale della 6° come formula. Prima facevo copia ed incolla solo valore per tutte le mie 2000 righe, perdendo la formula del totale che d'ora in poi dovrò mantenere.

Come faccio a dire ad excel di togliere il link, mantenendo solo il valore, e dove c'è la somma di lasciarla???
Grazie ragazzi, lo so che non è immediata la soluzione ma non ho elementi sufficienti di vba per farlo autonomamente.!

Pasco
Office 2010 su Windows 7 Prof.
pascod
Utente Junior
 
Post: 42
Iscritto il: 03/01/12 09:54

Sponsor
 

Re: AAA Excel :Copiare e incollare mantenendo valori e formu

Postdi Flash30005 » 03/01/12 11:43

Ciao Pascod e benvenuto nel Forum

La cosa più semplice da fare è proprio copiare/incollare i valori del foglio e ripristinare l'unica (?) formula che ti occorre quindi puoi usare questa macro

Codice: Seleziona tutto
Sub CopiaValRiprFormula()
'------ Da qui fino dove indicato copia e incolla il valori delle celle
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
        Range("A1").Select
'------- Fine copia

'---- il seguente codice inserisce la formula Somma nella cella B6 (da B1 a B5),
        Range("B6").FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
'-----adatta la lettera B alla colonna che ti occorre ed, eventualmente, anche la riga 6
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: AAA Excel :Copiare e incollare mantenendo valori e formu

Postdi pascod » 03/01/12 12:08

Grazie per la celerità!!
ma purtroppo nel file, costituito da 16 colonne divise per trimestri e con totali a fianco, le righe della somma cambiano ogni categoria di prodotto, mi spiego: la prima somma è sum ( a1 a5), le seconda sarà sum (a18 a 39)... quindi la macro dovrebbe riconoscere le somme e lasciarle tali.. mentre dovrebbe copiare a valore il link...

Grazie
Pasco
Office 2010 su Windows 7 Prof.
pascod
Utente Junior
 
Post: 42
Iscritto il: 03/01/12 09:54

Re: AAA Excel :Copiare e incollare mantenendo valori e formu

Postdi Flash30005 » 03/01/12 12:29

Capisco
ma se le formule non sono molte e sono sempre nelle stesse celle
la procedura più semplice rimane quella di ripristinare le formule con la macro dopo aver copiato e incollato i valori

adesso bisognerebbe sapere dove sono le formule (tutte) perché come hai visto con una semplice riga di codice la formula viene rispristinata

altrimenti invia il file, togliendo dati sensibili

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: AAA Excel :Copiare e incollare mantenendo valori e formu

Postdi Flash30005 » 03/01/12 13:29

Nel frattempo ho escogitato una possibile soluzione

Codice: Seleziona tutto
Sub Trovalink()
Righe = Range("A2").CurrentRegion.Rows.Count
MaxCol = ActiveSheet.UsedRange.Columns.Count
Application.Calculation = xlManual
With Range(Cells(1, 1), Cells(Righe, MaxCol))
    Set C = .Find("\", LookIn:=xlFormulas)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
             C.Value = Val(C.Value)
             Set C = .FindNext(C)
            On Error Resume Next
        Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
End With
On Error GoTo 0
Application.Calculation = xlCalculationAutomatic
End Sub


In pratica vengono copiate come valore tutte le celle che hanno lo slash "\" del percorso del file
Lo slash è visibile se il file collegato è chiuso

prova e fai sapere
ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "AAA Excel :Copiare e incollare mantenendo valori e formule":


Chi c’è in linea

Visitano il forum: Nessuno e 13 ospiti