ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,596
- Office Version
- 2007
- Platform
- Windows
My worksheet rows height are all set at 25
I have a userform where i enter value then i send thos values to the worksheet.
A new row is inserted into row 2 & i then notice that the last row with values in my table resizes itself from 25 to 15
If i open the userform & do the same again i then see the next row up at the bottom of the table also resize itself to 15
The code i sue is shown below.
Can you advise why & how to fix the issue.
Many Thanks
I have a userform where i enter value then i send thos values to the worksheet.
A new row is inserted into row 2 & i then notice that the last row with values in my table resizes itself from 25 to 15
If i open the userform & do the same again i then see the next row up at the bottom of the table also resize itself to 15
The code i sue is shown below.
Can you advise why & how to fix the issue.
Many Thanks
VBA Code:
Private Sub SendToWorksheet_Click()
ActiveSheet.ListObjects("Table42").ListRows.Add 1, True
Rows(2).RowHeight = 25
ThisWorkbook.Worksheets("QUOTES").Range("D2") = Me.ComboBox1.Text ' VEHICLE
ThisWorkbook.Worksheets("QUOTES").Range("H2") = Me.ComboBox2.Text ' DESCRIPTION OF JOB
ThisWorkbook.Worksheets("QUOTES").Range("K2") = Me.ComboBox3.Text ' PAYMENT
ThisWorkbook.Worksheets("QUOTES").Range("A2") = Me.TextBox1.Text ' NAME
ThisWorkbook.Worksheets("QUOTES").Range("B2") = Me.TextBox2.Text ' TELEPHONE
ThisWorkbook.Worksheets("QUOTES").Range("C2") = Me.TextBox3.Text ' POST CODE
ThisWorkbook.Worksheets("QUOTES").Range("E2") = Me.TextBox4.Text ' VEHICLE REG
ThisWorkbook.Worksheets("QUOTES").Range("F2") = Me.TextBox5.Text ' QUOTED
ThisWorkbook.Worksheets("QUOTES").Range("G2") = Me.TextBox6.Text ' DATE OF QUOTE
ThisWorkbook.Worksheets("QUOTES").Range("I2") = Me.TextBox7.Text ' MILE THERE & BACK
ThisWorkbook.Worksheets("QUOTES").Range("J2") = Me.TextBox8.Text ' VIN
Unload QuotesForm
End Sub