Please help with this code, it doesn't work:
More precisely, this line doesn't work:
Please Login or Register to view this content.
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)"
Last edited by zbor; 05-28-2012 at 05:12 AM.
Should this line include:
Please Login or Register to view this content.
You should edit that post above and add code tags as per forum rules, you don't want to get scolded by a moderator.
_________________
Microsoft MVP 2010 - Excel
Visit: Jerry Beaucaire's Excel Files & Macros
If you've been given good help, use theicon below to give reputation feedback, it is appreciated.
Always put your code between code tags. [CODE] your code here [/CODE]
?None of us is as good as all of us? - Ray Kroc
?Actually, I *am* a rocket scientist.? - JB (little ones count!)
Hi Stefanp,
If is not starting at the beginning and that may be the issue as if syntax demands.. =if(criteria condition, what if true, what if false)... explore on this point to correct your formula. thanks.
Regards,
DILIPandey
<click on below 'star' if this helps>
DILIPandey, Excel rMVP
+919810929744 (India), +971528225509 (Dubai), [email protected]
LookUp.JPG
And macro
PHP Code:Option Explicit
Sub HoleDrillCut()
Dim R As Long, Size As Long, Col As Long, Thick As Long
Dim Rng As Range
R = Range("B2").End(xlDown).Row + 1 ' Find first empty cell below B3'
Size = Cells(R, "D").End(xlUp).Row - Cells(R, "D").Row 'Cells(R, "D").End(xlUp).Value'
Thick = Cells(R, "E").End(xlUp).Value '<=|'
Set Rng = [o1].CurrentRegion
Range("B" & R) = "HOLE DRILLING OR CUTTING": Range("C" & R) = "TBOL"
Col = Switch(Thick <= 10, 2, Thick < 16, 3, Thick < 21, 4, Thick < 31, 5, Thick >= 31, 6)
MsgBox Application.WorksheetFunction.VLookup(Cells(R, "D").End(xlUp).Value, Rng, Col, False)
Range("I" & R).FormulaR1C1 = "=VLOOKUP(R[" & Size & "]C[-5],R1C[5]:R9C[10]," & Col & ",FALSE)"
End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks