# Posts by cainn8221

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

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

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

## Files

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,

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

## Files

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 re-write the code?

Sub Copypaste()
Dim ws As Worksheet
Dim rng As Range

If 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