ComboBox con due colonne

[Giu_MatPartecipante Giu_Mat]

Buonasera.

Sono nuovo del forum ed ahimè inesperto di VBA.

Vorrei creare su un foglio di excel una combobox con due colonne.

I dati da inserire risiedono in colonna A ed in colonna B (dinamiche)

Non riesco a caricare la combo che ho creato dal menù activeX.

Infine vorrei copiare i dati selezionati nella combo in K5 ,L5.

Grazie....

Allegati:

You must be logged in to view attached files.

[DodiPartecipante Dodi Karma: 2 pts]

Sera Giu_Mat

prova a vedere se ti può andar bene una cosa del genere. 

in pratica non capisco perchè cercare dati di due colonne in un unica  ComboBox e poi dividere i dati cercati  su due colonne, non vedo la necessità.

Comunque tempo fa avevo avuto la stessa necessità e mi son creato questa User. 

vedi se ti può tornare comoda una cosa del genere, e magari adattala alle tue esigenze in base alla posizione delle tue colonne e celle di riferimento.

per ora ti ho impostato io in base alla tua necessità.  

 

saluti

Allegati:

You must be logged in to view attached files.

[Giu_MatPartecipante Giu_Mat]

Grazie mille.

Devo quindi creare una form..(cosa che volevo evitare)

Provo ad adattarla alle mie esigenze.

grazie e buona serata

[DodiPartecipante Dodi Karma: 2 pts]

La userform se vedi te l'ho creata io. 

basta cliccare sul tasto apriForm e si avvia. 

prova a vedere se ti può andar bene. 

saluti

[Giu_MatPartecipante Giu_Mat]

Se posso ancora chiedere.

Vorrei visualizzare nella combobox contemporaneamente  i dati delle due colonne.

es: 1 A, oppure 5 E

E' possibile farlo?

Buonaserata e grazie ancora.

[Giu_MatPartecipante Giu_Mat]

Scusa.

Intendevo la combobox sul foglio di excel e non sulla userform.

grazie ancora

[DodiPartecipante Dodi Karma: 2 pts]

ciao quello si 

ti ho formattato la ComboBox dalle proprietà, 

e son riuscito a far comparire in automatico i valori della colonna "A e B" nella ComboBox ActiveX

e son riuscito anche tramite formattazione farti comparire i valori della colonna "B" nella  Cella "L5"

ma non riesco a far comparire i valori della colonna A in cella "K5", 

 

spero che altri utenti più esperti,  possono esserti di aiuto, 

 

ti ho suggerito le soluzioni che sono di mia conoscenza, anche perchè sono un autodidatta e mi diletto con Vba. 

 

saluti 

fammi sapere se ti può andar bene la soluzione, e se hai oppure trovi  il modo di archiviare i dati della ComboBox ActiveX, pubblica la soluzione può essere di aiuto ad altri compreso me. 

 

 

Allegati:

You must be logged in to view attached files.

[GiuseppeMNPartecipante GiuseppeMN Karma: 19 pts]

Buona sera, @giu_mat.

Consentimi un saluto a @dodi.

Potresti provare con questi due Codici VBA:

Option Explicit

Private Sub ComboBox1_GotFocus()
Application.ScreenUpdating = False
Dim rng As Range

ComboBox1.Clear
Cells(5, 11).ClearContents
Cells(5, 12).ClearContents

Set rng = Range("A1").CurrentRegion
With Me.ComboBox1
.ColumnCount = rng.Columns.Count
.List = rng.Value
End With
Set rng = Nothing
Application.ScreenUpdating = True
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
Cells(5, 11).Value = Cells(ComboBox1.ListIndex + 1, 1).Value
Cells(5, 12).Value = Cells(ComboBox1.ListIndex + 1, 2).Value
End If
End Sub

- ComboBox1_GotFocus Alimenta ComboBox1
- ComboBox1_Change Compila K5 e L5

A disposizione.

Buona serata.

Giuseppe

[DodiPartecipante Dodi Karma: 2 pts]

Ciao Giuseppe, 

grazie per i saluti e grazie anche per la soluzione. 

Ho avuto modo di provarla e funziona bene, grazie di averla postata. 

     

[giu_mat giu_mat]

Grazie  ancora.

[Autore]

Articoli