VBA to check to see that a table is only two columns wide and only has one row (plus the header)

[gheyman]

I have a table that I want to make sure the user did not add any columns to and that they only entered one row of data before I run the rest of my code. I need a message box that states if there are added columns or more then one row of data. And then exit the code.

The table is on a sheet named sheet("Step 1")
The table name is "Table1"

Option Explicit
Sub PopoulateProducts()

Dim lr As Long

Sheets("Products").Select

'Clear existing data if any
lr = Sheets("Products").Cells(Rows.Count, "A").End(xlUp).Row
If lr > 2 Then Sheets("Parts").Range("A3:D" & lr).ClearContents

'Move data from Step 1 to Products tab
Products.Range("A3").Value = Sheets("Step 1").Range("C7")
Products.Range("B3").Value = Sheets("Step 1").Range("D7")
Products.Range("C3").Value = Sheets("Step 1").Range("C7").Value & "  " & Sheets("Step 1").Range("D7")

 'End If
 
Sheets("Step 2").Activate
 
End Sub

Thank You!!

 

[Fluff]

How about

   With Sheets("Step 1").Listobjects("Table1").DataBodyRange
      If .Columns.Count > 2 Or .Rows.Count > 1 Then
         MsgBox "Table is too large"
         Exit Sub
      End If
   End With

 

[gheyman]

Thanks Fluff. Is a way to delete rows if there is more than one and delete the extra columns if there is more than two?

 

[Fluff]

As that is a totally different question, it needs a new thread. Thanks

 

[gheyman]

Thanks and understand

 

[Fluff]

You're welcome.