Macro excel 2010



  • Macro excel 2010
    di Frank (utente non iscritto) data: 14/03/2012

    Buongiorno,
    mi è stato installato in ufficio excel 2010 e mi si presenta il problema che la macro che vedete sotto (fatta anche col vostro aiuto) non funziona più.
    in pratica serve per copiare i valori dalla riga 1 nella prima riga vuota della tabella sottostante e poi ordinare la tabella intera per il contenuto della colonna a.

    l'errore che restituisce è "errore di compilazione. impossibile trovare progetto o libreria"

    n.b. non so perchè nell'anteprima al posto delle parentesi vengono fuori dei ##

    grazie, ciao
    francesco
     
    Sub Salva()
    '
    ' Salva Macro
    ' Macro registrata il 16/12/2010 da Francesco Noceti
    '
        ' copia riga 1
        Sheets("Tabella").Select
        Rows("1:1").Select
        Selection.Copy
        ' incolla-valori su riga 11
        Rows("11:11").Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
        Application.CutCopyMode = False
        Selection.Insert Shift:=xlDown
        Range("A12").Select
        ' seleziono l'area fino all'ultima riga
        Selection.End(xlDown).Select
        ultima = ActiveCell.Row
        Range("a12:m" & ultima).Select
        ' ordina selezione per colonna A
        Selection.Sort Key1:=Range("A11"), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Sheets("Inserimento").Select
        MsgBox "Dato salvato"
    End Sub