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

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

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

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

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