I cannot seem to find anything to do with List , by the looks of it ObjectList function which help?
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:
and I can't figure it out??
Code:
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:
Code:
srow = ws.Range("CQ3" & ws.Rows.Count).End(xlUp).Row