Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[excel] Copia - IncollaValori con criterio

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

[excel] Copia - IncollaValori con criterio

Postdi marcellochemin » 27/05/15 20:51

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
marcellochemin
Newbie
 
Post: 8
Iscritto il: 28/04/15 18:13

Sponsor
 

Re: [excel] Copia - IncollaValori con criterio

Postdi alfrimpa » 27/05/15 21:05

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.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 840
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: [excel] Copia - IncollaValori con criterio

Postdi Anthony47 » 27/05/15 23:09

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [excel] Copia - IncollaValori con criterio

Postdi marcellochemin » 28/05/15 12:24

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

Marcello
marcellochemin
Newbie
 
Post: 8
Iscritto il: 28/04/15 18:13


Torna a Applicazioni Office Windows


Topic correlati a "[excel] Copia - IncollaValori con criterio":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti