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
[Modificato da Ghibly69 05/01/2016 14:31]