Buscar y Modificar Registros

[jhosmar84]

Hola Amigos, tengo un archivo que estoy adaptado de un que baje de esta pagina (muy bueno por cierto), el detalle esta que cuando quiero buscar mi registro no me llama los datos de las celdas para modificar, no encuentro la parte que quizá he movido ya que en el origina si se muestra seleccionado el registro, ademas de llamarme los registros me permita ingresar en el mismo registro los datos de repuestos Utilizado, el cual inicialmente no se registran.

Gracias por su valiosa ayuda, me servirá de mucho.

INGRESO REPUESTOS A LABORATORIO 2013.zip

[RORO1981]

Estimado:

El problema era solo el formato del numero por el que buscabas ya que en la hoja excel aparecia en formato "00002" y en el combobox lo tenias como numero (2) le cambie el formato a la hoja excel y ahi si lo busca (formato texto).

revisa el adjunto

INGRESO REPUESTOS A LABORATORIO 2013(mod).zip

[jhosmar84]

Gracias Amigo Roro por tu respuesta rápida, cosas pequeñas que aveces uno no sabe, se muy poco de programación he intento aprender cada día, una cosa más, como hago para que en el primer Form al momento de registra, el nº de registro sea automático, y no tenga que estar ingresandolo, gracias por tu ayuda.

[jhosmar84]

amigos, buscando en este foro encontré un código para automatizar mi Registro, el problema es que cuando registro no aumenta el numero del registro sino hasta que intento escribir algo y se cambia recién ahí. alguien me puede ayudar, gracias.

adjunto el archivo.

INGRESO REPUESTOS A LABORATORIO 2013(mod)_I.zip

[Invitado Gengis Khan]

Hola:

Aquí le dejo lo que creo que ha solicitado.

Saludos

INGRESO REPUESTOS A LABORATORIO 2013(mod)_II.xls

[jhosmar84]

Gracias amigo, es justo lo que requería, forma rápida de simplificar un código.

Doy por cerrado el tema

- - - - - Mensaje combinado - - - - -

Antes del cerrar el tema, una consulta mas, cuando no tengo ningún registro me llenado para ingresar desde 0001, me sale un error en la linea de código:

LR = CLng(Sheets("REGISTRO").Range("A" & Rows.Count).End(xlUp))

como puedo hacer para que me permita ingresar desde 0001, gracias por el apoyo