Delete row on another sheet from a userform

[ipbr21054]

Hi,

I am on workssheet called DATABASE & currntly have a userform open.
Once the user has entered all the values in the fields he will use the command button to First delete the Active row on worksheet QUOTES then continue down through the code to apply userform values to worksheet called DATABASE.

I have clicked the command button expecting the active cell / row to be deleted & the rows below to move up then the userform values are sent to worksheet DATABASE.
I see a run timr error saying this process is not supported .

So i have typed something wrong BUT then not sure what code needs to follow after anyway ?

Private Sub CommandButton1_Click()
   Dim answer As Integer
       answer = MsgBox("DELETE CUSTOMER ON QUOTES SHEET ? ", vbYesNo + vbCritical)
   If answer = vbYes Then
      ThisWorkbook.Sheets("QUOTES").ActiveCell.EntireRow.Delete xlUp
      MsgBox "CUSTOMER HAS NOW BEEN DELETED", vbInformation
      End If
 
  With ThisWorkbook.Worksheets("DATABASE")
 
    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("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
End Sub

 

[ipbr21054]

It was getting hard for me to follow.
I will look at it now

 

[ipbr21054]

That new Textbox2 on the userform is where i put the code below.

Private Sub TextBox2_Change()
    Dim Found As Range
       If Me.TextBox2.Value = "" Then
        MsgBox "NO VALUE TO LOOK FOR"
    Else
        Set Found = Sheets("QUOTES").Range("A:A").Find(What:=Me.TextBox2.Value, _
                                                       LookIn:=xlValues, _
                                                       LookAt:=xlWhole, _
                                                       SearchOrder:=xlByRows, _
                                                       SearchDirection:=xlNext, _
                                                       MatchCase:=False)
        If Found Is Nothing Then
            MsgBox "NOTHING WAS FOUND"
        Else
            Found.ThisWorkbook.Sheets("QUOTES").ActiveCell.EntireRow.Delete xlUp
        End If
    End If
End Sub

 

[My Aswer Is This]

You said:
" deleting the row at row A12"

There is no Row A12

There is a row 12

 

[ipbr21054]

The A12 sorry is the cell where the customers name is.
Its then that entire row that needs deleting

 

[ipbr21054]

Well I’m stumped so will await a reply.
Cant work out how to select that cell on the worksheet from the Textbox cell address value.

 

[NoSparks]

Had you not ignored post 8
I suspect replacing .ActiveCell with .Range(Me.TextBox2) would have been suggested

 

[ipbr21054]

I didn’t ignore it as I replied in post 9

 

[NoSparks]

Could sure fool me

I stopped when you replies as i thought what you were advising was going to delete it

 

[ipbr21054]

So you mean like this ?

Dim answer As Integer
       answer = MsgBox("DELETE CUSTOMER ON QUOTES SHEET ? ", vbYesNo + vbCritical)
   If answer = vbYes Then
      ThisWorkbook.Sheets("QUOTES").Range(Me.TextBox2).EntireRow.Delete xlUp
      MsgBox "CUSTOMER HAS NOW BEEN DELETED", vbInformation
      End If

 

[My Aswer Is This]

Why do you need to select the cell?

I would think something like this would work

Sheets("Alpha").Range("A12").EntireRow.Delete