
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
|
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
|
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 |
