Commandbutton: cancella



  • Commandbutton: "cancella"
    di Sal (utente non iscritto) data: 19/06/2012

    Ciao a tutti

    ho bisogno di un aiuto da parte di tutti gli esperti di macro excel (per voi sarà sicuramente una cosa semplicissima)

    ho vari fogli excel con tante celle da riempire

    ho creato un commandbutton chiamato (cancella) dove cliccando cancello tutte le celle
    vedi sotto

    vorrei che quando clicco sul bottone: "cancella" non cancelli subito ma mi venga un msgbox che mi chieda:
    "sei sicuro di cancellare tutto?" e ci siano due bottoni con le opzioni "si" e "no"
    cliccando sul si cancella tutto, cliccando sul no mi ritorna sul foglio excel

    spero di essere stato chiaro
    un grazie atutti coloro che vogliano e/o siano in grado di risolvere il mio problema
    ciao
    sal
     
    
    Private Sub CommandButton1_Click()
    
        Range("E23:J23").ClearContents
        Range("E25:F25").ClearContents
        Range("E27:J27").ClearContents
        Range("E29:F29").ClearContents
        Range("E31:H31").ClearContents
        Range("J31").ClearContents
        Range("a40").Select
    
    End Sub
    
    
    



  • di Patel (utente non iscritto) data: 19/06/2012

    Prova questa
     
    Private Sub CommandButton1_Click()    
    risposta = MsgBox("Sei sicuro di voler cancellare tutto ?", vbYesNo)
        If risposta = vbYes Then
        Range("E23:J23").ClearContents
        Range("E25:F25").ClearContents
        Range("E27:J27").ClearContents
        Range("E29:F29").ClearContents
        Range("E31:H31").ClearContents
        Range("J31").ClearContents
        Range("a40").Select
        Else
        MsgBox ("Non ho cancellato")
        End If
    end sub
    



  • di Sal (utente non iscritto) data: 19/06/2012

    Funziona! . . . grazie mille !

    io c'ero quasi arrivato, l'avevo fatta in questa maniera (vedi sotto) ma non funziona !
    cosa c'è di sbagliato?
    sembrano uguali a parte la condizione di: else
     
    Private Sub CommandButton1_Click()
    
     Risposta = MsgBox("Sei sicuro di voler cancellare tutto ?", vbYesNo)
      If Risposta = Yes Then
      Range("a1").ClearContents
      Range("a").ClearContents
    
    Else
     Exit Sub
    End If
    
    End Sub



  • di Sal (utente non iscritto) data: 19/06/2012

    Ciao patel

    scusa ma non avevo visto la differenza
    ho capito l'errore
    è nel vbyes, io avevo scritto solo yes

    grazie ancora per l'aiuto.
    ciao
    sal



  • di Sal (utente non iscritto) data: 19/06/2012

    Ciao patel

    scusa ma non avevo visto la differenza
    ho capito l'errore
    è nel vbyes, io avevo scritto solo yes

    grazie ancora per l'aiuto.
    ciao
    sal