Far comunicare due Macro

Hai un problema con Excel?

Nuova discussione

Far comunicare due Macro
di Ciaoooo90 (utente non iscritto) data: 22/09/2015 17:17:31
Salve, grazie in anticipo dell'aiuto. Allego il codice VBA. Premetto che ho creato una userform dove ci sono delle parole scritte e posso fare una multiselezione. Alla fine appare una finestra con le cose che ho selezionato. Ora avrei la necessità di utilizzarle quelle parole che ho selezionato ed utilizzarlo in un nuovo modulo che potrà essere attivato con un pulsante a parte.

Non so se sono stato chiaro. Grazieeeeeee e buona vita

Private Sub CancelButton_Click()
    Unload UserForm1
End Sub

Private Sub Label1_Click()

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub OKButton_Click()
    Dim Msg As String
    Dim i As Integer
    Dim Counter As Integer
    Msg = "You selected:" & vbNewLine
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            Counter = Counter + 1
            Msg = Msg & ListBox1.List(i) & vbNewLine
        End If
    Next i
    If Counter = 0 Then Msg = Msg & "(nothing)"
    MsgBox Msg
    Unload UserForm1
End Sub


Sub UserForm_Initialize()
'   Fill the list box
    With ListBox1
             .AddItem "Ore 9:00"
             .AddItem "Ore 10:00"
             .AddItem "Ore 12:00"
             .AddItem "giorno succ"
             .AddItem "Economy"
             .AddItem "Merci pesanti"
             .AddItem "Al sabato"
             .AddItem "Week-End"
             .AddItem "Su appuntamento"
             .AddItem "Al vicino"
             .AddItem "Finistra temporale"
             .AddItem "Al piano"
             .AddItem "di sera"
             .AddItem "Desk to Desk"
             .AddItem "Facchinaggio"
             .AddItem "giorno stabilito .AddItem "
             .AddItem "Notturno .AddItem "
             .AddItem "Stesso giorno"
             .AddItem "Zone Disagiate"
             .AddItem "Sponda Idraulica"
             .AddItem "Data diversa "
             .AddItem "Indirizzo secondario"
                .AddItem "Sosta"
                .AddItem "Riconsegna (proattività)"
                .AddItem "Giacenza"
                .AddItem "Andata e ritorno"
                .AddItem "Magazzini"
                .AddItem "Fermo Deposito"
                .AddItem "Deposito Caveau"
                .AddItem "Fermo Posta"
                .AddItem "Firma di un adulto"
                .AddItem "Raccomandata"
                .AddItem "Ghiaccio Secco"
                .AddItem "Bottiglie"
                .AddItem "Batterie"
                .AddItem "Bombolette/profumi"
                .AddItem "Vernici/pitture"
                .AddItem "Acidi Industriali"
                .AddItem "Mezzi a due ruote"
                .AddItem "Capi Appesi"
                .AddItem "Bagagli"
                .AddItem "Merce per Oreficerie e gioielleria"
                .AddItem "Clinical/pharma"
                .AddItem "Bancali"
                .AddItem "Valore dichiarato"
                .AddItem "Assicurazione"
                .AddItem "Anticipo diritti amministr."
                .AddItem "Contazione"
                .AddItem "Prova Consegna"
                .AddItem "Notifiche"
                .AddItem "Re-call/Re email"
                .AddItem "Monitoraggi Speciali"

       
    End With

'   Select the first list item
    ListBox1.ListIndex = 0
End Sub

di patel data: 22/09/2015 17:41:43
nella nuova sub farai riferimento alla userform ed al nome del controllo, vedi codice allegato
se alleghi un file di esempio sarà più facile capire e consigliarti
sub nuova elemselez = UserForm1.ListBox1.text end sub

Vuoi Approfondire?