Button does not generate proper colors?

NoSparks · #10 12-22-2016, 09:48 PM

Quote:

I want the rows and columns created to be apart of the table.

Sorry, that's not what I interpreted to be wanted. Simplifies things.
To add a row to the table (and set its height)

Code:

Private Sub CommandButton1_Click()
' add row to table
    Dim oLo As ListObject
Set oLo = ActiveSheet.ListObjects(1)    'first table on sheet
With oLo
    .ListRows.Add AlwaysInsert:=True
    .Range.Rows(.Range.Rows.Count).RowHeight = 30
End With
End Sub

To add a column to the table (and set its width)

Code:

Private Sub CommandButton2_Click()
' add column to table
    Dim oLo As ListObject
Set oLo = ActiveSheet.ListObjects(1)    'first table on sheet
With oLo
    .ListColumns.Add
    .ListColumns(.ListColumns.Count).Range.ColumnWidth = 24
End With
End Sub

Hope that rectifies things.
Good luck with the project.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
proper	snoforlife	Excel Programming	0	01-26-2016 02:16 PM
Hyperlinks Not Linking to Proper Sections of Doc	MoiraB	Word	2	08-26-2015 07:13 PM
Proper Text Format	sufian,naeem	Excel	1	05-05-2014 05:59 AM
Unable to change font colors from theme colors	choy	Word	3	08-01-2012 09:12 PM
Proper Excel Table of Contents (ToC)	judicial85	Excel	1	10-23-2011 01:35 PM