| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
multiple cells
I am trying to get the following code to work for a range of cells.
Each time I put in for example Range("A1:A10").value = "whatever" the system says that there is an error. This is what I have so far: Dim n n = 1 If Range("N6").Value < n Then Range("D6").Value = "" Range("e6").Value = "" End If This what I would like to do.. something to this effect Dim n n=1 if range("N6:N31").Value < n then Range("D6:D31").Value = "" Range("E6:E31").Value = "" |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
multiple cells
Check your other post.
ssrvant wrote: I am trying to get the following code to work for a range of cells. Each time I put in for example Range("A1:A10").value = "whatever" the system says that there is an error. This is what I have so far: Dim n n = 1 If Range("N6").Value < n Then Range("D6").Value = "" Range("e6").Value = "" End If This what I would like to do.. something to this effect Dim n n=1 if range("N6:N31").Value < n then Range("D6:D31").Value = "" Range("E6:E31").Value = "" -- Dave Peterson |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
multiple cells
What u ned is a loop - try :
for each c in range("N6:N31") if c<n then c.offset(0,-10)="":c.offset(0,-9)="" next "ssrvant" skrev: I am trying to get the following code to work for a range of cells. Each time I put in for example Range("A1:A10").value = "whatever" the system says that there is an error. This is what I have so far: Dim n n = 1 If Range("N6").Value < n Then Range("D6").Value = "" Range("e6").Value = "" End If This what I would like to do.. something to this effect Dim n n=1 if range("N6:N31").Value < n then Range("D6:D31").Value = "" Range("E6:E31").Value = "" |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
multiple cells
hi
try something like this instead.... Sub test1() Dim n As Single Dim r As Range n = 1 Set r = Range("N6:N31") For Each cell In r If cell.Value < n Then cell.Offset(0, -10).Value = "" cell.Offset(0, -9).Value = "" End If Next cell End Sub "ssrvant" wrote: I am trying to get the following code to work for a range of cells. Each time I put in for example Range("A1:A10").value = "whatever" the system says that there is an error. This is what I have so far: Dim n n = 1 If Range("N6").Value < n Then Range("D6").Value = "" Range("e6").Value = "" End If This what I would like to do.. something to this effect Dim n n=1 if range("N6:N31").Value < n then Range("D6:D31").Value = "" Range("E6:E31").Value = "" |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| how to make a macro to clear multiple cells from multiple worksheets? | Excel Worksheet Functions | |||
| macro copy/paste data from multiple cells to multiple cells | Excel Discussion (Misc queries) | |||
| Date and time stamping multiple cells for multiple entries. | Excel Worksheet Functions | |||
| make multiple cells in 1 worksheet equal multiple cells in another | Excel Worksheet Functions | |||
| INTRICATE PROBLEM- How to find multiple text,excluding "H", in a multiple range of cells, then replacing 0 with another number in another cell | Excel Worksheet Functions | |||
Linear Mode
