Delete the contents of a cell under multiple conditions

[mrlanier]

If cell A1=1, A1=3 or A1=5, I want the existing contents of B1 to be
deleted. However, if A1=2 or A1=4, I want to be able to enter input
into B1. Can someone suggest a macro for this? Thanks.

Michael

 

[okrob]

Try this:
Public Sub test()
Dim Cvalue As Double
Cvalue = Range("A1").Value
On Error GoTo test_Error
Select Case Cvalue
Case 1
Range("B1").ClearContents
Case 2
Range("B1").Value = Application.InputBox("Input value for
B1")
Case 3
Range("B1").ClearContents
Case 4
Range("B1").Value = Application.InputBox("Input value for
B1")
Case Else
Exit Sub
End Select
On Error GoTo 0
Exit Sub

test_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in
procedure test of Module Module1"
End Sub


Rob

 

[mrlanier]

Thanks Gary's Studuent and Rob,

It looks like I've got 2 promising possibilities. However, as a
novice, I'm a little confused over someting you both have indicated.
In both solutions, I need to enter a value for B1. What I need to
reflect is any value greater than 0. How specifically would I state
this? Rather, how would it appear? Thanks again.

Michael

 

[okrob]

Your original post:
---------------------------------
If cell A1=1, A1=3 or A1=5, I want the existing contents of B1 to be
deleted. However, if A1=2 or A1=4, I want to be able to enter input
into B1. Can someone suggest a macro for this? Thanks.

Michael
---------------------------------

It looked to me like you wanted the user to be prompted to input a
value for B1. If this is not the case, what exactly do you want the
cell in B1 to do if A1 is 2 or 4?

Basically, if the value for B1 doesn't matter, you can just delete this
line from Gary''s Student's code:
Range("B1").Value = Application.InputBox("Enter a value for B1:")