You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] Ricerca materiale Bottone Elimina Bottone Conferma Modifica Multipla-Rispondi a: [RISOLTO] Ricerca materiale Bottone Elimina Bottone Conferma Modifica Multipla
Rispondi a: [RISOLTO] Ricerca materiale Bottone Elimina Bottone Conferma Modifica Multipla2017-11-22T09:57:30+01:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Ricerca materiale Bottone Elimina Bottone Conferma Modifica Multipla Rispondi a: [RISOLTO] Ricerca materiale Bottone Elimina Bottone Conferma Modifica Multipla

AvatarREAPAT
Partecipante
    Post totali: 36

    Questo è il codice del bottone Conferma Modifiche

    Private Sub CommandButton19_Click()
    
        Dim Risp
        Dim i As Long
        Dim r
        Dim ComputerName
        
        Risp = MsgBox("Vuoi effettuare queste modifiche ?", vbInformation + vbYesNo, "Controllo dati")
            For i = 1 To Me.ListBox1.ListCount
                If Me.ListBox1.Selected(i - 1) Then
                    If Risp = vbYes Then
                        R_r = ""
    
                            sh1.Cells(i + 1, 5) = ComboBox14.Value
    
                    Else
                        MsgBox "Nessun dato è stato modificato!", vbExclamation, "Operazione Annullata!"
                    Exit Sub
                    End If
            
                End If
            Next i
        MsgBox "Operazione effettuata.", vbInformation, "Aggiornamento dati"
        UserForm_Activate
    End Sub