Grazie sei stato molto utile.. ho un altra domanda da farti, ovviamente se sai la risposta!!
Adesso nel foglio 2 ( 0h Scheda) vorrei inserire un un pulsante, che premendolo mi rimanda al foglio 1, e sul foglio 1un pulsante che mi rimanda sul foglio 2... questo perchè, voglio nascondere le linquette in basso in fondo, perchè nn sono il solo che userà questo file..
Ti ringrazio in anticipo

Ciao Giap..
Una domanda è possibile creare un pannello comandi tipo ACCESS in excel ??? se è possibile mi potresti dare un aiuto Grazie!!
saluti Tiz.

salve
se il foglio è nascosto, l'istruzione Select all'interno della macro produce necessariamente un errore.
Bisogna che si dica alla macro di rendere visibile il foglio nascosto prima di selezionarlo.
un esempio:

il pulsante sul foglio1, controlla se il foglio2 è nascosto, in questo caso prima lo rende visibile, poi lo seleziona:

Private Sub CommandButton1_Click()
If Sheets("Foglio2").Visible = False Then
Sheets("Foglio2").Visible = True
End If
Sheets("Foglio2").Select
End Sub


Il pulsante sul Foglio2, prima di passare al Foglio1, rende nuovamente non visibile il foglio2 prima di passare al Foglio1

Private Sub CommandButton1_Click()
Sheets("Foglio2").Visible = False
Sheets("Foglio1").Select
End Sub


saluti
Giap

---

salve
occorre sapere quale versione di office usi.
saluti
Giap

---

salve
al pulsante per salvare, associa questa macro:

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
End Sub

al pulsante per creare il Pdf del Foglio, associa questa macro:
(NB. questa macro non funziona per le versione di office precedenti al 2007)
La macro crea un Pdf con lo stesso nome del foglio nel disco D

Private Sub CommandButton2_Click()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

NB. i nomi Commandbutton1 e commandbutton2 dipendono dal numero di pulsanti che hai nel foglio.

saluti
Giap

---

Rieccomi a disturbarti, ormai sono a fine del mio foglio di lavoro in excel, mi mancano gli ultimi 2 pulsanti e ho finito il tutto...
il primo pulsante mi serve per aprire internet, con la home di google,o altro motore di ricerca o sito internet,
il secondo pulsante mi serve per aprire Outlook.
grazie in anticipo
Tiz

Ciao Giap
Ho ancora bisogno del tuo aiuto cercherò di essere il più semplice possibile nella mia spiegazione:
Tramite il tuo aiuto ho creato una distinta di gioco per una squadra di calcio..
da A13 ad A36 ci sono i numeri delle maglie che in volta in volta inserisco. da 1 a 18 oppure da 1 a S.N.= senza numero, da B13 a B36 data di nascita, da C13 a C36 nome e cognome, qui ho applicato un filtro, da C12 perche posso portare solo 19 giocatori al massimo... quindi tramite il filtro deseleziono i giocatori che nn porto, da D13 a D36 capitano e v.cap, da E13 a E36 il numero di matricola, da F13 a F36 documento, da G13 a G36 tipo di documento, da H13 a H36 espulsi e da I13 a I36 ammoniti.
Ecco. Adesso quando nella colonna A partendo dalla riga 13, devo inserire 18 numeri al messimo 18 più S.N.
Nella colonna C i nomi sono in ordine alfabetico.Esempio se in C15 ho il nome Calvani che è il portiere in A15 inserisco il numero 1, e in C13 ho Bozzi che è il n°2, in stampa mi viene prima il numero 2 che il numero1.
Quando inserisco i numeri, che posso inserire 2,6,1,7,13, dipende dalla formazione.. ho bisogno che tutte le volte che inserisco un numero, questo vada in ordine, esempio io parto da A 13 e inserisco il n°3, in A14 il numero 2, quando seleziono A15 per mettere il nuovo numero, in A13 mi deve venire in automatico il N°2 e in A14 il n°3 e cosi via.
Io ho trovato questa soluzione ma mi da sempre questi 2 errori:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) questo può essere il primo errore
Worksheets("numerodel foglio").Range("A13:I36").Sort Key1:=Range("A13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal (questo può essere il secondo errore)
End Sub
In tutti e due i casi diventa tutto evidenziato di giallo.
La mia domanda è mi da errore, perchè tramite il filtro nascondo delle righe, e quindi questa formula nn và bene, quindi esiste un altra foruma???
grazie in anticipo
Tiz

Set Rng = Sheets("Foglio1").Range("A13:A36") segnalato come errore, io lo schema l'ho sul foglio 2, ma anche se cambio il numero del foglio, il isultato nn cambia è sempre errore