You are here:Home-Domande su Excel Generale-[RISOLTO] Impostare nomi in base alle date-Rispondi a: [RISOLTO] Impostare nomi in base alle date
Rispondi a: [RISOLTO] Impostare nomi in base alle date2018-11-29T07:50:45+01: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: 693

    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:

    Ciao By Sal (8-)
    se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie