spostare più righe uguali in Excel 2003

[libraio]

Buon anno a tutti!
Vorrei estrarre e spostare a sinistra più righe di un foglio che hanno una cella con contenuto uguale, le righe da estrarre sono circa un migliaio ed il classico copia/incolla mi impegnerebbe ore (o giorni)...
Riporto alcune righe ad esempio:
A B C D E
Editore &MYBOOK
Articolo Autore Titolo
9788896096000 POLLUTRI ORLANDO FURIOSO
Editore ABOCA EDIZIONI
Articolo Autore Titolo
8032472003793 AA.VV. AGENDA DEL GIARDINIERE 2011
Editore ABRACADABRA
Articolo Autore Titolo
9788841857045 AA.VV FATTORIA CUCU IMPARIAMO I
9788841856437 AA.VV PESCE TANTINUMERI
Editore ACCADEMIA SANTA CECILIA
Articolo Autore Titolo
9788895341187 CARIOLI JANNA TAMBURINO DI GARIBALDI
9788895341125 CARIOLI, AI DUE LATI DELL ARCOBALENO
Editore ACQUAVIVA
Articolo Autore Titolo
9788878772236 VENTURI ITALIANI
Editore ADAC KARTE
Articolo Autore Titolo
9783870037598 AA.VV. ITALIENISCHE RIVIERA

Vorrei spostare in A;B tutte le celle C;D che contengono in C il termine "Editore" ed in E il nominativo dell'editore; il dato univoco è pertanto "Editore".
E' possibile creare una macro che svolga automaticamente questa operazione?
Grazie per l'aiuto
libraio

[ricky53]

Ciao,
prova in questo modo:
1. attivi il registratore di macro
2. fai uno spostamento secondo le tue condizioni
3. chiudi il registratore di macro.
4. con Alt+F11 vai nell'editor del VB e ... cerchi di adattare il codice ottenuto inserendolo in un ciclo FOR/NEXT

Se non riesci ... invia il codice ottenuto con il registratore che ... ci proviamo noi.

E' meglio non inviarti subito la macro altrimenti non impari come si opera con le macro ...

[ricky53]

Puoi inviare i dati in altro modo perchè non si distinguono le colonne in cui i dati si trovano,
magari con un'immagine o, meglio, con un esempio ridotto del tuo file

[libraio]

Grazie Ricky per la risposta.
Ho creato la macro con il registratore:

Sub SpostaEditore()
'
' SpostaEditore Macro
' Macro registrata il 04/01/2011 da Libreria Garibaldi
'

'
Range("C1:D1").Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste

End Sub

Ma non conosco l'uso del ciclo FOR/NEXT; puoi aiutarmi tu?....
Riguardo l'esempio "incomprensibile" l'avevo incollato da excel, ma ha perso la formattazione (e non lo sapevo...)
Come posso inserire un'immagine all'interno del testo, o in allegato?
Grazie per la tua disponibilità
libraio

[ricky53]

Ciao
Comunque puoi inserire i dati separandoli con "-----" in modo da allineare le colonne.

Non si capisce cosa stai spondando serve l'immagine od un file
leggi QUI

[libraio]

Ecco dove puoi trovare una parte del foglio
http://ul.to/dggzuo
Ancora grazie
libraio

[ricky53]

Ciao,
però potevi dirlo che le colonne “A” e “B” erano vuote.
Sicuro che poi non si avranno altre modifiche all'organizzazione dei dati e che la tu aesigenza non sarà diversa ?
Scrivo questo solo per evitare di inziare a scriverti del codice che poi, forse, si scoprirà non adatto ai tuoi dati.

Tu come vorresti avere la struttura dati dopo gli spostamenti ???

Secondo me sarebbe necessario averla in questo modo (partendo dalla cella “A1” che conterrà “Editore”, "B1" Articolo, . . .)

Editore ------------- Articolo ---------- Autore ---------- Titolo
&Mybook --------- 9788897 ---------- Pollutri----------- Orlando Furioso
Aboca Edizioni --- 8032472 ---------- AA. VV.---------- Agenda del Giardiniere
. . .
. . .
. . .
Zurletti ------------- 99999 ----------- AA. VV. --------- Zurlando nel Tusto

Che è l’unico modo utile per fare delle elaborazioni, filtri, ricerche o altro.

Attendo una tua conferma e poi vedrò di scriverti del codice ...

[ricky53]

Ciao,
in attesa di informazioni ... tanto per gradire:

Codice: Seleziona tutto

Option Explicit
Public I As Long, J As Long, RR As Long, Editore

Sub Scrivi_Libri()
    Application.ScreenUpdating = False
    Sheets("Foglio2").Cells.ClearContents
    Sheets("Foglio2").[A1] = "Editore"
    Sheets("Foglio2").[B1] = "Articolo"
    Sheets("Foglio2").[C1] = "Autore"
    Sheets("Foglio2").[D1] = "Titolo"
   
    RR = Sheets("Foglio1").Range("C" & Rows.Count).End(xlUp).Row
    J = 2
    For I = 1 To RR
        If UCase(Sheets("Foglio1").Cells(I, 3)) = "ARTICOLO" Then
            I = I + 1
        End If
        If UCase(Sheets("Foglio1").Cells(I, 3)) = "EDITORE" Then
            Editore = Sheets("Foglio1").Cells(I, 4)
        Else
            Sheets("Foglio2").Cells(J, 1) = Editore
            Sheets("Foglio2").Cells(J, 2) = Sheets("Foglio1").Cells(I, 3)
            Sheets("Foglio2").Cells(J, 3) = Sheets("Foglio1").Cells(I, 4)
            Sheets("Foglio2").Cells(J, 4) = Sheets("Foglio1").Cells(I, 5)
            J = J + 1
        End If
    Next I
    Sheets("Foglio2").Columns("A:D").EntireColumn.AutoFit
    Application.ScreenUpdating = True
    Sheets("Foglio2").Select
    MsgBox "Elaborazione Effettuata"
End Sub

Attenzione ai nomi dei fogli ho utilizzato:
"Foglio1" per i dati originali
"Foglio2" per i dati prodotti dalla macro (in questo foglio vengono cancellati tutti i dati esistenti quindi ...)

Passi da eseguire:
1. Apri l'editor del VB con Alt+F11
2. inserisci un modulo
3. copia il codice che ti ho inviato
4. esegui la macro con F8 (passo passo) o F5 (tutta insieme)
oppure
dal foglio excel con "Alt+F8" e selezioni la macro "Scrivi_Libri"

e ....
buone prove.

In caso non sia proprio quello che ti occorre ... sono QUI

[libraio]

Stavo "tentando" un'ulteriore spiegazione delle mie necessità, quando mi è giunto il tuo codice.
E' proprio quello che tentavo di risolvere (invano); di più: la soluzione su due fogli distinti mi permette di procedere con operazioni diverse, secondo necessità.
Grazie!
libraio

[ricky53]

Ciao,
bene alla prossima.

Fatte tutte le prove sui dati reali ???
Tutto viene copiato correttamente ???

Consiglio:
elabora i dati mediante una
"TABELLA PIVOT"
e ... avrai tanto di quello che ti può servire ... e magari di più !!!