Segun el valor ingresado, traer informacion de una tabla a otra, o ingresar nueva informacion

[MauriciodeAbreu]

Buenas noches amigos de Ayuda Excel.

Estoy atorado en una parte del proyecto, y quiero consultarles de que manera se podria realizar lo siguiente.

Estoy haciendo un archivo de registro de entradas y salidas de equipos seriabilizables, pero necesito que al capturar el serial del equipo con una lectora de codigo, la macro me verifique si este esta en la tabla de la hoja "Salidas", si el serial esta en dicha tabla, necesito que la macro me traiga la informacion de ese rango de fila, y lo agregue en otra tabla ubicada en la hoja "Entrada", y que adicionalmente agregue en esa misma fila, al lado de la fecha de egreso, la fecha de hoy (ingreso) con su hora (de la misma manera en que ya lo hace). Al terminar de exportar la informacion, debera arrojarme un mensaje indicandome la ubicacion y numero de baul. Despues de este procedimiento, debe ir nuevamente a la celda "Serial de equipo", para capturar si fuera el caso el proximo serial.

Pero si el serial del equipo no esta en la tabla "Salidas", la macro debera pedirme que ingrese el serial de inventario de dicho equipo en la hoja "Reg. Entrada", y despues agregar esta informacion (los dos seriales) en la tabla de la hoja "Entradas".

Seria algo asi como en la imagen.

Anexo mi archivo para mayor informacion.

Entradas y salidas de equipos - Version muestra.xlsm

Les agradezco de antemano por la ayuda que me puedan prestar

Entradas y salidas de equipos - Version muestra.xlsm

[MauriciodeAbreu]

Disculpen, se me olvido poner los usuarios y claves

La clave para desproteger hojas y la que se usa en los botones es 123456

Admin y Registro permite ver toda las hojas, y consultas colo las hojas Salidas y Entradas

Usuario     clave

admin	admin
Registro	6977267
Consultas	10537446

 

[bigpetroman]

amigo @MauriciodeAbreu, yo intente ayudar, pero de verdad que no logré entender de todo, por favor sube un detalla un ejemplo concreto que tengas en tu archivo.

1. coloco el serial X en la celda E5 de la hoja Reg. Entradas

2. se debe mostrar el valor Y en la celda Z (no se, no logro entender, pues en la hoja de salida por lo que veo el serial se puede repetir)

y así vas explicando hasta el paso final, para poder entender

suerte

[MauriciodeAbreu]

Estimado bigpetroman, antes que nada muchas gracias por responder.

Explico un poco de que va el sunto de los seriales tanto en la Salida como en la Entrada, la condicion de estos equipos es algo peculiar, ya que pueden salir varias veces y entrar la misma cantidad de veces, salvo algunas excepciones que no importan para la aplicacion de este archivo. Por tal motivo, no he restringido el ingreso de los seriales a una sola vez.

Para decirlo mas claro, salen en calidad de prestamo y deben regresar en un perodo X, el cual esta definido por variables de tiempo no fijas en la mayoria de los casos.

Por otro lado, los equipos tienen dos seriales, uno del fabricante, y otro de Inventario, y, este ultimo, necesito capturarlo tanto en la salida como en la entrada.

He de acotar, que en la salida no hay problemas con la captura o funcionamiento de la aplicacion, en cambio, en la entrada de estos equipos es donde viene mi dilema.

Siendo asi, lo que necesito lograr, con vuestra ayuda claro esta:

1- Hacer que la aplicacion al ingresar el serial en la hoja " Reg. Entrada" me busque en la tabla de salida (que esta en la hoja "Salidas"), el serial que ingresé, si lo encuentra, me traiga la informacion que contiene esa linea. Y, dicha informacion, la coloque o pegue, en la tabla Entradas, que obviamente esta en la hoja "Entradas".

2- Si, no llegara a encontrar dicho serial (porque salio antes de que estubiera operativa esta aplicacion), me pida ingresar el serial de inventario, el cual esta bajo la denominacion de Bienes Nacionales. Y, al ingresar este segundo serial, me coloque la informacion (los dos seriales) en la tabla Entradas, ubicada en la hoja "Entradas".

Dicho esto, lo que necesito es basicamente lo que describo arriba, ya que el mensaje que me arrojaria la aplicacion es informativo (solamente para cuando haya encontrado el serial),  para saber su ubicacion y numero de Baul, y asi poder colocar el equipo en su lugar.

Con respecto a la pregunta de que si quiero agregar o no una nota, creo, deberia ser pan comido despues de lograr los puntos 1 y 2.

No se si he logrado explicarme, o he enrredado mas las cosas. Por favor indicame y tratare de ser mas explicito. O si lo prefieres hacer un paso a paso.

De verdad muchas gracias de antemano por vuestra atencion, esfuerzo y paciencia.

Atento a vuestros comentarios...

Saludos.

[MauriciodeAbreu]

Bienos tardes amigos, nadie tiene ida de como hacer esto ¿? o prefieren que haga un paso a paso mas detallado ¿?

[colummarcelo@gmail.com]

deberias usar vlookup 

[MauriciodeAbreu]

Garcias por responder, buscare informacion sobre lo que comentas para ver como se realiza

[Mauricio_ODN]

Hola @MauriciodeAbreu

Como diría mi confidente "Jack el Destripador" vamos por partes.

Envió una muestra del archivo, solo hace la búsqueda de los datos de la hoja "Reg. Salidas", de ahí le vamos añadiendo paso por paso.

Espero sea de utilidad.  

[MauriciodeAbreu]

Buenos dias Mauricio_ODN muchas gracias por responder.

Pero no veo el archivo

Saludos

[bigpetroman]

Saludos @MauriciodeAbreu, se me había pasado, te dejo el archivo, aunque no respondiste realmente lo que te pregunte.

en la hoja Reg. Entradas, agregue una línea adicional, que te muestra la información de la hoja salida para el serial ingresado, si no existe, te muestra un mensaje

al presionar el botón Anotar Entrada, si hay datos en la fila 8 (existe el serial buscado), pasa esa información a la hoja entrada, sino, pasa la información de la fila 5.

como adicional, si hay datos en la fila 8, y hay un comentario en la fila 5 (Notas), se agrega ese comentario al comentario existente.

 

suerte

Entradas y salidas de equipos - Version muestra.xlsm

[Mauricio_ODN]

Hace 4 horas, MauriciodeAbreu dijo:

Buenos dias Mauricio_ODN muchas gracias por responder.

Pero no veo el archivo

Saludos

Disculpame, las prisas por el trabajo.

Entradas y salidas de equipos - Version 1.1.xlsm

[MauriciodeAbreu]

Buenas noches y gracias por responder...

bigpetroman y Mauricio_ODN disculpen la demora, llegue hace poco del trabajo, descargo los archivos y comento.

 

[MauriciodeAbreu]

bigpetroman

Sois un genio, has dado justo en el clavo, y has ido mas alla al hacer lo de las notas, que siendo honesto, no lo habia considerado, pero dejame decirte que esta genial.

De verdad me quito el sombrero...

Solo decir que modifique esta linea, ya que me colocaba un cero en las notas de Entrada, cuando en las notas de Salida no habia ninguna nota.

            Worksheets("Entradas").Range("I5").Value = wHoja.Range("H8").Value

Por esta otra

             Worksheets("Entradas").Range("I5").Value = ""

Y el otro detallito, es en la formula:

=SI($B8="NO Existe en Salidas";"";INDICE(Tabla1;COINCIDIR($C$5;Tabla1[Serial Equipo];0);7))

Segun entiendo, no deberia colocar nada cuando el valor de la celda B8 sea "NO Existe en Salidas", mas sin embargo coloca el valor Cero (0) en dicha celda.

Se puede corregir ¿?

 

Agradecido de antemano

[MauriciodeAbreu]

Mauricio_ODN

Mi estimado, antes que nada darte las gracias por la ayuda.

He bajado tu archivo dos veces, y debo estar haciendo algo mal, ya que no veo tus modificaciones, o no he sabido donde buscar. ?

[bigpetroman]

Saludos @MauriciodeAbreu, listo, revisa ahora

 

Entradas y salidas de equipos - Version muestra.xlsm

[MauriciodeAbreu]

Bigpetroman, me sigue mostrando cero, no se si hago algo mal.

Te muestro unas capturas de pantalla...

Por ejemplo, como puede ver en la hoja Salida el serial del equipo "1S20AWA23J00PC08MAG2" no tiene nota.

Pero en la hoja Reg. Entrada, al traer la informacion asociada al serial, trae como nota un cero, y debria ser vacio ya que no existe nota

Y en la hoja Entrada, tambien coloca el cero como nota

Existe alguna posibilidad de que coloque " " en vez del cero ¿?

[bigpetroman]

amigo, coloca esta formula en esa celda

=SI($B8="NO Existe en Salidas";"";SI(INDICE(Tabla1;COINCIDIR($D$5;Tabla1[Serial Equipo];0);7)="";"";INDICE(Tabla1;COINCIDIR($D$5;Tabla1[Serial Equipo];0);7)))

 

no había entendido lo que querías decir

[MauriciodeAbreu]

Excelente Bigpetroman, funciono perfecto la modficacion....

Muchas, muchas gracias por tu ayuda ?

Tema resulto!!