IF RANGE(F8:F)= >1 then RANGE(G8:G) = D8 .... How?

[TTUK]

Hi All,

I need a forumla or script(VBA), to check to see if the number in a cell D8 (going downwards) is greater than 1, and if it is then tell G8 (going downwards) to display D8 (going downwards).

BUT, Column G cannot display any formula else my VBA macro wont work.

Hope someone can help me out on this!

Thanks, Charlie

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
For i = 8 To LR
    If Range("D" & i).Value > 1 Then Range("G" & i).Value = Range("D" & i).Value
Next i
End Sub

 

[Firefly2012]

Hi Charlie

How about this:

Sub TTUK()
Dim rng As Range

Set rng = Range("D8:D" & Cells(Rows.Count, "D").End(xlUp).Row)

With rng.Offset(, 3)
    .FormulaR1C1 = _
        "=IF(RC[-3]>1,RC[-3],"""")"
    .Value = .Value
End With
End Sub

The formulas are inserted as an intermediate step and are then removed with just the values being left.