Jump to content

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


Go to solution Solved by bigpetroman,

Recommended Posts

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.

1782489390_Ingresodeequipos.thumb.jpg.78ccab4d7fae5dc47a39ef57a286120c.jpg


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

Link to post
Share on other sites

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

 

Link to post
Share on other sites

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

Link to post
Share on other sites
Posted (edited)

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.

Edited by MauriciodeAbreu
Correcion del texto
Link to post
Share on other sites
  • Solution

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

Link to post
Share on other sites

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

Link to post
Share on other sites

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.

1.thumb.png.653b0fc7eb7a6b40f152e7ff69104e49.png

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

2.thumb.png.cf77729c9e36219dbd22c4ddface61bd.png

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

3.thumb.png.627d7aa5206f8f0decad0a3123d65b73.png

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

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

Important Information

Privacy Policy