A1 Notation error

[davide128]

why do I get the error Application-defined or Object Defined error below

ActiveSheet.Cells("H" & LTrim(Str(ActiveSheet.ListObjects("tblConfigData").ListRows.Count + 1))).Value = strPaneOptions

 

[RoryA]

Can't see it offhand, but that can just be written as:

ActiveSheet.Cells("H" & ActiveSheet.ListObjects("tblConfigData").ListRows.Count + 1).Value = strPaneOptions

 

[davide128]

same error..FYI-

I'm setting the cell of a defined table

 

[RoryA]

Sorry - must pay more attention!

ActiveSheet.Range("H" & ActiveSheet.ListObjects("tblConfigData").ListRows.Count + 1).Value = strPaneOptions

 

[davide128]

cool..that worked..one problem..when I define my table can I tell it to treat entries as test..in my above example strPaneOption contain 5/6 and when I set the value Excel changes it to 6-May..converts it to a date which I don't want

 

[RoryA]

Format the column as Text, or prefix the stored value with an apostophe.

 

[davide128]

ok..was just wondering if I could set the format of the whole defined table via VBA

 

[RoryA]

ActiveSheet.ListObjects("tblConfigData").Range.Numberformat = "@"

should do it.

 

[davide128]

Thanks