inserire macro per menù a tendina

[carlo861]

Ciao a tutti.
ho un foglio di calcolo dove nel foglio 1 ho inserito un menu a tendina per
un elenco clienti e vorrei inserire una macro per aprire la scheda relativa
al cliente presente in quel momento nel menù, ogni cliente ha un suo foglio
che per comodità ho lasciato foglio 1 foglio 2 e così via. come posso fare?
grazie

[pippo5]

Post by carlo861
Ciao a tutti.
ho un foglio di calcolo dove nel foglio 1 ho inserito un menu a tendina per
un elenco clienti e vorrei inserire una macro per aprire la scheda relativa
al cliente presente in quel momento nel menù, ogni cliente ha un suo foglio
che per comodità ho lasciato foglio 1 foglio 2 e così via. come posso fare?

Ciao carlo8619764553782[cut],

uno dei modi : Userform con ListBox1

Nel codice :

Private Sub UserForm_Initialize()
ListBox1.RowSource = "tab"
End Sub
(dove tab è il nome di una zona con una lista di
numeri (1,2 3, 12,13 etc che hai creato in un foglio
qualsiasi)

Private Sub ListBox1_Click()
Dim N
N = ListBox1.Value
Sheets("Foglio" & N).Select
End Sub

Private Sub CommandButton1_Click()
Hide
Unload UserForm1
End Sub

Aprendo la form con Listbox, ad ogni selezione
dei numeri si attiverà il foglio relativo.

Vedi se funge e fai sapere.

Ciao

<< pc >>
Pippo Coco

[carlo861]

Post by pippo5

Post by carlo861
Ciao a tutti.
ho un foglio di calcolo dove nel foglio 1 ho inserito un menu a tendina per
un elenco clienti e vorrei inserire una macro per aprire la scheda relativa
al cliente presente in quel momento nel menù, ogni cliente ha un suo foglio
che per comodità ho lasciato foglio 1 foglio 2 e così via. come posso fare?

Ciao carlo8619764553782[cut],
uno dei modi : Userform con ListBox1
Private Sub UserForm_Initialize()
ListBox1.RowSource = "tab"
End Sub
(dove tab è il nome di una zona con una lista di
numeri (1,2 3, 12,13 etc che hai creato in un foglio
qualsiasi)
Private Sub ListBox1_Click()
Dim N
N = ListBox1.Value
Sheets("Foglio" & N).Select
End Sub
Private Sub CommandButton1_Click()
Hide
Unload UserForm1
End Sub
Aprendo la form con Listbox, ad ogni selezione
dei numeri si attiverà il foglio relativo.
Vedi se funge e fai sapere.
Ciao
<< pc >>
Pippo Coco
Ciao Pippo
visto che è solo uno dei modi
ci sarebbe qualcosa di più semplice per
un nofita di vba
grazie

[carlo861]

aiuto e possibile avere un'altro aiuto?

Post by pippo5

Post by carlo861
Ciao a tutti.
ho un foglio di calcolo dove nel foglio 1 ho inserito un menu a tendina per
un elenco clienti e vorrei inserire una macro per aprire la scheda relativa
al cliente presente in quel momento nel menù, ogni cliente ha un suo foglio
che per comodità ho lasciato foglio 1 foglio 2 e così via. come posso fare?

Ciao carlo8619764553782[cut],
uno dei modi : Userform con ListBox1
Private Sub UserForm_Initialize()
ListBox1.RowSource = "tab"
End Sub
(dove tab è il nome di una zona con una lista di
numeri (1,2 3, 12,13 etc che hai creato in un foglio
qualsiasi)
Private Sub ListBox1_Click()
Dim N
N = ListBox1.Value
Sheets("Foglio" & N).Select
End Sub
Private Sub CommandButton1_Click()
Hide
Unload UserForm1
End Sub
Aprendo la form con Listbox, ad ogni selezione
dei numeri si attiverà il foglio relativo.
Vedi se funge e fai sapere.
Ciao
<< pc >>
Pippo Coco
Ciao Pippo
visto che è solo uno dei modi
ci sarebbe qualcosa di più semplice per
un nofita di vba
grazie

[pippo5]

Ciao carlo861^3 :)

intendevo che è uno dei modi ma di codice Vba, di altro
non ho idea ma credo no si possa fare.
Se mi comunichi la tua mail (al solito camuffata) ti invierò
un file di esempio e potrà darsi che non sarai più neofita
di Vba.
Aggiungo : non sai cosa ti perdi! :)

Ciao
<< pc >>
Pippo Coco

***@cancellaanchequestotiscali.it