I have this code to get the data in my userform.
The problem is, how can I get this data to overwrite the row in sheets Data - Row Textbox7 ?
If TextBox7.Value <> "" Then Textbox0 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 4, 0)
If TextBox7.Value <> "" Then Combobox4 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 3, 0)
If TextBox7.Value <> "" Then ComboBox5 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 2, 0)
If TextBox7.Value <> "" Then ComboBox5 = Application.VLookup(TextBox20.Value, Sheets("Data").Range("A3:R1000"), 4, 0)
If TextBox7.Value <> "" Then Textbox1 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 15, 0)
If TextBox7.Value <> "" Then TextBox8 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 16, 0)
If TextBox7.Value <> "" Then TextBox9 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 17, 0)
If TextBox7.Value <> "" Then TextBox10 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 18, 0)
If TextBox7.Value <> "" Then TextBox20 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 5, 0)
Many thanks in advance
The problem is, how can I get this data to overwrite the row in sheets Data - Row Textbox7 ?
If TextBox7.Value <> "" Then Textbox0 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 4, 0)
If TextBox7.Value <> "" Then Combobox4 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 3, 0)
If TextBox7.Value <> "" Then ComboBox5 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 2, 0)
If TextBox7.Value <> "" Then ComboBox5 = Application.VLookup(TextBox20.Value, Sheets("Data").Range("A3:R1000"), 4, 0)
If TextBox7.Value <> "" Then Textbox1 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 15, 0)
If TextBox7.Value <> "" Then TextBox8 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 16, 0)
If TextBox7.Value <> "" Then TextBox9 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 17, 0)
If TextBox7.Value <> "" Then TextBox10 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 18, 0)
If TextBox7.Value <> "" Then TextBox20 = Application.VLookup(TextBox7.Value, Sheets("Data").Range("A3:R1000"), 5, 0)
Many thanks in advance