You are here:---Rispondi a: [RISOLTO] Impostare nomi in base alle date
Rispondi a: [RISOLTO] Impostare nomi in base alle date 2018-12-01T07:45:24+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: 336

    Ciao ho commesso un errore nella macro, ecco quella giusta

    Private Sub CommandButton1_Click()
    Dim idx1, idx2, c, cc, x, Ev
    
    Ev = ComboBox5
    Select Case Ev
        Case "Evento1": c = 2: cc = 18
        Case "Evento2": c = 5: cc = 21
        Case "Evento3": c = 8: cc = 24
    End Select
    idx1 = ComboBox1.ListIndex
    If idx1 = -1 Then GoTo 1
    idx1 = idx1 + 2
    With Sheets("Prospetto")
        .Cells(idx1, c) = ComboBox2
        .Cells(idx1, c + 1) = ComboBox3
        .Cells(idx1, c + 2) = ComboBox4
    End With
    1:
    idx2 = ComboBox6.ListIndex
    If idx2 = -1 Then Exit Sub
    idx2 = idx2 + 2
    With Sheets("Prospetto")
        .Cells(idx2, cc) = ComboBox2
        .Cells(idx2, cc + 1) = ComboBox3
        .Cells(idx2, cc + 2) = ComboBox4
    End With
    For x = 1 To 6
        Controls("Combobox" & x) = ""
    Next x
    ComboBox1.SetFocus
    End Sub

    http://www.filedropper.com/partiredadata2_1

    Ciao By Sal

    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