Buenos días , acudo a ustedes, porque necesito de su ayuda , la verdad que no tengo conocimiento de formularios, y tengo la necesidad de crear algo para hacer dinámico , el llenado de datos o jalar datos de otras hojas, , me gustaría
Por
CECILIO , · publicado hace 12 horas 12 hr
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.