Home/ Questions/Q 8772499
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-06-13T18:02:55+00:00

UPDATE: Got a new issue with a formula, can’t quite get it to work

  • 0

UPDATE:
Got a new issue with a formula, can’t quite get it to work because of text in the formula, the formula (as taken from excel) should be, 

=IF(D2<=0,"No Sales Price",E2/D2)

I have tried as many combinations as I can think of but the “no sales price” is causing an issue with the quotation marks. My current code is 

For i = 2 To LastRowG   
Range("Q" & i).Formula = "=IF(D" & i & "<=0," & "(No Sales Price)",  & "(E" & i & "/D" & i & "))"    
Next i

have had a look around but been unable to see any resolutions to the problem, any enlightenment will be met with the greatest appreciation

EDIT:This was fixed by inserting the following lines; 

For i = 2 To LastRowG  
Range("Q" & i).Formula = "=IF(D" & i & "<=0," & Chr(34) & "No Sales Price" & Chr(34) & "," & "E" & i & "/" & "D" & i & ")"
Next i

The Chr(34) inserts the ASCII character appertaining to that number which just so happens to be “. The program doesn’t read it as having typed in the quote marks and continues to read the line of code correctly but then places the “no sales price” correctly in the formula.

It will output the line as the formula is intended to be and the Chr(34) is like writing “”No Sales Price”” without the inevitable “expected end of statement” error

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    What I suggested will result in something like this:

    LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Cells(LastRow + 1, 3).Formula = "=SUM(C1:C" & LastRow & ")"

    Extra 1

    Is it possible to use this formula to enter the word Total in the cell to the left?

    Range("B" & LastRow + 1) = "Total"

    Extra 2

    One more just to push my luck, how about copying a formula all the way down a column the the last cell? =G2*57.5 copied until the last row in I

    LastRowG = Cells(Rows.Count, "G").End(xlUp).Row

For i = 2 To LastRowG
    Range("I" & i).Value = "=G" & i & "*57.5"
Next i
    • 0