Formulario para stock con excel

[rdinovi]

Buenas:

Necesito su ayuda pues no encuentro la solución a esto.

En este pequeño formulario se necesita que haga lo siguiente:

1.- Primero que busque si el folio fue adquirido, esto que lo busque en la hoja 2.

2.- Si ya fue adquirido, que busque si aun no ha sido capturado. Esto en la hoja 1 de nombre Datos.

3.- Si ya fue capturado que lo haga saber sino que lo capture.

Ojala me quieran ayudar pues no se en que estoy mal.

El problema es que no he podido me sale infinidad de errores. Aquí el código.

Private Sub CommandButton1_Click()
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
End Sub

Private Sub CommandButton2_Click()
Dim foliod As String
Dim ultimafila As Double
Dim Rango As Range


ultimafila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count

If TextBox1.Text = TextBox2.Text Then


Sheets("Hoja2").Activate
ActiveSheet.Range("A2").Select

If Range("A2:A200").Find(What:=TextBox2.Value _
, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate Then

Sheets("Datos").Activate

If Range("A3:A200").Find(What:=TextBox2.Value _
, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate Then

MsgBox ("El Folio ya esta registrado")

Else

Cells(ultimafila + 1, 1) = TextBox2.Value

End If

Else

MsgBox ("El Folio aun no se ha adquirido")

End If



Else

MsgBox ("Los Folios NO Coinciden")

End If


End Sub


Muchas Gracias por adelantado.