Como obtengo mediante un formulario,el ultimo registro ingresado en una hoja, que contiene varios ingresos del mismo registro
Quisiera que me ayuden en lo siguiente:
Tengo una hoja donde registro los documentos que me piden, estos tiene un número. Durante la semana me piden y me devuelven el mismo documento varias veces. Lo que yo necesito es que al buscar en un formulario de busqueda me muestre el último registro ingresado del documento que estoy buscando.
Tengo dos hojas en la Hoja 1 ingreso datos del documento mediante un formulario y en la hoja 2 registro quien me pidió un determinado documento, como repito, un mismo documento me lo piden y devuelven varias veces a la semana. Yo necesito una macro que al buscar el documento mediante un formulario, me muestre quién fue el que me lo pidió la ultima vez.
2 Respuestas
Envíame tu archivo para ver cómo registras la información en la hoja y para ver cómo quieres la consulta en el formulario.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Alberto Pereda” y el título de esta pregunta.
Hola Dante, ya te envié el archivo. Gracias de antemano.
Hola Dante, como podrás ver en el archivo, yo he tratado de hacerlo en la misma hoja pero ahí solo sobrescribo la información.
Te anexo el código
Private Sub ComboBox2_Change()
modificar.Enabled = False
CheckBox1 = False
Set H = Sheets("2017")
Set b = H.Columns("A").Find(ComboBox2.Value)
If Not b Is Nothing Then
b.Select
TextBox1.Value = ActiveCell.Value
ComboBox1 = ActiveCell.Offset(0, 1)
TextBox2 = ActiveCell.Offset(0, 2)
TextBox3 = ActiveCell.Offset(0, 3)
TextBox4 = ActiveCell.Offset(0, 4)
TextBox5 = ActiveCell.Offset(0, 5)
ComboBox3 = ActiveCell.Offset(0, 6)
ComboBox4 = ActiveCell.Offset(0, 7)
TextBox6 = ActiveCell.Offset(0, 8)
TextBox7 = ActiveCell.Offset(0, 9)
TextBox8 = ActiveCell.Offset(0, 10)
TextBox9 = ActiveCell.Offset(0, 11)
TextBox10 = ActiveCell.Offset(0, 12)
TextBox11 = ActiveCell.Offset(0, 13)
TextBox12 = ActiveCell.Offset(0, 14)
TextBox13 = ActiveCell.Offset(0, 15)
TextBox14 = ActiveCell.Offset(0, 16)
TextBox15 = ActiveCell.Offset(0, 17)
TextBox16 = ActiveCell.Offset(0, 18)
TextBox17 = ActiveCell.Offset(0, 19)
ComboBox5 = ActiveCell.Offset(0, 21)
TextBox18 = ActiveCell.Offset(0, 22)
ComboBox6 = ActiveCell.Offset(0, 23)
TextBox19 = ActiveCell.Offset(0, 24)
'
'buscar Os en CONTROL DE ARCHIVOS
Set h2 = Sheets("CONTROL DE ARCHIVOS")
Set b = h2.Columns("A").Find(ComboBox2.Value, lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not b Is Nothing Then
ComboBox5 = h2.Cells(b.Row, "C") 'solicitante
TextBox18 = h2.Cells(b.Row, "B") 'fec entrega
ComboBox6 = h2.Cells(b.Row, "D") 'motivo
TextBox19 = h2.Cells(b.Row, "E") 'fec devol
End If
'fin buscar Os
'
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
No tengo mucho conocimiento de Excel pero revisa la función Dmax