Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Errore Macro

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

Errore Macro

Postdi matbsk » 16/07/14 15:13

Buongiorno a tutti,
ho effettuato una ricerca nelle discussioni precedenti, ma non ho trovato niente che potesse aiutarmi.
Vorrei copiare i dati che ho su un foglio, su un altro foglio per poterli mettere in ordine per la colonna F.
ho provato a scrivere la seguente macro, ma mi dà errore arrivata alla riga in grassetto.

Qualcuno può aiutarmi?

foglio1.Cells(2, 1) = foglio3.Cells(1, 1)
foglio2.Range("A1:F1000").Copy
foglio1.Range("A1:F1000").PasteSpecial

foglio1.Range("A2:F100").Select
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
matbsk
Newbie
 
Post: 2
Iscritto il: 16/07/14 15:00

Sponsor
 

Re: Errore Macro

Postdi scossa » 16/07/14 21:30

Ciao,

matbsk ha scritto:.... ho provato a scrivere la seguente macro, ma mi dà errore arrivata alla riga in grassetto.


quello che hai postato non è una macro ma uno spezzone di codice che, privo di contesto, non permette di trarre conclusioni utili per aiutarti.
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 424
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: Errore Macro

Postdi ricky53 » 17/07/14 01:13

Ciao,
in questo modo ci costringi ad andare per tentativi e a ... spararle.

Perchè copi fino alla riga 1000 e poi ordini fino alla riga 100?
Errore di battitura spero !

La sparo:
Codice: Seleziona tutto
    Foglio1.Cells(2, 1) = Foglio3.Cells(1, 1)
    Foglio2.Range("A1:F1000").Copy
    Foglio1.Range("A1:F1000").PasteSpecial
    Foglio1.Select ' <<======= Aggiunta
    Range("A2:F1000").Select ' <<===== Modificata  messo "1000" al posto di "100"
    Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A1").Select
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Errore Macro

Postdi matbsk » 17/07/14 12:02

Ciao,
grazie mille per le risposte.
La soluzione di ricky53 mi ha risolto il problema nel senso che adesso il copia-incolla funziona. (Hai sparato bene! :D :D )
Mi mette in ordine tutte le righe tranne quella nella riga 2, ma penso che sia un problema di formato del carattere che di macro.
matbsk
Newbie
 
Post: 2
Iscritto il: 16/07/14 15:00

Re: Errore Macro

Postdi ricky53 » 18/07/14 01:43

Ciao,
il "Sort" non l'ho guardato ... vedi tu se le intestazioni le hai considerate per me NO.
Prova in questo modo:
Codice: Seleziona tutto
    Range("A1:F1000").Select ' <<===== Modificata  messo "A1" al posto di "A2"
    Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal ' <<====== Modificata inserita intestazione "Header:=Yes" nell'ordinamento




La prossima volta cerca di fornire tutte le spiegazioni necessarie altrimenti NON sparerò nulla.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Errore Macro":


Chi c’è in linea

Visitano il forum: Maury170419 e 15 ospiti