I am having trouble displaying each array value into the table. I have tried multiple methods and it always fills the column or row with just the last value of the array. This is what I currently have.
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A" & 17 & ":K" & SECT + 17), , xlNo).Name = "Table"
ActiveSheet.ListObjects("Table").HeaderRowRange(1) = "SEGMENT"
ActiveSheet.ListObjects("Table").HeaderRowRange(2) = "HEIGHT COEFFICIENT"
ActiveSheet.ListObjects("Table").HeaderRowRange(3) = "WIND PRESSURE"
ActiveSheet.ListObjects("Table").HeaderRowRange(4) = "LENGTH OF SEG"
ActiveSheet.ListObjects("Table").HeaderRowRange(5) = "AVG.DIA OF POLE"
ActiveSheet.ListObjects("Table").HeaderRowRange(6) = "AREA OF SEGMENT"
ActiveSheet.ListObjects("Table").HeaderRowRange(7) = "DRAG COEFFICIENT"
ActiveSheet.ListObjects("Table").HeaderRowRange(8) = "G"
ActiveSheet.ListObjects("Table").HeaderRowRange(9) = "WIND FORCE"
ActiveSheet.ListObjects("Table").HeaderRowRange(10) = "DIST TO CENT"
ActiveSheet.ListObjects("Table").HeaderRowRange(11) = "BENDING MOMENT"
Dim c, Q As Integer
For c = 0 To BOUND
For Q = 1 To BOUND + 1
ActiveSheet.ListObjects("Table").DataBodyRange(1, Q) = CH(c)
ActiveSheet.ListObjects("Table").DataBodyRange(2, Q) = L(c)
ActiveSheet.ListObjects("Table").DataBodyRange(3, Q) = AVGDIA(c)
ActiveSheet.ListObjects("Table").DataBodyRange(4, Q) = A(c)
ActiveSheet.ListObjects("Table").DataBodyRange(5, Q) = CD(c)
ActiveSheet.ListObjects("Table").DataBodyRange(6, Q) = WP(c)
ActiveSheet.ListObjects("Table").DataBodyRange(7, Q) = LC(c)
ActiveSheet.ListObjects("Table").DataBodyRange(8, Q) = MOM(c)
Next Q
Next c
I feel like the solutions is very simple yet I can't see it.Any help is appreciated
Bookmarks