Evitar duplicidad en registro a través de Userform

En un userform tengo tres textbox, el Texbox1 carga la información en la columna A y los Textbox2 y Textbox3 se cargan a la columna B, el siguiente código me indica si existe duplicidad en la columna B pero lo que no logro es que también tome en cuenta la columna A.

Dim dato As String
Dim contarsi As Long
dato = Me.TextBox2 & "-" & Me.TextBox3.value
contarsi = Application.WorksheetFunction.CountIf(Sheets("Prueba").Columns(2), dato)
If contarsi >= 1 Then
MsgBox "Documento ya operado, no se permite duplicados"
TextBox1.SetFocus
TextBox2.value = ""

Añade tu respuesta

Haz clic para o