Facilitare il codice per OptionButton

Salve a tutti,
il codice sotto è un pezzo di un progetto che sto portando avanti con il 90% del vostro aiuto sopratutto di By Sal.
Ho dovuto modificarlo perchè non riconosce lbx
Set Sh0 = Worksheets(lbx) in quanto la voce Listino non è presente.
In rosso quello che ho scritto che a mia merviglia funziona.
La domanda è:
quando poi inserirò altri listini devo per forza continuare a scrivere separatamente le righe oppure esiste il modo come in originale con il controllo
For x = 1 to .... ?
======================================================================
'----TEXTBOX PER LA RICERCA DA DESCRIZIONE

Private Sub TextBox2_AfterUpdate()
Dim lbx As String, x As Integer, R As Long, n As Long

' If TextBox1 = "" Then MsgBox "ATTENZIONE! SCEGLI UNA MARCA": TextBox2 = "": Exit Sub
'For x = 1 To 3
'If Controls("OptionButton" & x) = True Then lbx = "Listino_" & x
'Next x
If Me.OptionButton1.Value = True Then lbx = "B-TICINO"
If Me.OptionButton2.Value = True Then lbx = "VIMAR"
If Me.OptionButton3.Value = True Then lbx = "ABB"
Set Sh0 = Worksheets(lbx)
Sh0.Activate
Label5.Visible = True
ListBox1.RowSource = ""
ListBox1.ColumnWidths = "100;100;300;100;300"

etc.... etc...
===============================================================

Grazie

Ciao Marco come va?

Ora sono senza pc quindi quello che scrivo lo scrivo a memoria senza porer testare.

Comunque potresti provare con un codice di questo tipo



Credo che tu non abbia bisogno di spiegazioni sul codice

Ma se tu, come nell'esempio che hai fatto devi inserire una stringa diversa per ogni OptionButton non credo tu possa usare un ciclo.

Altro esempio di ciclo:

ciao Alfredo,

da errore di run time 438

credo sia dovuto al fatto che il ciclo non definisce lbx
e di conseguenza non da direttive alla worksheets di essere caricata.

Set Sh0 = Worksheets(lbx)
Sh0.Activate

....oppure non ci ho capito niente!

Ciao Marco, ci sono macro che creano nomi in base ad i fogli, ne avevo ma è andata persa.

io però creo una macro con tutti i fogli, quindi lancio la macro ed ho tutti i nominativi dei fogli, una cosa del genere: la scrivo a mano

la prima cosa dichiaro pubblico tutti i nomi dei fogli, nel modulo1



quindi quando creo un altra macro tipo "ricerca" o altro nome



in questo modo hai tutti i fogli disponibili inserendo solo "Shx" davanti all'oggetto che serve in base al foglio che serve.

ma ciò è sempre dipendente che se crei un nuovo foglio dovrai aggiungerlo nella macro FG

ma come ho detto all'inizio, avevo una macro che automaticamente si adeguava se creavi nuovi fogli.

Ciao By Sal

Ciao Sal e alf
grazie dela risposta..

codice perso? ...sono sempre i migliori che se ne vanno...

anche con questo devo inserire le singole stringhe per dare i nomi ai fogli, tipo come ho fatto io modificando il tuo codice originale, e quando inserirò i nuovi listini dovrò mettere le mani al codice per aggiornarlo.

Altro problema poi è che ad ogni optionbutton inserito in più devo aggiungere il codice per la gestione Listbox...

'----OPTIONBUTTON 1 <--- ripetuto per ogi optbutton

Private Sub OptionButton1_Click()
Dim R As Long, x As Long, d As Variant, cbx As New Collection

ComboBox1.Clear
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
Application.ScreenUpdating = False
Set Sh0 = Worksheets("B-TICINO")
Sh0.Activate
R = Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To R
d = Cells(x, 1)
On Error Resume Next
cbx.Add d, CStr(d)
On Error GoTo 0
Next x
For x = 1 To cbx.Count
ComboBox1.AddItem cbx(x)
Next x
ListBox1.ColumnWidths = "100;100;300;100;300"
ListBox1.RowSource = "A2:E" & R
Label5.Visible = True
Set cbx = Nothing
End Sub

speravo di non dover mettere mano ogni volta!

Sempre legato a optbutton ho un altro quesito che non sto riuscendo a risolvere. Capisco che è legato ai cod che gestiscono i singoli optbutton (quello del post precedente) ma non so come modificarlo.
Il codice è di Sal che in base a quello che ho imparato è stato modificato alla mia esigenza.

Ho notato che alla scelta del listino la colonna 4 della listbox si popola con simbolo € , ma quando poi intereaggisci dalla ComboBox1 , Texbox5 , TextBox2 si popola senza € .
In ogni caso se nel listino il prezzo è inferiore ad €1 in lista lo riporta come 0 .
Esempio: ABB ..... € 0,63 in foglio lista ...... € 0

Il multiselect in listbox non è necessario, se si potesse usare la rotella del mouse per scorrere la lista sarebbe l'ideale.

Grazie ancora e spero in un altro aiuto/spiegazione.
Marco

Allego il file completo di mie modifiche.

..help!!