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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 07:49 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com