Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro needed please
i need a macro that will when run will put a number 1 in cell A1 but if there
is already a number 1 i want the same macro to enter a 0 (zero) i supose its a bit like a switch. To sum up exactly what i need.... If there is a 0 (zero) i want the macro to enter a 1 in cell A1 and then print page 1 of my "output" worksheet. If there is already a 1 in A1 then i want it to enter a 0 (zero) with no print. Sorry if this seems silly but it really would be useful in what im trying to achieve p.s. the macro will run when i click an auto shape thats assigned to it Thanks |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro needed please
Maybe something like this...
Sub ZeroOrOne() If Range("A1").Value = 0 Then Range("A1").Value = 1 ActiveWindow.SelectedSheets.PrintOut ElseIf Range("A1").Value = 1 Then Range("A1").Value = 0 End If End Sub HTH Regards, Howard "jackrobyn1" wrote in message ... i need a macro that will when run will put a number 1 in cell A1 but if there is already a number 1 i want the same macro to enter a 0 (zero) i supose its a bit like a switch. To sum up exactly what i need.... If there is a 0 (zero) i want the macro to enter a 1 in cell A1 and then print page 1 of my "output" worksheet. If there is already a 1 in A1 then i want it to enter a 0 (zero) with no print. Sorry if this seems silly but it really would be useful in what im trying to achieve p.s. the macro will run when i click an auto shape thats assigned to it Thanks |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro needed please
"jackrobyn1" wrote: i need a macro that will when run will put a number 1 in cell A1 but if there is already a number 1 i want the same macro to enter a 0 (zero) i supose its a bit like a switch. To sum up exactly what i need.... If there is a 0 (zero) i want the macro to enter a 1 in cell A1 and then print page 1 of my "output" worksheet. If there is already a 1 in A1 then i want it to enter a 0 (zero) with no print. Sorry if this seems silly but it really would be useful in what im trying to achieve p.s. the macro will run when i click an auto shape thats assigned to it Thanks |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
macro needed please
Here's one approach:
sub Switch() cells(1, 1) = abs(cells(1, 1) - 1) if cells(1, 1) = 1 then 'Call your print routine - you can record a macro if needed. end if end sub Note that if cell(1, 1) contains 1, then 1 - 1 = 0, and the absolute value of 0 = 0. If the cell contains 0 then 0 - 1 = -1 and the absolute value of -1 is 1. So, you've got your switch. "jackrobyn1" wrote: i need a macro that will when run will put a number 1 in cell A1 but if there is already a number 1 i want the same macro to enter a 0 (zero) i supose its a bit like a switch. To sum up exactly what i need.... If there is a 0 (zero) i want the macro to enter a 1 in cell A1 and then print page 1 of my "output" worksheet. If there is already a 1 in A1 then i want it to enter a 0 (zero) with no print. Sorry if this seems silly but it really would be useful in what im trying to achieve p.s. the macro will run when i click an auto shape thats assigned to it Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro help needed :( | Excel Worksheet Functions | |||
Macro Help Needed | Excel Discussion (Misc queries) | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) |