Condividi:        

Macro Indice fogli lavoro e collegamenti ipertestuali

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi dblz » 16/04/14 17:27

Salve, siete la mia unica speranza :cry: ...sto impazzendo perchè ho un file excel contenente tante schede numerate con anno (esempio 01-14 02-14 03-14 ecc...)alla quale corrispondono dei dati giornalieri di fornitori che non posso assolutamente cambiare. Siccome ci sono un sacco di schede, per non doverle ogni volta passarle tutte, vorrei creare una macro che mi faccia alla fine della cartella di lavoro un indice contenente non solo i nomi dei singoli fogli ma anche il relativo collegamento ipertestuale in modo tale che se ci clicco sul nome elencato nella scheda indice esempio 01-14 mi debba aprire la relativa scheda. E' possibile creare una macro di questo genere? Grazie in anticipo per la vs risposta.
dblz
Utente Junior
 
Post: 22
Iscritto il: 05/02/13 11:54

Sponsor
 

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi peppo55 » 17/04/14 09:43

Ciao dblz

un metodo potrebbe essere quello di usare il comando "Finestra controlla celle" .
Non avresti bisogno di creare un foglio supplementare con tutti i nomi dei fogli.
Nella Finestra controllo celle basta fare doppio click su una riga di dati per spostarti
Da un foglio ad un altro.
peppo

Excel 2010
peppo55
Utente Senior
 
Post: 167
Iscritto il: 30/09/12 13:51

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi dblz » 17/04/14 11:01

Ti ringrazio per la risposta!Con questo metodo però devo inserirmi manualmente il controllo su più di 300 schede...mi ci vorrà un'eternità :( !C'è la possibilità di farlo utilizzando una macro?Grazie ancora :lol:
dblz
Utente Junior
 
Post: 22
Iscritto il: 05/02/13 11:54

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi ricky53 » 17/04/14 12:10

Ciao,
prova con questo esempio
Codice: Seleziona tutto
Option Explicit

Sub Elabora()
    Dim WS As Worksheet, I As Integer, SH1 As Worksheet
    I = 2
    Set SH1 = Sheets("Indice")
    SH1.Range("A1") = "Nome dei Fogli"
    For Each WS In ThisWorkbook.Worksheets
        If WS.Name <> SH1.Name Then
            SH1.Cells(I, "A") = WS.Name
            SH1.Hyperlinks.Add Anchor:=SH1.Cells(I, "a"), Address:="", SubAddress:= _
                WS.Name & "!A1", TextToDisplay:=WS.Name
            I = I + 1
        End If
    Next WS
    MsgBox "Elaborazione effettuata su:   '" & I - 2 & "'   fogli", vbInformation
End Sub


Ho ipotizzato che il nome del foglio nel quale inserire i nomi dei fogli ed i collegamenti ipertestuali fosse "Indice"
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi dblz » 23/04/14 15:59

Siamo sulla strada giusta!!Grazie Ricky!L'unico problema è che nel momento in cui eseguo la macro mi restituisce sempre il seguente messaggio: riferimento errato dandomi il collegamento ipertestuale sulla cella A1...quello esatto è B22. E' lì infatti che c'è lo stesso nome delle schede!!Ho provato a cambiarlo io ma mi restituisce sempre a1... :cry: Ps. scusa il ritardo nella risposta ma non ho avuto un secondo libero in questi giorni!! :roll:
dblz
Utente Junior
 
Post: 22
Iscritto il: 05/02/13 11:54

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi ricky53 » 23/04/14 20:39

Ciao,
puoi inviare un file di esempio?
Senza dati riservati ma che sia rispondente alla tue effettiva situazione.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi dblz » 24/04/14 09:36

Ecco il file esempio. Grazie tante per la disponibilità! :)

http://www.mediafire.com/view/f3uzi73w1g6jjm4/
dblz
Utente Junior
 
Post: 22
Iscritto il: 05/02/13 11:54

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi ricky53 » 24/04/14 11:05

Ciao,
puoi utilizzare un altro sito perchè quello che hai linkato viene bloccato dall'antivirus

Utilizza QUESTO
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi peppo55 » 24/04/14 12:31

Ciao dblz,

prova questo codice per aggiungere i nomi dei fogli alla "Finestra controllo celle"

Codice: Seleziona tutto

Private Sub CommandButton1_Click()

Dim WS As Worksheet

Application.Watches.Delete  'nel caso rinomini qualche foglio

For Each WS In ThisWorkbook.Worksheets
WS.Select
WS.Cells(1, 1).Select
Application.Watches.Add Source:=ActiveCell
   
Next

End Sub

-----------------------------------------------------------------------------
Questo codice serve a non visualizzare la Finestra controllo celle quando apri una una qualsiasi cartella di lavoro

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next
    Application.CommandBars("Watch Window").Visible = False
On Error GoTo 0


End Sub

-------------------------------------------------------------------------------
Private Sub Workbook_Open()

Application.CommandBars("Watch Window").Visible = True

End Sub


peppo

Excel 2010
peppo55
Utente Senior
 
Post: 167
Iscritto il: 30/09/12 13:51

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi dblz » 24/04/14 15:36

Ciao,
puoi utilizzare un altro sito perchè quello che hai linkato viene bloccato dall'antivirus

Eccoti il nuovo link:
http://www.filedropper.com/macrocollegamento_4

Ciao dblz,

prova questo codice per aggiungere i nomi dei fogli alla "Finestra controllo celle"


Ciao Peppo, ho provato ad inserire il codice ma non funziona...non mi fa vedere nemmeno la macro..sbaglio qualcosa forse?? :oops:
dblz
Utente Junior
 
Post: 22
Iscritto il: 05/02/13 11:54

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi peppo55 » 24/04/14 15:41

Ciao dblz,

che versioni usi di excel ?
peppo

Excel 2010
peppo55
Utente Senior
 
Post: 167
Iscritto il: 30/09/12 13:51

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi ricky53 » 24/04/14 16:55

Ciao,
il messaggio di errore è generato dal nome dei fogli che hai utilizzato.

prova con questa modifica
Codice: Seleziona tutto
Sub Elabora()
    Dim WS As Worksheet, I As Integer, SH1 As Worksheet
    I = 2
    Set SH1 = Sheets("Indice")
    SH1.Range("A1") = "Nome dei Fogli"
    For Each WS In ThisWorkbook.Worksheets
        If WS.Name <> SH1.Name Then
            SH1.Cells(I, "A") = WS.Name
            SH1.Hyperlinks.Add Anchor:=SH1.Cells(I, "A"), Address:="", SubAddress:= _
                "'" & WS.Name & "'!B22", TextToDisplay:=WS.Name
            I = I + 1
        End If
    Next WS
    MsgBox "Elaborazione effettuata su:   '" & I - 2 & "'   fogli", vbInformation
End Sub


Il nuovo codice porta alla cella "B22" del foglio scelto ... mi è sembrato di capire che tu volessi ottenere questo posizionamento
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi dblz » 24/04/14 17:05

Ricky sei grandeeeeeeee!!!Evviva funziona!! :D Grazie infinite!!

Ciao dblz,

che versioni usi di excel ?


Ho excel 2007! Grazie anche a te Peppo!Se puoi fammi sapere anche il tuo metodo che vorrei applicarlo ad un altro file! :lol:
dblz
Utente Junior
 
Post: 22
Iscritto il: 05/02/13 11:54

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi peppo55 » 24/04/14 20:23

Ciao dblz

vedi se il file in allegato funziona.
Se vuoi la Finestra controllo celle la puoi posizionare (spostandola) sopra la barra della formula.

http://www.filedropper.com/controllocella
peppo

Excel 2010
peppo55
Utente Senior
 
Post: 167
Iscritto il: 30/09/12 13:51

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi ricky53 » 24/04/14 21:29

Ciao,
bene.

Aggiornaci sull'esito delle prove con il file di Peppo
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi dblz » 05/05/14 11:37

peppo55 ha scritto:Ciao dblz

vedi se il file in allegato funziona.
Se vuoi la Finestra controllo celle la puoi posizionare (spostandola) sopra la barra della formula.

http://www.filedropper.com/controllocella



Ciao peppo, scusa per il ritardo nella risposta ma sono stata impegnatissima con il lavoro!Potresti gentilmente ricaricare il file che non me lo fa downlodare?Grazie e prometto di farti sapere subito l'esito! :oops:
dblz
Utente Junior
 
Post: 22
Iscritto il: 05/02/13 11:54

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi peppo55 » 05/05/14 12:37

Ciao dblz,

ecco il file. Per selezionare un foglio dalla Finestra di controllo celle, devi fare doppio click o usare il tasto Invio. In presenza di centinaia di fogli puoi usare i tasti freccia e i tasti Pag.
Se fai doppio click sul bordo (in alto della Finestra controllo celle) viene posizionata automaticamente sopra la barra della formula.

http://www.filedropper.com/controllocella
peppo

Excel 2010
peppo55
Utente Senior
 
Post: 167
Iscritto il: 30/09/12 13:51

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi dblz » 06/05/14 15:48

Ciao e grazie per il file!Ho provato ad inserire i tuoi codice nei miei fogli ma non succede nulla..mi apre la finestra controllo ma al suo interno non c'è nulla e non mi crea neppure il pulsante per far partire la macro..sicuramente sbaglio qualcosa!!!mi potresti aiutare descrivendomi in dettaglio i passaggi da fare se per te non è un problema? :oops:
dblz
Utente Junior
 
Post: 22
Iscritto il: 05/02/13 11:54

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi peppo55 » 07/05/14 09:28

Ciao dblz,

il pulsante lo devi mettere tu. Dal menu Sviluppo > Controlli, fai click sul Pulsante di comando, sotto la dicitura Controlli ActiveX. Posizionati con il mouse sul foglio e fai click. Apparirà il pulsante. Con il tasto destro seleziona Visualizza codice. Si aprirà l’editor di Visual basic.
Private Sub CommandButton1_Click()
qui devi inserire il codice
End Sub
Il codice sarà:
Codice: Seleziona tutto

Private Sub CommandButton1_Click()

Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
WS.Select
WS.Cells(1, 1).Select
Application.Watches.Add Source:=ActiveCell
   
Next

End Sub




Ora devi fare doppio click sulla scheda: ThisWorkbook (lo trovi alla fine dei fogli).
Da generale (a destra) seleziona Workbook, da dichiarazioni seleziona BeforeClose.
Codice: Seleziona tutto
Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next
    Application.CommandBars("Watch Window").Visible = False
On Error GoTo 0

End Sub


Sempre da dichiarazioni seleziona Open,e inserisci il codice
Codice: Seleziona tutto
Private Sub Workbook_Open()
Application.CommandBars("Watch Window").Visible = True
End Sub

peppo

Excel 2010
peppo55
Utente Senior
 
Post: 167
Iscritto il: 30/09/12 13:51

Re: Macro Indice fogli lavoro e collegamenti ipertestuali

Postdi dblz » 20/05/14 14:49

grazie mille Peppo!!Funziona sbagliavo il tipo di bottone selezionando quello senza active x!!!Grazie infinite e per l'ennesima volta scusa per il ritardo nella risposta!XD
dblz
Utente Junior
 
Post: 22
Iscritto il: 05/02/13 11:54


Torna a Applicazioni Office Windows


Topic correlati a "Macro Indice fogli lavoro e collegamenti ipertestuali":


Chi c’è in linea

Visitano il forum: Nessuno e 90 ospiti