Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
help with macro
Hi
I need help to create a macro which will look in column "Z" and if any cell in this column has value 1 then do this: 1) On the entire row with offset put in column "K" current date 2) Entire row Copy-Paste Special-Values 3) Entire row change value 1 in column "Z" with the formula: =IF(sub!C1=6,1,"") Any help is highly appreciated. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
help with macro
Is this homework?
-- Don Guillett SalesAid Software "Tim" wrote in message ... Hi I need help to create a macro which will look in column "Z" and if any cell in this column has value 1 then do this: 1) On the entire row with offset put in column "K" current date 2) Entire row Copy-Paste Special-Values 3) Entire row change value 1 in column "Z" with the formula: =IF(sub!C1=6,1,"") Any help is highly appreciated. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
help with macro
I need your help to create this macro.
Please help me if you can Dave!!! I know you cando this. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
help with macro
How about we get you started by suggesting you look in VBA HELP index for
FIND or FIND NEXT for part 1 of your question. Part 2 can be resolved by using the recorder. Some of your question is not very clear. -- Don Guillett SalesAid Software "Tim" wrote in message ... I need your help to create this macro. Please help me if you can Dave!!! I know you cando this. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
help with macro
it is not homework. I ned you to help me if you can Don |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
help with macro
Sub ProcZ()
Dim cell as Range, rng as Range set rng = Range(cells(1,"Z"),cells(rows.count,"Z").End(xlup) ) for each cell in rng if cell.Value = 1 then cells(cell.row,"K").Value = Date cell.Entirerow.Copy cells(cell.row,1).EntireRow.Pastespecial xlValues cell.Formula = "=If(Sub!C1=6,1,"""")" end if Next End Sub -- Regards, Tom Ogilvy "Tim" wrote in message ... Hi I need help to create a macro which will look in column "Z" and if any cell in this column has value 1 then do this: 1) On the entire row with offset put in column "K" current date 2) Entire row Copy-Paste Special-Values 3) Entire row change value 1 in column "Z" with the formula: =IF(sub!C1=6,1,"") Any help is highly appreciated. |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
my question-MORE CLEAR
Hi I need a help to create a macro which will look in column "Z" and if any cell in this column has value "1" the macro should do this: 1) On the entire row (which cell in column "Z" is=1) with offset put in column "K" current date 2) Entire row(which cell in column "Z" is=1) Copy- Paste Special-Values. 3) On the Entire row (which cell in column "Z" is=1) change the value 1 in column "Z" with the formula: =IF(sub!C1=6,1,"") (replace number "1" in column"Z" of the entire row(which cell in column "Z" is=1) with the next formula: =IF(sub!C1=6,1,"") Any help is highly appreciated. |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
my question-MORE CLEAR
I gave you an answer that does that - do you have a problem with it or just
prefer to work with Don? -- Regards, Tom Ogilvy "Tim" wrote in message ... Hi I need a help to create a macro which will look in column "Z" and if any cell in this column has value "1" the macro should do this: 1) On the entire row (which cell in column "Z" is=1) with offset put in column "K" current date 2) Entire row(which cell in column "Z" is=1) Copy- Paste Special-Values. 3) On the Entire row (which cell in column "Z" is=1) change the value 1 in column "Z" with the formula: =IF(sub!C1=6,1,"") (replace number "1" in column"Z" of the entire row(which cell in column "Z" is=1) with the next formula: =IF(sub!C1=6,1,"") Any help is highly appreciated. |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
my question-MORE CLEAR
As always perfect answer from you. Tahk you Tom!!! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
how to count/sum by function/macro to get the number of record to do copy/paste in macro | Excel Programming | |||
macro to delete entire rows when column A is blank ...a quick macro | Excel Programming | |||
Start Macro / Stop Macro / Restart Macro | Excel Programming |