You are here:---Rispondi a: [RISOLTO] Impostare nomi in base alle date
Rispondi a: [RISOLTO] Impostare nomi in base alle date 2018-11-29T07:50:45+00:00

Home Forum Domande su Excel Generale [RISOLTO] Impostare nomi in base alle date Rispondi a: [RISOLTO] Impostare nomi in base alle date

BySalvBySalv
Amministratore del forum
    Post totali: 357

    Ciao ecco la modifica, non avevo capito il problema degli eventi, non c’era nel tuo file.

    questa la modifica del CommandButton

    Private Sub CommandButton1_Click()
    Dim idx, c, x, Ev
    
    idx = ComboBox1.ListIndex + 1
    Ev = ComboBox5
    Select Case Ev
        Case "Evento1": c = 2
        Case "Evento2": c = 5
        Case "Evento3": c = 8
    End Select
    With Sheets("Prospetto")
        .Cells(idx, c) = ComboBox2
        .Cells(idx, c + 1) = ComboBox3
        .Cells(idx, c + 2) = ComboBox4
    End With
    For x = 1 To 5
        Controls("Combobox" & x) = ""
    Next x
    ComboBox1.SetFocus
    End Sub

    ti ho modificato anche il rowsource dei combobox2-3-4, perche mi trovavo sempre alla fine della ricerca, anche il nome degli Eventi in maiuscolo.

    il link al file

    https://mega.nz/#!oNlxhCYY!xmM6YZuzGBeWT4yM6K-agvLbNA3dydTlFx4mhmy0w0M

    Ciao By Sal :bye:

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi