Un saluto a tutti, allora avrei necessità con un solo controllo modulo pulsante (attualmente ne uso 2) di far eseguire rispettivamente 2 macro prima con ordina e poi stampa, di seguito c'è il codice che ho usato (quello della stampa in JPG non è farina del mio sacco)
e cortesemente di dare un'occhiata a tutto il codice. Grazie anticipatamente.
Sub Goto_Grafico_Minuti_Giocati()
'
' Ordina_Grafico_Minuti_Giocati Macro
' Macro registrata il 29/01/2011 da ByBov
' Application.ScreenUpdating = False
' ActiveSheet.Visible = False
Sheets("RIEPILOGO STATISTICHE").Visible = True
Sheets("RIEPILOGO STATISTICHE").Select
ActiveWorkbook.Worksheets("RIEPILOGO STATISTICHE").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("RIEPILOGO STATISTICHE").Sort.SortFields.Add Key:= _
Range("D7:D57"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("RIEPILOGO STATISTICHE").Sort
.SetRange Range("C7:R57")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Sheets("RIEPILOGO STATISTICHE").Visible = False
Sheets("Minuti Giocati").Visible = True
Sheets("Minuti Giocati").Select
Application.ScreenUpdating = True
End Sub
Sub EsportaFileJPG_Minuti_Giocati()
ActiveChart.Export Filename:="c:\Minuti Giocati.jpg", _
FilterName:="jpeg"
End Sub