Combobox e textbox

Hai un problema con Excel?

Nuova discussione

Combobox e textbox
di Maxxim (utente non iscritto) data: 11/02/2010
Ciao a tutti

ho un problemino con i dati
di una texbox (txtesto1)
legati ad una combobox (combo1).
tipo:

in una combo1 ci sono una serie di titoli,
questa combo è legata alla cella d6,
in cella d30 è presente una formula che
cerca il suo codice isin.

quindi mettiamo che nella combo scelgo il titolo
x in d30 si visualizza il suo codice isin
la tex a sua volta prende il dato dalla cella
d30 e lo visualizza nella form.
poi clicco un pulsante mi concatena i dati
del suo link, del suo codice isin, il link finale,
e mi si apre internet.
e fin qui....tutto ok!

se non fosse che il cambio di codice
nella tex non è veloce come quando
cambio il titolo nella combo1.
nella cella si cambia immediatamente nella tex no.

sicuramente sbaglio l'istruzione da inserire.
posto il mio codice sotto.
la label prende il dato dalla cella d32
che mi dice che tipo di titolo è quello
selezionato.

grazie 100000000000000000

maxxim

'-------------- istruzione combo-----------

Private Sub Combo1_Change()
Me.TxTesto1 = Range("D30").Value
Me.Label9 = Range("D32").Value
End Sub

'-----------istruzione form-------------

Private Sub UserForm_Activate()
Label9 = Range("D32").Value
TxTesto1 = Range("D30").Value
End Sub

'---------istruzione Button---------------

Private Sub Vai_Click()
Dim z
Dim Link As String

If TxTesto1 = "" Then
MsgBox "Inserisci il codice ISIN"
Me.TxTesto1.SetFocus
Else

If TxTesto1 <> "" Then 'se l'inputbox è diverso da vuoto
z = Sheets("Link").Cells(7, 1) & Cells(30, 4) & Sheets("Link").Cells(7, 2) 'concatena la cella G29, D30
Cells(29, 6) = z 'mette il concatenamento in F29

If Range("f29") <> "" Then
Link = Range("f29").Value

ActiveWorkbook.FollowHyperlink Address:="" & Link, _
NewWindow:=True
End If
End If
End If
End Sub

Vuoi Approfondire?