aiuto listbox con combobox

salve, mi servirebbe un vostro aiuto allora vediamo se sono chiaro, nel secondo foglio..., ho dei dati con due date seconda riga 01/01/2014 o diverse e poi dopo vari dati ancora data2 01/02/2014... vorrei creare una listbox dove con una combobox scelgo la data, ovviamente non cè solo 01/01/2014 mettiamo che ci siano 20 date così e altre 20 altra data e così via, poi una seconda combobox dove mi visualizza allo stesso modo l'altra data.
quindi carica per data uno carica per data 2... in fondo alla listbox vorrei che mi sommasse la colonna dei prezzi. come posso fare? grazie.
 

Informazioni domanda


Ultimo aggiornamento febbraio 27, 2018 Visualizzazioni 311 Si applica a:

* Prova con un numero di pagina inferiore.

* Immetti solo numeri.

* Prova con un numero di pagina inferiore.

* Immetti solo numeri.

salve, mi servirebbe un vostro aiuto allora vediamo se sono chiaro, nel secondo foglio..., ho dei dati con due date seconda riga 01/01/2014 o diverse e poi dopo vari dati ancora data2 01/02/2014... vorrei creare una listbox dove con una combobox scelgo la data, ovviamente non cè solo 01/01/2014 mettiamo che ci siano 20 date così e altre 20 altra data e così via, poi una seconda combobox dove mi visualizza allo stesso modo l'altra data.
quindi carica per data uno carica per data 2... in fondo alla listbox vorrei che mi sommasse la colonna dei prezzi. come posso fare? grazie.


Non ho capito niente.

Vedi qui se aiuta come punto di partenza:


--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

in quel file zippato non cè nessun foglio, ne ho scaricati alcuni dal tuo sito. cmq ti è arrivata l'email?  allora volevo creare una listbox che mi vede dei dati nel secondo foglio
che sono cognome nome,data prezzo,prezzo,prezzo,prezzo,prezzo,prezzo,prezzo,prezzo,risultato,data, note.
nel foglio, ci saranno varie date uguali e non, infatti nella listbox volevo caricare i dati asseconda delle 2 dete, presempio carica per 02/02/2014 e carica tutti i dati con quella data. la stessa la seconda data.
a fine dati mi piacerebbe anche il risultato della colonna risultato. più chiaro? non è il problema la listbox ma il resto.

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

Ciao Mauro,
anche a me da errore,
ciao
Roccia

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

Ciao Mauro,
anche a me da errore,
ciao
Roccia


Sì, ho postato *solo* il file.zip vuoto, chiedo scusa.

Adesso è *pieno*... ;-)

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

grazie mauro. cmq ho un altro problema le colonne da caricare sono 11 da a combobox1 poi texbox1 e via fino alla 11 quindda A a L i risultato da calcolare e la colonna J

preso dal tuo esempio e modificato ma non carica tutte le colonne

Private Sub ComboBox1_Click()

    Dim dtData As Date
    Dim lRiga As Long
    Dim lng As Long
    Dim dTot As Double
    Dim sh As Worksheet
   
    Set sh = ThisWorkbook.Worksheets("Dati")
    dtData = CDate(Me.ComboBox1.Text)
    dTot = 0#
   
    With Me.ListBox1
        .Clear
        .TextAlign = fmTextAlignRight
    End With
   
    With sh
        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row
        For lng = 1 To 11
        .Controls("TextBox" & lng).Value = _
                .ListBox1.List(.ListBox1.ListIndex, lng - 1)
            If CDate(.Range("B" & lng).Value) = dtData Then
                Me.ListBox1.AddItem _
                    Format(.Range("B" & lng).Value, "#,#00.00 €")
                dTot = dTot + CDbl(.Range("C" & lng).Value)
            End If
        Next
        Me.ListBox1.AddItem Format(dTot, "#,#00.00 €")
    End With
   
    Set sh = Nothing
 

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

grazie mauro. cmq ho un altro problema le colonne da caricare sono 11 da a combobox1 poi texbox1 e via fino alla 11 quindda A a L i risultato da calcolare e la colonna J

preso dal tuo esempio e modificato ma non carica tutte le colonne

<cut>
 


Se il tuo problema è caricare otre 10 colonne in una Listbox, dobbiamo abbandonare AddItem che non permette di superare le 10 colonne.


Vedi qui:

Per il resto, immagino che caricare i dati nelle TextBox sia semplice.

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

ci provo. guarda la tua email ti ho mandato il mio programma. link dropbox, quello èè un bel problema

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

ci provo. guarda la tua email ti ho mandato il mio programma. link dropbox, quello èè un bel problema


Non ho ricevuto nulla.

Tu hai provato di capire l'esempio del quale ho postato il link?


----

NOTA. Questo forum nasce per risolvere piccoli problemi legati all'utilizzo di Excel e del suo VB. Piccoli problemi. Progetti complessi e personali sono OT(Off Topic/fuori argomento). Sarebbe cosa gradita a chi risponde, leggere domande chiare, ben documentate e mirate ad un argomento specifico. Grazie.

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

rimandata. conosco gli ot fuori topic. cmq sto cercando di adattare il tuo esempio sul mio foglio cercando di addattare rige e celle, ma io sono agli inizi quindi faccio fatica.

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

rimandata. conosco gli ot fuori topic. cmq sto cercando di adattare il tuo esempio sul mio foglio cercando di addattare rige e celle, ma io sono agli inizi quindi faccio fatica.

Non arriva nulla...


maurogsc

chiocciola

alice.it


*Fuori Topic* mi mancava... ;-)



--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

* Prova con un numero di pagina inferiore.

* Immetti solo numeri.

* Prova con un numero di pagina inferiore.

* Immetti solo numeri.