Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Changing Values In A Cell
Is there an easy way to delete the contents of a cell when that cell is not null and not greater than 0?
if the cell is a number greater than 0, I want it to remain the same. If it is anything but a number greater than 0, I want to make it null. Thanks in advance. -- RAYMOND KELLY |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Changing Values In A Cell
Raymond,
For cell A1: If Not (IsNumeric(Range("A1").Value) And (Range("A1").Value 0)) Then Range("A1").ClearContents As a Sub: Sub myCellCheck(inCell As Range) If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then inCell.ClearContents End Sub Called like: Sub test() myCellCheck Range("A1") End Sub HTH, Bernie MS Excel MVP "RAYMOND KELLY" wrote in message ... Is there an easy way to delete the contents of a cell when that cell is not null and not greater than 0? if the cell is a number greater than 0, I want it to remain the same. If it is anything but a number greater than 0, I want to make it null. Thanks in advance. -- RAYMOND KELLY |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Changing Values In A Cell
Bernie,
Thank you. Will this work when it is more than one cell? I need to run the code once for all cells in the range A1..C100. -- RAYMOND KELLY "Bernie Deitrick" <deitbe @ consumer dot org wrote in message ... Raymond, For cell A1: If Not (IsNumeric(Range("A1").Value) And (Range("A1").Value 0)) Then Range("A1").ClearContents As a Sub: Sub myCellCheck(inCell As Range) If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then inCell.ClearContents End Sub Called like: Sub test() myCellCheck Range("A1") End Sub HTH, Bernie MS Excel MVP "RAYMOND KELLY" wrote in message ... Is there an easy way to delete the contents of a cell when that cell is not null and not greater than 0? if the cell is a number greater than 0, I want it to remain the same. If it is anything but a number greater than 0, I want to make it null. Thanks in advance. -- RAYMOND KELLY |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Changing Values In A Cell
Raymond,
Dim inCell As Range For Each inCell In Range("A1:C100") If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then inCell.ClearContents Next inCell HTH, Bernie MS Excel MVP "RAYMOND KELLY" wrote in message ... Bernie, Thank you. Will this work when it is more than one cell? I need to run the code once for all cells in the range A1..C100. -- RAYMOND KELLY "Bernie Deitrick" <deitbe @ consumer dot org wrote in message ... Raymond, For cell A1: If Not (IsNumeric(Range("A1").Value) And (Range("A1").Value 0)) Then Range("A1").ClearContents As a Sub: Sub myCellCheck(inCell As Range) If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then inCell.ClearContents End Sub Called like: Sub test() myCellCheck Range("A1") End Sub HTH, Bernie MS Excel MVP "RAYMOND KELLY" wrote in message ... Is there an easy way to delete the contents of a cell when that cell is not null and not greater than 0? if the cell is a number greater than 0, I want it to remain the same. If it is anything but a number greater than 0, I want to make it null. Thanks in advance. -- RAYMOND KELLY |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Changing Values In A Cell
Raymond,
That code line- wrapped at just the wrong place...Here's one that will work with the wrapping. Dim inCell As Range For Each inCell In Range("A1:C100") If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then inCell.ClearContents End If Next inCell HTH, Bernie MS Excel MVP "Bernie Deitrick" <deitbe @ consumer dot org wrote in message ... Raymond, Dim inCell As Range For Each inCell In Range("A1:C100") If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then inCell.ClearContents Next inCell HTH, Bernie MS Excel MVP "RAYMOND KELLY" wrote in message ... Bernie, Thank you. Will this work when it is more than one cell? I need to run the code once for all cells in the range A1..C100. -- RAYMOND KELLY "Bernie Deitrick" <deitbe @ consumer dot org wrote in message ... Raymond, For cell A1: If Not (IsNumeric(Range("A1").Value) And (Range("A1").Value 0)) Then Range("A1").ClearContents As a Sub: Sub myCellCheck(inCell As Range) If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then inCell.ClearContents End Sub Called like: Sub test() myCellCheck Range("A1") End Sub HTH, Bernie MS Excel MVP "RAYMOND KELLY" wrote in message ... Is there an easy way to delete the contents of a cell when that cell is not null and not greater than 0? if the cell is a number greater than 0, I want it to remain the same. If it is anything but a number greater than 0, I want to make it null. Thanks in advance. -- RAYMOND KELLY |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Changing Values In A Cell
Bernie,
I added the End If in the code from the prior e-mail and it worked like a charm. Thanks for your help. Raymond -- RAYMOND KELLY "Bernie Deitrick" <deitbe @ consumer dot org wrote in message ... Raymond, That code line- wrapped at just the wrong place...Here's one that will work with the wrapping. Dim inCell As Range For Each inCell In Range("A1:C100") If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then inCell.ClearContents End If Next inCell HTH, Bernie MS Excel MVP "Bernie Deitrick" <deitbe @ consumer dot org wrote in message ... Raymond, Dim inCell As Range For Each inCell In Range("A1:C100") If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then inCell.ClearContents Next inCell HTH, Bernie MS Excel MVP "RAYMOND KELLY" wrote in message ... Bernie, Thank you. Will this work when it is more than one cell? I need to run the code once for all cells in the range A1..C100. -- RAYMOND KELLY "Bernie Deitrick" <deitbe @ consumer dot org wrote in message ... Raymond, For cell A1: If Not (IsNumeric(Range("A1").Value) And (Range("A1").Value 0)) Then Range("A1").ClearContents As a Sub: Sub myCellCheck(inCell As Range) If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then inCell.ClearContents End Sub Called like: Sub test() myCellCheck Range("A1") End Sub HTH, Bernie MS Excel MVP "RAYMOND KELLY" wrote in message ... Is there an easy way to delete the contents of a cell when that cell is not null and not greater than 0? if the cell is a number greater than 0, I want it to remain the same. If it is anything but a number greater than 0, I want to make it null. Thanks in advance. -- RAYMOND KELLY |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need to store changing values from one cell | Excel Discussion (Misc queries) | |||
changing cell values | Excel Discussion (Misc queries) | |||
Changing values in a row based on a cell in the row. | Excel Discussion (Misc queries) | |||
Changing cell colors based on values | Excel Programming | |||
Help Evaluating Cell Values and Changing Colors | Excel Programming |