Formulario de búsqueda en visual basic no me funciona
publicado
Bueno lo que quiero que haga este mini formulario es sencillo, son 2 cosas que al entrar un registro busque si no se ha capturado antes y si ese "folio" ya se compro, estos folios estas en la hoja 2.
Perdon por no subir el archivo pero es muy cortito el codigo si infrigo la ley del foro mil disculpas.
Bueno lo que quiero que haga este mini formulario es sencillo, son 2 cosas que al entrar un registro busque si no se ha capturado antes y si ese "folio" ya se compro, estos folios estas en la hoja 2.
Perdon por no subir el archivo pero es muy cortito el codigo si infrigo la ley del foro mil disculpas.
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.