dati da combobox in list box ed archiviazione

[raffygrp]

salve, ho realizzato una userform in vb per gestire un data base che ho realizzato nel foglio " censimento".
attraverso una combobox che ha per rowsource il db censimento, seleziono la mia scelta... e fin qui ci sono arrivato.
ora mi occorre poter selezionare con il pulsante "seleziona" il dato scelto e poter vedere nelle 5 listbox i dati delle altre colonne che compongono il data base. in più una volta controllate, dovrei avere la possibilità di inserire un testo in una " casella di testo" ed in viare il tutto alla pagina del file excel denominata"inserisci nuovi dati"....
sono proprio fermo, per la mia ignoranza in materia... chi può aiutarmi? grazie

[Flash30005]

dovremmo ricostruire il file di excel con un combox, 5 listbox e con caselle testo, poi con aggiunta fogli come "inserisci nuovi dati..." etc etc?

[raffygrp]

scusa ho dimenticati di inviare il link con il file che sto creando ....ovviamente è un piccolo embrione , ti sarei grato se solo riuscissi a spiegarmi come selezionare ed associare il risultato della combobox alla listbox,e di come poter scrivere in una listbox libera ed poter archiviare alla pagina registro geenerale
grazie millle, ciao
http://www.fileserve.com/file/sxnj8wh/gestioni interventi telefonici.xlsm

[Flash30005]

o è errato il link o il server non rilascia gratuitamente l'upload del file
prova ad usare questo server
http://www.filedropper.com/

Ciao

[raffygrp]

http://www.filedropper.com/gestiint

[Flash30005]

Nel codice del Combox (sua variazione) puoi inserire questa macro

Codice: Seleziona tutto

Private Sub ComboBox1_DAL_CENSIMENTO_Change()
'Stringa = Me.ComboBox1_DAL_CENSIMENTO
UR = Worksheets("Censimento").Range("B" & Rows.Count).End(xlUp).Row
For RR = 2 To UR
    If Worksheets("Censimento").Range("A" & RR).Value = Me.ComboBox1_DAL_CENSIMENTO Then
        For CC = 1 To 12
            If CC = 1 Then
                Stringa = Worksheets("Censimento").Cells(RR, CC).Value
            Else
                Stringa = Stringa & "; " & Worksheets("Censimento").Cells(RR, CC).Value '<<< come separatore puoi scegliere anche solo la virgola
            End If
        Next CC
        GoTo ESCI
    End If
Next RR
ESCI:
ListBox1.List = Array(Stringa)
End Sub

Poi, non ho capito dove vorresti inserire i valori così ottenuti.

Ciao

[Flash30005]

Aggiungo...
Se vuoi i dati in riga nel Listbox allora puoi usare questo codice

Codice: Seleziona tutto

Private Sub ComboBox1_DAL_CENSIMENTO_Change()
Dim Matrice()
UR = Worksheets("Censimento").Range("B" & Rows.Count).End(xlUp).Row
For RR = 2 To UR
    If Worksheets("Censimento").Range("A" & RR).Value = Me.ComboBox1_DAL_CENSIMENTO Then
        ReDim Matrice(1 To 12)
        For C = 1 To 12
            Matrice(C) = Worksheets("Censimento").Cells(RR, C)
        Next C
        GoTo ESCI
    End If
Next RR
ESCI:
ListBox2.Clear
For C = 1 To 4
MsgBox Matrice(C)
ListBox2.AddItem Matrice(C)
Next
End Sub

Ciao

[raffygrp]

ti ringrazio per il lavoro svolto, tuttavia penso di potermi spiegare meglio con le descrivioni che ho inserito nel codice del file
http://www.filedropper.com/gestiint2_1

grazie anticipatamente

[Flash30005]

La/le macro sono piene di commenti e sinceramente leggere tutto...

Ho visto che la maschera ha diversi textbox
quindi non uno solo come dicevi (e pensare che ho perso anche tempo per cercare di far entrare tutto in un box)

Per semplificare inserisci i valori reali (corrispondenti al codice della combox) o, meglio, la colonna (es.: C, H, J etc)
per ogni textbox
poi invii solo l'immagine della maschera così compilata

ciao