vba2003: rintracciare un elemento da una lista

[karug64]

Salve a tutti.
Mi avete insegnato che sull'evento change di combobox scrivo:

Principale.f_codfil.Text = Sheets("Dati_comuni").Range("B" & Principale.f_dip.ListIndex + 1)

ricavo in codfil il valore della colonna accanto al nome digitato sul combobox.

Ora, pero' ho un problema inverso che non riesco a risolvere:

se all'apertura del form scrivo:

If Sheets("Ordini").Range("A2").Value <> "" Then
principale.f_codfil.text = trim(Sheets("Ordini").Range("A2").Value)

...... come posso ricavare, sempre da "Dati_comuni", il valore di f_dip a cui e' associato f_codfil ?

End If

Grazie

[ricky53]

Ciao,
sicuramente ti riferisci ad un'altra discussione ma noi non la conosciamo, puoi dare le informazioni su quali dati hai e, poi, vedremo come procedere.

I dati f_dip e f_codfil sono relativi a ... ed in quali colonne sono posizionati i dati per poter impostare queste ComboBox?

[karug64]

Ciao,
sicuramente ti riferisci ad un'altra discussione ma noi non la conosciamo, puoi dare le informazioni su quali dati hai e, poi, vedremo come procedere.

I dati f_dip e f_codfil sono relativi a ... ed in quali colonne sono posizionati i dati per poter impostare queste ComboBox?

Ciao. La discussione a cui mi riferisco e' questa:

viewtopic.php?f=26&t=93859&p=536915#p536915

i dati si trovano sul foglio Dati_comuni, nella colonna A ci sono quelli che abbino a f_dip, nella colonna B quelli che abbino a f_codfil

Grazie

[ricky53]

Ciao,
se non ho capito male
tu vorresti, una volta selezionato sulla "Combo f_codfil" un valore che è associato alla colonna "B", avere nella "Combo f_dip" il corrispondente dato della colonna "A" ???

Ti potrebbe aiutare

Codice: Seleziona tutto

Private Sub f_codfil_Click()
    Principale.f_dip.Text = Sheets("Dati_comuni").Range("A" & Principale.f_codfil.ListIndex + 1)
End Sub

Verifica i nomi delle combo.

Se invii un file di esempio potrei essere più preciso.