Greater than

  • Thread starter Thread starter oldjay
  • Start date Start date
O

oldjay

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
 
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("AD21") _
.PasteSpecial Paste:=xlFormulas
end if

end with
 
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
 
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.
 
Back
Top