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.
