How can you get this code to work?

[mozzyUK]

I know its shoddy code, but it isnt working and i need help. I am basically trying to create a list of formulae.


Dim col As String

col = InputBox("Enter the column letter to be used in formula")
z = InputBox("Please enter the number of formulae required")

x = 1
For b = 1 To z

Range("A" & x).Value = "=IF(SUM('Actual DB Results Neg'!" & col & x & ")=0,'PASS','FAIL')"

x = x + 2

Next b


Cheers, in advance for any help!

 

[Andrew Poulsom]

This worked for me:

Sub Test()
    Dim col As String
    Dim z As Variant
    Dim x As Long
    Dim b As Long
    col = InputBox("Enter the column letter to be used in formula")
    z = InputBox("Please enter the number of formulae required")
    x = 1
    For b = 1 To z
        Range("A" & x).Formula = "=IF(SUM('Actual DB Results Neg'!" & col & x & ")=0,""PASS"",""FAIL"")"
        x = x + 2
    Next b
End Sub

I'm not sure why you are using SUM when it's only one cell.

 

[mozzyUK]

Hey thanks alot for that!!! The Sum thing was there from when i was working on something else .

Cheers