ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,832
- Office Version
- 2007
- Platform
- Windows
I have a userform which has values in Comboboxes & Textboxes.
For this post the concern is TextBox7 & TextBox9
These represent quotes if i go to customer & if customer comes to me.
So at the time of the quote both are shown on the userform.
So now is the time the customer has advised if he is coming to me or im going to him.
So using the code shown below the values from my form are sent to the worksheet.
BUT
I need something that will ask the question.
Depending on the answer depends if TextBox7 or TextBox9 gets transfered from userform to worksheet.
This code sends values from userform to worksheet.
TheTextBox value in question on the userform will be sent to worksheet at Row O
Im not sure then how to cancel out the other Textbox from being sent
Thanks
For this post the concern is TextBox7 & TextBox9
These represent quotes if i go to customer & if customer comes to me.
So at the time of the quote both are shown on the userform.
So now is the time the customer has advised if he is coming to me or im going to him.
So using the code shown below the values from my form are sent to the worksheet.
BUT
I need something that will ask the question.
Depending on the answer depends if TextBox7 or TextBox9 gets transfered from userform to worksheet.
This code sends values from userform to worksheet.
VBA Code:
Private Sub CommandButton1_Click()
With ThisWorkbook.Worksheets("DATABASE") ' THIS CODE BELOW WILL TRANSFER DATABASE VALUES TO WORKSHEET
ThisWorkbook.Worksheets("DATABASE").Range("B6") = Me.ComboBox1.Text ' REGISTRATION NUMBER
ThisWorkbook.Worksheets("DATABASE").Range("C6") = Me.ComboBox2.Text ' BLANK USED
ThisWorkbook.Worksheets("DATABASE").Range("D6") = Me.ComboBox3.Text ' VEHICLE
ThisWorkbook.Worksheets("DATABASE").Range("E6") = Me.ComboBox4.Text ' BUTTONS
ThisWorkbook.Worksheets("DATABASE").Range("F6") = Me.ComboBox5.Text ' ITEM SUPPLIED
ThisWorkbook.Worksheets("DATABASE").Range("G6") = Me.ComboBox6.Text ' TRANSPONDER CHIP
ThisWorkbook.Worksheets("DATABASE").Range("H6") = Me.ComboBox7.Text ' JOB ACTION
ThisWorkbook.Worksheets("DATABASE").Range("I6") = Me.ComboBox8.Text ' PROGRAMMER USED
ThisWorkbook.Worksheets("DATABASE").Range("J6") = Me.ComboBox9.Text ' KEY CODE
ThisWorkbook.Worksheets("DATABASE").Range("K6") = Me.ComboBox10.Text ' BITING
ThisWorkbook.Worksheets("DATABASE").Range("L6") = Me.ComboBox11.Text ' CHASIS NUMBER
ThisWorkbook.Worksheets("DATABASE").Range("N6") = Me.ComboBox12.Text ' VEHICLE YEAR
ThisWorkbook.Worksheets("DATABASE").Range("R6") = Me.TextBox1.Text ' ADDRESS 1st LINE
ThisWorkbook.Worksheets("DATABASE").Range("S6") = Me.TextBox2.Text ' ADDRESS 2nd LINE
ThisWorkbook.Worksheets("DATABASE").Range("T6") = Me.TextBox3.Text ' ADDRESS 3rd LINE
ThisWorkbook.Worksheets("DATABASE").Range("U6") = Me.TextBox4.Text ' ADDRESS 4TH LINE
ThisWorkbook.Worksheets("DATABASE").Range("V6") = Me.TextBox5.Text ' POST CODE
ThisWorkbook.Worksheets("DATABASE").Range("W6") = Me.TextBox6.Text ' CONTACT NUMBER
ThisWorkbook.Worksheets("DATABASE").Range("O6") = Me.TextBox7.Text ' QUOTED / PAID
ThisWorkbook.Worksheets("DATABASE").Range("AD6") = Me.TextBox8.Text ' MILEAGE THERE & BACK
ThisWorkbook.Worksheets("DATABASE").Range("L6") = Me.ComboBox11.Text ' CHASSIS NUMBER
ThisWorkbook.Worksheets("DATABASE").Range("AA6") = Me.ComboBox13.Text ' SUPPLIER
ThisWorkbook.Worksheets("DATABASE").Range("AC6") = Me.ComboBox14.Text ' PAYMENT TYPE
ThisWorkbook.Worksheets("DATABASE").Range("AB6") = Me.ComboBox15.Text ' PART NUMBER
End With
Unload DatabaseToSheet2
ActiveWorkbook.Sheets("QUOTES").Activate
Range("A2").Select
ActiveCell.EntireRow.Delete
Range("A1").Select
ActiveWorkbook.Save
End Sub
TheTextBox value in question on the userform will be sent to worksheet at Row O
Im not sure then how to cancel out the other Textbox from being sent
Thanks