Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

copia selezione multipla

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

copia selezione multipla

Postdi miko » 13/01/10 21:25

ciao,
ritorno a chiedevi aiuto per un mio nuovo problema:
in un range di colonne e di righe variabili, ho un certo numero di valori che aggiorno di frequente;
in due colonne, a destra del range precedente, inserisco i valori min e max di ogni riga;
ad ogni aggiornamento i valori min e max cambiano;
generalmente le variazioni non sono consecutive nelle stesse colonne;
le celle, contenenti i valori min e max, cambiano colore quando si verificano delle variazioni.
vorrei ora selezionare, copiare ed incollare in qualche parte libera dello stesso foglio, oppure in un altro foglio, le righe in corrispondenza delle quali si sono verificate delle variazioni nei valori min e max, in modo da avere una visione d'insieme;
ho provato a selezionare più celle non consecutive, ma in fase di copia excel mi dice che non è possibile effettuare questa operazione.
ho usato questa macro:

Sub Copia()
Sheets("Foglio1").Select
For Each C In Range("A1:BL50") ' range tabella variabile
If C.Interior.ColorIndex = 3 Then ' il 3 corrsiponde la rosso
C.Select
Selection.Copy
End If
Next C
End Sub


ma purtroppo, dopo varie modifiche, non funziona perchè mi seleziona solo l'ultima cella del range, mentre a me interessa che selezioni tutte le righe dove si trovano le celle colorate di rosso.
come devo modificare il codice?
forse esiste un altro metodo più semplice per ottenere lo stesso risultato?
grazie
saluti miko
windows xp-office 2003
miko
Utente Senior
 
Post: 422
Iscritto il: 29/12/09 10:44

Sponsor
 

Re: copia selezione multipla

Postdi Flash30005 » 14/01/10 01:01

Ma in effetti tu non fai altro che selezionare la prima cella in rosso e la copi
poi selezioni la seconda e la copi
poi la terza etc etc

ma quando le incolli queste celle?
e dove?
se non glielo dici alla macro di farlo non credere che tu possa ottenere la copia
non so potresti mettere
Codice: Seleziona tutto
...
C.select
riga = C.row
col = C.column
Selection.Copy destination:=Worksheets("foglioDestinazione").cells(riga, col)
...


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: copia selezione multipla

Postdi Anthony47 » 14/01/10 01:40

Non puoi copiare una selezione multipla se abbraccia piu' colonne; quindi dovrai procedere colonna per colonna. Tieni anche presente che Interior.ColorIndex sonda il colore dato dalla formattazione, non dalla formattazione condizionale.
Non ho capito come sono organizzati i tuoi dati e quindi posso solo darti questo spunto, sperando che ti serva.

Leggi anche il messaggio di Flash sopra.

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: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: copia selezione multipla

Postdi miko » 14/01/10 22:34

ciao,
grazie per il vostro interessamento;
ho provato la macro che hai preparato, ovviamente funziona, ma purtroppo non esegue il calcolo che vorrei;
grazie comunque per il tuo contributo.
vorrei precisare il mio problema:
non ho inserito il codice per copiare, perchè era il normale copia- incolla registrabile, che mi copia una riga per volta, quindi per il mio caso dovrei ripetere la stessa macro ogni volta che seleziono una riga;
per quanto attiene al posto dove incollare va bene in qualunque parte vuota dello stesso foglio oppure in un altro foglio, non so come è più semplice;
il colore delle celle, ho scelto il rosso, avviene tramite macro;
quello che mi interessa è che variando i valori min e max nelle colonne, L ed M, ad esempio, la macro scorra le due colonne, trovi la prima cella colorata-variata, selezioni l'intera riga da A ad M, fino cioè all'ultima cella piena della stessa riga, ed incolli l'intera riga in una altra parte;
successivamente, scorrendo le colonne L ed M, trovi una altra cella colorata e ripeta nuovamente l'operazione selezione-copia-incolla della riga corrispondente.
vi invio un file di esempio, limitato nella quantita di dati inseriti;
http://www.filedropper.com/copia-incoll ... nemultipla
quindi nel range dove sono stati incollate le righe avro solo quelle righe nelle quali si sono avute delle variazioni nei valori min e max.
il numero delle righe e delle colonne varia perchè vorrei usare questa macro per altri lavori, ma la struttura del foglio è comune a tutti.
ho pensato alla funzione SE, oppure a cerca. se, ma non ho mai usato queste funzioni e non so quale delle due è meglio utilizzare, se è il caso di utilizzarle;
sto cercando degli esempi, ma non so...
grazie
saluti miko
windows xp-office 2003
miko
Utente Senior
 
Post: 422
Iscritto il: 29/12/09 10:44

Re: copia selezione multipla

Postdi Flash30005 » 15/01/10 02:34

prova questo codice
Worksheets("Foglio1").Select
Codice: Seleziona tutto
Sub TrovaCol()
Columns("O:AA").Clear
Range("O1").Select
ColL = Worksheets("Foglio1").Range("L" & Rows.Count).End(xlUp).Row
For RR = 3 To ColL
    If Range("L" & RR).Interior.ColorIndex = 3 Or Range("M" & RR).Interior.ColorIndex = 3 Then
        ColC = Worksheets("Foglio1").Range("O" & Rows.Count).End(xlUp).Row + 1
        If ColC < 3 Then ColC = 3
        Range("A" & RR & ":M" & RR).Copy Destination:=Range("O" & ColC)
    End If
Next RR
End Sub


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-

Re: copia selezione multipla

Postdi miko » 15/01/10 11:35

ciao,
grazie flash, sei grande,la tua macro funziona perfettamente;
sto imparando molte cose in questo forum;
fino ad ora usavo excel per le sempli operazioni, ma grazie a voi ho scoperto un nuovo mondo.
grazie a tutti voi.
saluti, miko
windows xp-office 2003
miko
Utente Senior
 
Post: 422
Iscritto il: 29/12/09 10:44


Torna a Applicazioni Office Windows


Topic correlati a "copia selezione multipla":


Chi c’è in linea

Visitano il forum: patel e 15 ospiti