Hi
I am fairly new to producing macros so if this doesn't make sense, I apologise.
What I am trying to do is to produce shipping costs from a calculator that's based in another workbook. The problems that I am having are as follows:
the calculator isn't working unless I manually type in the weight, if I copy and paste from the workbook into the calculator it returns a #n/a result
I can't seem to get the code right to be able to work down a list of titles until I reach an empty cell.
Any advice on either of the above 2 issues would be greatly appreciated as this is keeping me up at night now!!
Thanks in advance
Sub Shipping_Costs()
'
' Shipping_Costs Macro
Dim x As Integer
NumRows = Range("A4", Range("A4").End(xlDown)).Rows.Count
Range("A4").Select
For x = 1 To NumRows
Workbooks.Open Filename:= _
"W:\Global Shipping\Direct Deliveries\DDR Price calculator.xlsm"
Windows("Copy of DDR WIP 2012.xlsm").Activate
Range("P4").Select
Selection.Copy
Windows("DDR Price calculator.xlsm").Activate
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Copy of DDR WIP 2012.xlsm").Activate
Range("S4").Select
Selection.Copy
Windows("DDR Price calculator.xlsm").Activate
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Copy of DDR WIP 2012.xlsm").Activate
Range("U4").Select
Selection.Copy
Windows("DDR Price calculator.xlsm").Activate
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E3").Select
Selection.Copy
Windows("Copy of DDR WIP 2012.xlsm").Activate
Range("Q4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("DDR Price calculator.xlsm").Activate
Range("E11").Select
Selection.Copy
Windows("Copy of DDR WIP 2012.xlsm").Activate
Range("V4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("DDR Price calculator.xlsm").Activate
ActiveWindow.Close
ActiveSheet.Range("$B$3:$AX$3297").AutoFilter Field:=19, Criteria1:="="
Range("A4").Select
ActiveCell.Offset(1, 0).Select
Next
End Sub
Bookmarks