| | Post: 1 | Registrato il: 16/01/2018
| Città: CATANIA | Età: 48 | Utente Junior | 2003 | | OFFLINE | |
|
  16/01/2018 17:57 | |
salve, avrei la necessita' di visualizzare il foglio (attraverso un click su un pulsante gia' esistente) tramite il contenuto (variabile) di una cella.
mi spiego meglio (spero):
- nella cella "F9" mi calcola (attraverso formule) il nome del
foglio nel quale vorrei visualizzare quello che cerco.
- questa cella si trova nel foglio "RIEP2"
- esempio: se IN "F9" mi scrive "ELEB-16-5" io vorrei che al mio
click sul pulsantino mi andra' al foglio "ELEB-16-5" Che ovviamente esiste.
Sub FOGLIOXXX()
Sheets("RIEP2").Select
Dim FOGLIO As Worksheet
FOGLIO = Range("F9")
Sheets(FOGLIO).Select
End Sub
avevo scritto queste routine da autodidatta.... ma non funziona..
grazie per l'attenzione.
|
|
| | Post: 599 | Registrato il: 02/08/2015
| Utente Senior | Excel 2013 | | OFFLINE |
|
| 16/01/2018 21:37 | |
Ciao,
uno dei tanti modi di scrivere questa riga di codice:
Sub AttivaSheet()
Worksheets(Range("F9").Value).Select
End Sub se non ti funziona, allega un file d'esempio...
Ciao
Tore
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare." |
| | Post: 851 | Registrato il: 24/04/2004
| Città: TERAMO | Età: 63 | Utente Senior | 2010 | | OFFLINE |
|
| 16/01/2018 23:29 | |
Ciao.
Visto che potrebbe interessarti ti spiego perchè il tuo codice non funziona.
Dim FOGLIO As Worksheet
FOGLIO = Range("F9") Dichiari una variabile di tipo Worksheet, che quindi è destinata a contenere un oggetto Worksheet (foglio).
Tenti di assegnare alla variabile il contenuto della cella F9 che è un testo, quindi un tipo incompatibile con quello dichiarato per la variabile Foglio.
Volendo prendere a modello il tuo codice, la macro corretta sarebbe
Sub FOGLIOXXX()
Dim FOGLIO As String ' le dichiarazioni è meglio metterle tutte a inizio routine
Sheets("RIEP2").Select
FOGLIO = Range("F9")
Sheets(FOGLIO).Select
End Sub Togliendo tutto il superfluo, il codice corretto è quello scritto da Cromagno. [Modificato da Zer0kelvin 16/01/2018 23:31] __________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya) |
| | Post: 1.132 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
| 17/01/2018 08:14 | |
ciao,
ed un saluto a Cromagno e Marco ![[SM=g27811]](https://im0.freeforumzone.it/up/0/11/10151015.gif)
Una alternativa da inserire nel modulo del foglio interessato
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sh As String
sh = Range("a1").Value
With Sheets(sh)
.Activate
End With
End Sub ciao
Frank
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 1 | Registrato il: 16/01/2018
| Città: CATANIA | Età: 48 | Utente Junior | 2003 | | OFFLINE | |
|
| 17/01/2018 09:19 | |
grazie a tutti per le risposte, ho usato il suggerimento di cromagno..e funziona benissimo... grazie ancora ragazzi.. |
| | Post: 2 | Registrato il: 16/01/2018
| Città: CATANIA | Età: 48 | Utente Junior | 2003 | | OFFLINE | |
|
| 17/01/2018 09:23 | |
volevo chiedere a Zer0kelvin se potesse suggerirmi un manuale da leggere per quanto concerne il Vba.. ne ho preso uno che non mi ha soddisfatto al max.. (giusto per non buttare soldi inutili) grazie.. |
| | Post: 3.629 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
| 17/01/2018 09:35 | |
sebyx75, 17/01/2018 09.23:
volevo chiedere a Zer0kelvin se potesse suggerirmi un manuale da leggere per quanto concerne il Vba.. ne ho preso uno che non mi ha soddisfatto al max.. (giusto per non buttare soldi inutili) grazie..
Intanto potresti cominciare a dare uno sguardo qui dove trovi un corso sul VBA (ovviamente non esaustivo in tutto e per tutto ma ottimo per iniziare) che puoi scaricare anche in PDF
http://forum.wintricks.it/showthread.php?t=155252
Alfredo |
| | Post: 3 | Registrato il: 16/01/2018
| Città: CATANIA | Età: 48 | Utente Junior | 2003 | | OFFLINE | |
|
| 17/01/2018 09:43 | |
grazie alfredo...proprio quello che cercavo.. ^_^ ![[SM=x423028]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0008.gif) |
|
|
|
|