=IF(VLOOKUP(F3,Lists!A:B,2,FALSE)="yes",C3*1*X3+C3,C3), Thats the Formula thats in cell "L" right now
Posts by cainn8221


One last question, how would you get the round up function to work in cell L so it rounds to the nearest whole number?

Thanks so much davesexcel, That worked great

Sorry for the late response I do have one here thank you so much for taking the time to help.

I was not sure what to title it exactly, I apologize if its bothersum. The vlookup(F3,Lists!A:B,2,False),c3)) is what I think the issue is.

So what I would like to accomplish is if there is a number in cell c i looks at the lists page cell A and cell B to see if there is a yes in the B cell next to the value in A cell if this is true then it adds C3*1*ws+c3, this works correctly but if there is a blank in cell B it should just return the value in cell C3, but all i get is false in the cell. How can i get this to work correctly?
=IF(ISNUMBER(C3),IF(ISERROR(VLOOKUP(F3,Lists!A:B,2,False),c3)),IF(ISNUMBER(C3),IF(VLOOKUP(F3,Lists!A:B,2,FALSE)="yes",C3*1*W3+C3)))

That worked,
Thank you for your help. 
Here is the sample book. I wrote what i was trying to accomplish with the macro in the sheet Thank you for taking the time to look at it

I am trying to make this macro delete blank rows and skip any rows that has subtotal in the line.
Sub Delrow()
Dim lr As Long
lr = Range("c" & Rows.Count).End(xlUp).Row
Dim i As Long
For i = lr To 2 Step 1 'loops from last row to row 2
If Value("G") = "subtotals" Then Skip 'This like is the code that is supposed to skip
If Range("c" & i) = "" Then Range("c" & i).EntireRow.Delete
Next i
End sub 
I am trying to write vba to basically copy a row and insert it below the active row with the next number in a sequence. so I would copy a default row and insert it right under the active row and add 1.02 in cell A automatically I just cant figure out where to add the code to this vba or would i have to rewrite the code?
Sub Copypaste()
Dim ws As Worksheet
Dim rng As RangeIf MsgBox("Add a new Line?", vbYesNo, "Confirm") = vbYes Then
Set ws = ThisWorkbook.Sheets("FFE Short")With ws
Set rng = .Rows(ActiveCell.Row)
rng.Copy
rng.Offset(1).Insert Shift:=xlDown
Application.CutCopyMode = False
End With
End If
End Sub