Get formula value from each listrow from table

[jaryszek]

Hi,

i am using code to get formula from each row from listobject.
So in first row i should have "=IF(1=1,0,1)" retrevied.

Sub test()

Dim irow As ListRow

With ActiveSheet
For Each irow In .ListObjects(1).ListRows
    
       ''get formula from first column
       Debug.Print irow.Range(1).Formula(1) '' I tried also Debug.Print irow.Range(1).Formula(1,1) but not working

Next irow
End With

End Sub

TableExample.xlsm - Example Workbook
Screenshot_25.png

How to get formula from this?

Best,
Jacek

[bakerman2]

This works for me.

Debug.Print irow.Range(1).Formula

[jaryszek]

o wow thank you.

I was making things harder as usual...

Jacek

[bakerman2]

Glad to help and thanks for rep+.