2003 ObjectList Function adding column with formulae

[jorgan202]

I cannot seem to find anything to do with List , by the looks of it ObjectList function which help?

Dim srow As Long
    Range("CB2").Select
    ActiveSheet.ListObjects("List1").Unlist
        srow = ws.Range("CQ3" & ws.Rows.Count).End(xlUp).Row
        Set rngS = Range("CR3:cr" & srow)
        rngS.Select
        Selection.Insert = "=IF(ck3=1,$ck$2,IF(cl3=1,$cl$2,IF(cm3=1,$cm$2,IF(cn3=1,$cn$2,IF(co3=1,$co$2,IF _(cp3=1,$cp$2,IF(cq3=1,$cq$2,"")))))))"
    Range("CB2").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$CB$2:$CR$" & srow), , xlYes).Name = "List1"

In the last column of the table I'm trying to add a formulae, whil;e it is in"List" mode can seem to do a thing, therefore removing the ObjectList and then trying to add the last column, but always a but, it doesn't like the following:

srow = ws.Range("CQ3" & ws.Rows.Count).End(xlUp).Row

and I can't figure it out??

 

[Domenic]

Try adopting the following code, which enters a formula for the last column...

    [COLOR=darkblue]With[/COLOR] Sheet1.ListObjects("List1")
        .ListColumns(.ListColumns.Count).DataBodyRange.Formula = "=[@ColumnHeaderName]*100"
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]

Hope this helps!