Please help with this code, it doesn't work:
Sub HoleDrillCut()
' HoleDrillCut Macro
' Macro recorded 24/01/2012
Dim R As Long
R = Range("B2").End(xlDown).Row + 1 ' Find first empty cell below B3
Range("B" & R) = "HOLE DRILLING OR CUTTING"
Range("C" & R) = "TBOL"
Range("I" & R) = "=VLOOKUP(Size,Data!N:O,2,FALSE),IF(AND(Thick>10,Thick<16),VLOOKUP(Size,N:P,3,FALSE),IF(AND(Thick>15,Thick<21),VLOOKUP(Size,N:Q,4,FALSE),IF(AND(Thick>20,Thick<31),VLOOKUP(Size,N:R,5,FALSE)),IF(AND(Thick>30,Thick<50))))*QTY*(Complex+Assist+1)"
End Sub
More precisely, this line doesn't work:
Range("I" & R) = "=VLOOKUP(Size,Data!N:O,2,FALSE),IF(AND(Thick>10,Thick<16),VLOOKUP(Size,N:P,3,FALSE),IF(AND(Thick>15,Thick<21),VLOOKUP(Size,N:Q,4,FALSE),IF(AND(Thick>20,Thick<31),VLOOKUP(Size,N:R,5,FALSE)),IF(AND(Thick>30,Thick<50))))*QTY*(Complex+Assist+1)"
Bookmarks