AAA Excel :Copiare e incollare mantenendo valori e formule

[pascod]

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

[Flash30005]

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

[pascod]

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

[Flash30005]

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

[Flash30005]

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