Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete the contents of a cell under multiple conditions
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete the contents of a cell under multiple conditions
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 wrote: 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete the contents of a cell under multiple conditions
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete the contents of a cell under multiple conditions
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:") wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can I delete a portion of cell contents repeating in multiple fie. | Excel Discussion (Misc queries) | |||
delete contents of cell | Excel Discussion (Misc queries) | |||
Delete Cell Contents IF | Excel Programming | |||
Formula to return cell contents based on multiple conditions | Excel Worksheet Functions | |||
entirerow.delete multiple text conditions | Excel Programming |