You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] ordinamento
[RISOLTO] ordinamento2018-03-19T15:03:40+01:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] ordinamento

Taggato: 

Visualizzazione 1 filone di risposte
  • Autore
    Post
    • luigi.castoluigi.casto
      Partecipante
        Post totali: 99

        Buongiorno , devo ordinare dal più piccolo ma mi da errore , dove sbaglio ?

        premetto che ho usato il registratore di macro e di aver poi aggiustato ad esigenza

         

        Private Sub UserForm_Activate()

        Range(“A1”).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
        ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range(“C:C”) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.ActiveSheet.Sort
        .SetRange ActiveSheet.Range(“A2:H” & Rows.Count).End(xlUp).Row
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With
        Range(“A1”).Select

        end sub

        questa riga mi da errore di run time 13

        .SetRange ActiveSheet.Range(“A2:H” & Rows.Count).End(xlUp).Row

         

        Dove sbaglio ?

         

        • Questo topic è stato modificato 3 anni, 7 mesi fa da luigi.castoluigi.casto.
      • luigi.castoluigi.casto
        Partecipante
          Post totali: 99

          .SetRange ActiveSheet.Range(“A2:H” & Rows.Count).End(xlUp).Row

          ecco dov’è l’errore !!

          .SetRange ActiveSheet.Range(“A2:H” & Rows.Count).End(xlUp).Rows

          non avevo messo la “s” dopo Row

          Grazie

          • Questa risposta è stata modificata 3 anni, 7 mesi fa da luigi.castoluigi.casto.
      Visualizzazione 1 filone di risposte
      • Il topic ‘[RISOLTO] ordinamento’ è chiuso a nuove risposte.