Errore Macro

[matbsk]

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

[scossa]

Ciao,

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

[ricky53]

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


[matbsk]

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! )
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.

[ricky53]

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.