| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro, how to set a cell value to zero
I am a newbie in VBA.
I want to set a cell value to zero after For and before Set statement in the following MAcro. How can I do that. Sub RoundToZero1() For Counter = 1 To 12 Set curCell = Worksheets("Sheet1").Cells(Counter, 3) If Abs(curCell.Value) < 0.5 Then Cells(Counter, 4) = "These numbers are lass than 0.5" Next Counter End Sub -- R. Khoshravan Please click "Yes" if it is helpful. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Macro, how to set a cell value to zero
You can just use the
Worksheets("Sheet1").Cells(row,col).Value=0 statement to set the cell value to zero. # Sub RoundToZero1() For Counter = 1 To 12 Worksheets("Sheet1").Cells(Counter, 3).Value=0 Set curCell = Worksheets("Sheet1").Cells(Counter, 3) If Abs(curCell.Value) < 0.5 Then Cells(Counter, 4) = "These numbers are lass than 0.5" Next Counter End Sub # Hope this works Have a nice time Chris ------ Convert your Excel spreadsheet into an online calculator. http://www.spreadsheetconverter.com -- Message posted via http://www.officekb.com |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Macro, how to set a cell value to zero
Thanks for your comment.
Isn't it possible to eliminate the first part: Worksheets("Sheet1"). -- R. Khoshravan Please click "Yes" if it is helpful. "Chris Bode via OfficeKB.com" wrote: You can just use the Worksheets("Sheet1").Cells(row,col).Value=0 statement to set the cell value to zero. # Sub RoundToZero1() For Counter = 1 To 12 Worksheets("Sheet1").Cells(Counter, 3).Value=0 Set curCell = Worksheets("Sheet1").Cells(Counter, 3) If Abs(curCell.Value) < 0.5 Then Cells(Counter, 4) = "These numbers are lass than 0.5" Next Counter End Sub # Hope this works Have a nice time Chris ------ Convert your Excel spreadsheet into an online calculator. http://www.spreadsheetconverter.com -- Message posted via http://www.officekb.com |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| 'IF' Macro to insert cell contents to alternate cell if cell not e | Excel Worksheet Functions | |||
| using a cell value to control a counter inside a macro and displaying macro value | Excel Worksheet Functions | |||
| If cell is empty then run macro otherwise skip this macro | Excel Programming | |||
| macro to run a separate macro dependent on value in cell | Excel Programming | |||
| Question: Cell formula or macro to write result of one cell to another cell | Excel Programming | |||
Linear Mode
