Hola, respecto a lo que publiqué en ese foro que comentas decir que con 12000 celdas es para que se entienda, que no tengo 3 o 4 cables como para estar copiando y pegando formulas ya que como se puede entender da lugar a colarte y pegar una en la celda que no es sobre todo cuando llevas ya un buen rato con ello.
Por
MANTONIOPM , · publicado el 10 de septiembre 10 sep
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.