Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

dati da combobox in list box ed archiviazione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

dati da combobox in list box ed archiviazione

Postdi raffygrp » 30/08/12 11:15

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
raffygrp
Utente Junior
 
Post: 53
Iscritto il: 24/01/10 20:31

Sponsor
 

Re: dati da combobox in list box ed archiviazione

Postdi Flash30005 » 30/08/12 12:53

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?
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: dati da combobox in list box ed archiviazione

Postdi raffygrp » 30/08/12 14:01

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
raffygrp
Utente Junior
 
Post: 53
Iscritto il: 24/01/10 20:31

Re: dati da combobox in list box ed archiviazione

Postdi Flash30005 » 30/08/12 14:58

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

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: dati da combobox in list box ed archiviazione

Postdi raffygrp » 30/08/12 15:05

raffygrp
Utente Junior
 
Post: 53
Iscritto il: 24/01/10 20:31

Re: dati da combobox in list box ed archiviazione

Postdi Flash30005 » 30/08/12 17:34

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: dati da combobox in list box ed archiviazione

Postdi Flash30005 » 30/08/12 18:33

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: dati da combobox in list box ed archiviazione

Postdi raffygrp » 31/08/12 14:36

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
:)
raffygrp
Utente Junior
 
Post: 53
Iscritto il: 24/01/10 20:31

Re: dati da combobox in list box ed archiviazione

Postdi Flash30005 » 31/08/12 22:45

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) :aaah

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "dati da combobox in list box ed archiviazione":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti