[excel] Copia - IncollaValori con criterio

[marcellochemin]

Ciao Ragazzi,
dopo la brillante soluzione che mi avete dato per separare il testo nelle celle torno alla carica con una Macro che da qualche tempo mi affligge.
Spero di farvela il più facile possibile:
Averei bisogno di una macro che in automatico copiasse i valori contenuti in "x" colonne (dalla riga 10 alla 31) e li ricopiasse (nella stessa identica posizione in cui si trovano) ma sotto forma di Values.
Il criterio (le "x" colonne) è che ci sia un "1" nella riga 9.
Vi allego un'immagine:
http://i.imgur.com/Mq4A6IK.jpg
In pratica mi servirebbe che tutti i valori della tabella venissero copiati ed incollati come Values.
Grazie a tutti in anticipo,
ciao,

Marcello

[alfrimpa]

Ciao Michele

In pratica tu vorresti che se in riga 9 c'è 1 i valori (evidentemente espressi da formule) siano "trasformati" in valori assoluti?

Allega, però, il tuo file (con un immagine non si può far nulla) in modo che chi volesse aiutarti non debba ricrearselo ex novo.

[Anthony47]

Giusta l' osservazione di Alfredo: un file di esempio aiuta ad aiutarvi.
Intanto prova con questa macro:

Codice: Seleziona tutto

Sub csval()
'Vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=104735
Dim I As Long
'
For I = 1 To Cells(9, Columns.count).End(xlToleft).Column
    If Cells(9, I).Value = 1 then
        Cells(10, I).Resize(22,1).Copy
        Cells(10, I).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutcopyMode = False
    End If
Next I
End Sub


Fai sapere l'esito, ma se non risolve allora allega il file di esempio per fare i dovuti test; per come fare vedi www.pc-facile.com/forum/viewtopic.php?f ... 87#p605487

Ciao

[marcellochemin]

La macro funziona benissimo,
grazie mille ragazzi!!!
A presto ;-)

Marcello