I have command button for deleting values in some cells, but it doesn't
work. Can someone help? Thanks !!

Private Sub cmdDelete_Click()
Dim a As Boolean

a = MsgBox("Do you want to delete?", vbYesNo)
Select Case a
Case a = vbYes

Worksheets(1).Range("C4:C13,E28:G32,E34:G36,E38:G4 8,E50:G57").Select
Selection.ClearContents
Case a = vbNo
ActiveSheet.Range("C4").Select
End Select
End Sub

Thanks!!

Dim a As Long
'...
Case vbYes
'...
Case vbNo
'...

HTH. Best wishes Harald

"John" skrev i melding
...
I have command button for deleting values in some cells, but it doesn't
work. Can someone help? Thanks !!

Private Sub cmdDelete_Click()
Dim a As Boolean

a = MsgBox("Do you want to delete?", vbYesNo)
Select Case a
Case a = vbYes

Worksheets(1).Range("C4:C13,E28:G32,E34:G36,E38:G4 8,E50:G57").Select
Selection.ClearContents
Case a = vbNo
ActiveSheet.Range("C4").Select
End Select
End Sub

Thanks!!

For some strange reason the VB developers did not make vbYes and vbNo
convertible directly to Boolean values. VBYes = 6 and vbNo = 7; converted to
Boolean they would both become True (i.e., non-zero). You need to Dim a as
an Integer variable.

"John" wrote:

I have command button for deleting values in some cells, but it doesn't
work. Can someone help? Thanks !!

Private Sub cmdDelete_Click()
Dim a As Boolean

a = MsgBox("Do you want to delete?", vbYesNo)
Select Case a
Case a = vbYes

Worksheets(1).Range("C4:C13,E28:G32,E34:G36,E38:G4 8,E50:G57").Select
Selection.ClearContents
Case a = vbNo
ActiveSheet.Range("C4").Select
End Select
End Sub

Thanks!!

Presumably because vbYes and VbNo are part of a much bigger enumeration, and
there are only two Boolean values.

You could always declare ans as vbMsgboxResult.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"K Dales" wrote in message
...
For some strange reason the VB developers did not make vbYes and vbNo
convertible directly to Boolean values. VBYes = 6 and vbNo = 7; converted
to
Boolean they would both become True (i.e., non-zero). You need to Dim a
as
an Integer variable.

"John" wrote:

I have command button for deleting values in some cells, but it doesn't
work. Can someone help? Thanks !!

Private Sub cmdDelete_Click()
Dim a As Boolean

a = MsgBox("Do you want to delete?", vbYesNo)
Select Case a
Case a = vbYes

Worksheets(1).Range("C4:C13,E28:G32,E34:G36,E38:G4 8,E50:G57").Select
Selection.ClearContents
Case a = vbNo
ActiveSheet.Range("C4").Select
End Select
End Sub

Thanks!!