clickbox + combobox + textbox

[cd7019]

ciao

non capisco dove sto sbagliando:
se clicco su clickbox attivo diversi dati nei 3 combobox e qui tutto bene, però nel textbox non mi compare niente.
Vorrei che quando cambio un combobox il testo venisse generato passo dopo passo (combobox1 >> testo1 .. combobox2 >>> testo1+testo2 .. combobox3 >> testo1+testo2+testo3)

Codice: Seleziona tutto

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    With ComboBox1
        .Clear
        For C = 1 To 47
            .AddItem (Cells(2, 29 + C).Value)
        Next C
    End With
    With ComboBox2
        .Clear
        For C = 1 To 54
            .AddItem (Cells(4, 29 + C).Value)
        Next C
    End With
    With ComboBox3
        .Clear
        For C = 1 To 81
            .AddItem (Cells(6, 29 + C).Value)
        Next C
    End With
Else
    With ComboBox1
        .Clear
        For C = 1 To 47
            .AddItem (Cells(1, 29 + C).Value)
        Next C
    End With
    With ComboBox2
        .Clear
        For C = 1 To 54
            .AddItem (Cells(3, 29 + C).Value)
        Next C
    End With
    With ComboBox3
        .Clear
        For C = 1 To 81
            .AddItem (Cells(5, 29 + C).Value)
        Next C
    End With

End If
TextBox1.Text = ComboBox1.Text & "-" & ComboBox2.Text & "-" & ComboBox3.Text
End Sub

grazie

[Flash30005]

Dovrei ricrearmi la struttura per verificare ma mi "stona" quell'Else
prova a togliere tutte quetse righe (dall'Else in poi)

Codice: Seleziona tutto

Else
    With ComboBox1
        .Clear
        For C = 1 To 47
            .AddItem (Cells(1, 29 + C).Value)
        Next C
    End With
    With ComboBox2
        .Clear
        For C = 1 To 54
            .AddItem (Cells(3, 29 + C).Value)
        Next C
    End With
    With ComboBox3
        .Clear
        For C = 1 To 81
            .AddItem (Cells(5, 29 + C).Value)
        Next C
    End With

ciao

[Anthony47]

Ciao Flash, l' Else credo serva per inizializzare i combobox con liste diverse.

Per CD7019:
Al momento in cui esegui quel codice i combobox sono appena stati inizializzati, quindi nessuna selezione puo' essere stata fatta nei combobox; da qui il "vuoto" in TextBox1.
Forse dovresti sfruttare l' evento ComboBox1_Change; es:

Codice: Seleziona tutto

Private Sub ComboBox1_Change()
    TextBox1.Text = ComboBox1.Text & "-" & ComboBox2.Text & "-" & ComboBox3.Text
End Sub


Da replicare su tutti e tre i combobox.

Ciao

[cd7019]

grazie a tutti,
come sempre siete gentilissimi.


C'è un modo di dire " se cambio qualcosa scrivimi nella textbox"
qualcosa = combobox1 o combobox2 o combobox3 o checkbox1 ecc...


grazie

[Anthony47]

C'è un modo di dire " se cambio qualcosa scrivimi nella textbox"

Questo e' quello che fai con la macro di evento ComboBox1_Change, come nel messaggio precedente.

[cd7019]

ciao,

1) ma ho tanti combobox e vorrei, quando cambio qualcosa, mi aggiornasse textbox.
scrivere gli stessi comandi in tutte le combobox risulta lungo.
non c'è un altro modo.

2) E' possibile "incastrare" la userform nel foglio in una posizione fissa e sempre attiva?

grazie

[Zer0Kelvin]

1) ma ho tanti combobox e vorrei, quando cambio qualcosa, mi aggiornasse textbox.
scrivere gli stessi comandi in tutte le combobox risulta lungo.
non c'è un altro modo.

Si, c'è. E' possibile utilizzare le classi per ridefinire il comportamento di un tipo di oggetto, ma penso che ti convenga prima chiarirti meglio quello che hai inontrato finora e riordinare un pò le idee.
PS: se ti riesce, cerca di usare un linguaggio più appropriato ed usare i termini corretti per chiamare le cose, e rileggi quello che scrivi.
Ricordati che chi legge non può sapere quello che c'è nella tua testa, se non lo esprimi con parole adeguate.
Qualche esempio:
ClickBox - what is this? in vba non esiste nulla di simile
E' possibile "incastrare" la userform? (sì, ma solo se le prove sono schiaccianti )
e vorrei, quando cambio qualcosa (pettinatura, le tende in cucina?)
eccetera
eccetera
eccetera

La fretta, la superficialità e la programmazione, non vanno per nulla d'accordo.

[Anthony47]

Per ZK: il bon cd7019 ha appena cominciato a scoprire le form, un po' di pazienza in piu' gliela dobbiamo concedere (ma il suo bonus si sta' esaurendo...)

Per cd:
Al lordo di quanto detto da ZK sopra, ogni Combobox e' un elemento programmabile e autonomo, quindi devi partire da tante macro di ComboboxN_Change; se le azioni da compiere fossero tante e sempre le stesse puoi unificare queste azioni in una unica subroutine, che verra' chiamata da ognuna delle macro di ComboboxN_Change.

Puoi posizionare la userform usando le proprieta' Top e Left; esempio:

Codice: Seleziona tutto

UserForm1.Top = Application.Top    'o altre coordinate
UserForm1.Left = Application.Left   'o altre coordinate


Per poter interagire con la userform e con l' ambiente Excel sottostante devi caricare la form in modalita' "vbmodeless", es

Codice: Seleziona tutto

UserForm1.Show vbModeless

Ciao

[cd7019]

ciao a tutti,
avete pienamente ragione, il mio linguaggio è da principiante, ho cominciato da poco, cercherò di migliorare in futuro.
Lo prometto.

Provo, riprovo, mi complico la vita, trovo altre strade e quando non riesco a risolvere i problemi mi "appoggio" a Voi (metaforicamente parlando) e immediatamente risultano banali.
Seguo il mio motto: " I problemi sono fatti x essere risolti".

Scusate ancora x la mia inesperienza.

Grazie.