Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Greater than
Whats wrong with this?
Windows("TempData.XLS").Activate 'Recalls scrap rates If D21 0 Then Range("D21:D23").Select Selection.Copy Windows(MasterSheet).Activate Range("AD21").Select Selection.PasteSpecial Paste:=xlFormulas End If |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Greater than
You are missing sheet names and MasterSheet may need double quotes. See
comments below 'change sheet anem as required with workbooks("TempData.XLS").sheets("Sheet1") if .Range("D21") 0 then .Range("D21:D23").Copy 'Is MasterSheet a variable name. I put double quotes 'Change sheet name as required workbooks("MasterSheet").sheets("Sheet1").Range("A D21") _ .PasteSpecial Paste:=xlFormulas end if end with "oldjay" wrote: Whats wrong with this? Windows("TempData.XLS").Activate 'Recalls scrap rates If D21 0 Then Range("D21:D23").Select Selection.Copy Windows(MasterSheet).Activate Range("AD21").Select Selection.PasteSpecial Paste:=xlFormulas End If |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Greater than
Thanks - I just added the range and quotes and it worked.
If Range("D21") 0 Then Why does the following code work that is just below the other code If F31 = Empty Then 'Recalls estimator, sales person and commission % Range("F31").Select Selection.Copy Windows(MasterSheet).Activate Range("AF31").Select Selection.PasteSpecial Paste:=xlValues "Joel" wrote: You are missing sheet names and MasterSheet may need double quotes. See comments below 'change sheet anem as required with workbooks("TempData.XLS").sheets("Sheet1") if .Range("D21") 0 then .Range("D21:D23").Copy 'Is MasterSheet a variable name. I put double quotes 'Change sheet name as required workbooks("MasterSheet").sheets("Sheet1").Range("A D21") _ .PasteSpecial Paste:=xlFormulas end if end with "oldjay" wrote: Whats wrong with this? Windows("TempData.XLS").Activate 'Recalls scrap rates If D21 0 Then Range("D21:D23").Select Selection.Copy Windows(MasterSheet).Activate Range("AD21").Select Selection.PasteSpecial Paste:=xlFormulas End If |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Greater than
Fe1 is a variable and not a cell on the worksheet. Because you haven't used
the variable before it is Empty. the activeworkshhet of a work book is the last active sheet before it was closed. You can't dependc on a workbook always opening to the same sheet unless there is only one sheet in the workbook. "oldjay" wrote: Thanks - I just added the range and quotes and it worked. If Range("D21") 0 Then Why does the following code work that is just below the other code If F31 = Empty Then 'Recalls estimator, sales person and commission % Range("F31").Select Selection.Copy Windows(MasterSheet).Activate Range("AF31").Select Selection.PasteSpecial Paste:=xlValues "Joel" wrote: You are missing sheet names and MasterSheet may need double quotes. See comments below 'change sheet anem as required with workbooks("TempData.XLS").sheets("Sheet1") if .Range("D21") 0 then .Range("D21:D23").Copy 'Is MasterSheet a variable name. I put double quotes 'Change sheet name as required workbooks("MasterSheet").sheets("Sheet1").Range("A D21") _ .PasteSpecial Paste:=xlFormulas end if end with "oldjay" wrote: Whats wrong with this? Windows("TempData.XLS").Activate 'Recalls scrap rates If D21 0 Then Range("D21:D23").Select Selection.Copy Windows(MasterSheet).Activate Range("AD21").Select Selection.PasteSpecial Paste:=xlFormulas End If |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Greater than
Thanks so much
"oldjay" wrote: Whats wrong with this? Windows("TempData.XLS").Activate 'Recalls scrap rates If D21 0 Then Range("D21:D23").Select Selection.Copy Windows(MasterSheet).Activate Range("AD21").Select Selection.PasteSpecial Paste:=xlFormulas End If |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Less than or Greater than | Excel Discussion (Misc queries) | |||
greater than less than | Excel Discussion (Misc queries) | |||
Last Value Greater Than Zero | Excel Discussion (Misc queries) | |||
Greater Than and less than HELP PLEASE | Excel Discussion (Misc queries) | |||
I have Greater than, I need less than also | Excel Worksheet Functions |