Block Duplicate Data Saving

[SkyGod]

Hello,
I have userform with 18 textboxes and I save datas with commandbutton as horizonal from A to T.

If same Data has in B column then it wont allow save the data. It's like a pre-save check before saved. I want link it to commandbutton.

B is Textbox1 on the UserForm.

Thanks for your time!

 

[DanteAmor]

Adjust the name of your sheet in the code:

Private Sub CommandButton1_Click()
  Dim f As Range
  
  With TextBox1
    If .Value = "" Then
      MsgBox "Enter textbox1"
      .SetFocus
      Exit Sub
    End If
    
    Set f = Sheets("Sheet1").Range("B:B").Find(.Value, , xlValues, xlWhole, , , False)
    If Not f Is Nothing Then
      MsgBox "Value already exists"
      Exit Sub
    End If
  End With
  '
  'continue your code
End Sub

 

[SkyGod]

it works well but it made broken order of Listbox datas. How about this way, let the command button save the datas to the last row. After saved the datas if there is a duplicate data in B column then delete the row from A to T. I guess that way would be better for listbox. or clear cell values from A to T.

 

[DanteAmor]

it works well but it made broken order of Listbox datas.

I do not understand what you mean.

let the command button save the datas to the last row. After saved the datas if there is a duplicate data in B column then delete the row from A to T

If it already exists, then why add it and then delete it, just don't add it.

 

[SkyGod]

I meant after saved the datas I check some part of the datas in the listbox. it's for updating the datas or deleting. Well no problem I learnt the way with your help. I guess I can do the rest.
Thank you for helping!

 

[DanteAmor]