Hi all,
I have created a userform and it works fine.
Following code is assigned to commandbutton to transfer data to sheet “FT”
Works fine
Private Sub CommandButton1_Click()
Dim lastrow As Long
'Sheets("sheet1").Unprotect "abcd"
lastrow = Worksheets("FT").Range("A" & Rows.Count).End(xlUp).Row
With Worksheets("FT").Range("a1")
.Offset(lastrow, 0).Value = Me.TextBox5.Text
  .Offset(lastrow, 1).Value = Me.ComboBox3.Value
  .Offset(lastrow, 2).Value = Me.ComboBox1.Value
  .Offset(lastrow, 3).Value = Me.ComboBox2.Value
  .Offset(lastrow, 4).Value = Me.ComboBox4.Value
  .Offset(lastrow, 5).Value = Me.TextBox2.Text
  .Offset(lastrow, 6).Value = Me.TextBox6.Text
  .Offset(lastrow, 7).Value = Me.ComboBox5.Value
   .Offset(lastrow, 8).Value = Application.UserName()
  .Offset(lastrow, 9).Value = Me.ComboBox6.Value
  'clear the form
  ComboBox1.Value = ""
  ComboBox2.Value = ""
  ComboBox3.Value = ""
  ComboBox4.Value = ""
   ComboBox5.Value = ""
  ComboBox6.Value = ""
  TextBox2.Value = ""
  
 End With
End Sub
I want to add that :
If value in combobox2 is “ KT” then all entries are copied to sheet3
Otherwise copy everything in sheet”FT”
Other parameters remain same
Tried very hard and getting stuck
Help is requested please.
Kind regards