Impedir la introducción de valores repetidos

Tengo un formulario donde recojo los datos de la Hoja2 y los ingreso en la Hoja1.
Mi pregunta es si podria impedir la introduccion de valores repetidos cuando los ingreso por medio del formulario.
Ya se que se puede impedir por medio de la validación de datos, pero solamente lo he conseguido
cuando los datos son introducidos directamente a la hoja. (...)

... En cuanto a la formula que se puede colocar en validacion de datos, que no se aplicarla en el formulario:
=CONTAR.SI(B:B;B2)<2

Private Sub TextBox1_AfterUpdate()
Dim w As Worksheet
Dim c As Range
Set w = Sheets("Hoja2")
For Each c In w.Range("A2:A50")
If c.Value = TextBox1.Text Then
TextBox2.Text = w.Cells(c.Row, 2)
End If
Next c
End Sub

Private Sub CommandButton1_Click()
Dim CeldaInicial As Variant
Dim col As Integer
Dim fila As Integer
CeldaInicial = "B1"
Set CeldaInicial = Range(CeldaInicial)
col = CeldaInicial.Column
If CeldaInicial.Offset(1, 0).Value = "" Then
fila = 2
Else
fila = CeldaInicial.End(xlDown).Row + 1
End If
Cells(fila, col).Value = TextBox1.Value
Cells(fila, col + 1).Value = TextBox2.Value
Set CeldaInicial = Nothing
TextBox1 = Empty
TextBox2 = Empty
TextBox1.SetFocus
End Sub

Perdonad en primer lugar si aparece mas de un mensaje con estos datos.
No se por que razon no han publicado mis anteriores mensajes (seguramente error mio), y me veo obligado a hacerlo de nuevo...

hola, Rafael !

Perdonad en primer lugar si aparece mas de un mensaje con estos datos.
No se por que razon no han publicado mis anteriores mensajes (seguramente
error mio), y me veo obligado a hacerlo de nuevo...

(segun se aprecia) en tus mensajes anteriores la fecha de tu sistema
"estaba" adelantada en 3 dias -?-

saludos,
hector.