Buscar 1 valor para reemplazar otros 2 de manera masiva con UserForm

[MauriciodeAbreu]

Buenas amigos.

Recurro a ustedes con la siguiente problema.

Tengo iformacion en dos tablas que necesito cambiar masivamente, la idea es utilizar el formulario para buscar el valor que se repite y modificar los valores de las celdas adyacentes con informacion que se selecciona en dicho formulario.

Ejemplo: Necesito buscar un balor en la columna D (Llamada Baul), y cambiar el o los valores de las celdas adyacentes a este valor en las columas B y C, y que estos se vean reflejados en el ListBox antes y despues del cambio.

Adjunto archivo ejemplo

Es posible hacerlo ¿?

Agradecido de antemano por vuestra ayuda.

Ejenplo-1.xlsm

[JSDJSD]

Hola MauriciodeAbreu, te dejo una opción

Ejenplo-1 Prueba 1.xlsm

[MauriciodeAbreu]

Hola JSDJSD, gracias por responder, esta fabuloso tu archivo, pero creo que no me supe explicar totalmente.

Lo que necesito es:

1- El formulario toma los valores de la hoja "Valores de formulario"

2- Buscar el o los numero de baúl(es) (lógicamente habrá repetidos en la mayoría de los casos, por lo que los cambios deben aplicar a todos los baules con el mismo numero)

3- Realizar los cambios sea a una o a dos celdas adyacentes (ya que no en todos los casos se realizara el cambio en las dos celdas) por lo que la macro solo cambiara los valores que se hayan seleccionado en la lista desplegable del formulario (Area "Valores a Reemplazar" lado derecho superior)

4- La información a cambiar esta en las dos tablas, Salidas y entradas (es decir, el cambio debe realizarse en las dos al mismo tiempo)

5- De ser posible actualizar en el listbox

Crees que sea posible?¿

Agradecido de antemano por tu ayuda

 

 

 

[JSDJSD]

En que hoja hay que realizar la búsqueda?  y los cambios?

[MauriciodeAbreu]

Tanto la búsqueda como los cambios se realizan en las hojas Salidas y Entradas

[JSDJSD]

Prueba a ver si entendí lo que pretendes.

Ejenplo-1 Prueba 2.xlsm

[MauriciodeAbreu]

Hola JSDJSD, si, has dado en el clavo.

Lo único que veo son dos detalles que no debería hacer.

1- Busque valores que no hay en ninguna de las dos tablas, por ejemplo el baul A4000, y al realizar la búsqueda del baúl A4000 muestra el numero de baúl en el listbox de "Vista previa" (que esta en el lado inferior izquierdo del formulario, y al dar doble clic  inicia el proceso de reemplazo, lo cual no debería pasar

2- Al realizar un reemplazo, no "Actualiza el listbox" del lado inferior izquierdo, con lo cual si cometo el error de no actualizar uno de los valores, me tomara los que se encuentran en este listbox, a pesar de ya haberlos cambiado, es posible actualizar el listobox para evitar error en el proceso ?¿

Agradecido por tu ayuda

[JSDJSD]

Inténtalo tú, y si no lo consigues mañana te doy una solución, y no olvides agradecer a quien te ayuda o intenta ayudar y en este foro es mediante el corazoncillo que hay en la parte inferior derecha, un saludo

[JSDJSD]

Por cierto pon un ejemplo de cómo quieres que quede actualizado el listbox de la parte inferior izquierda

[MauriciodeAbreu]

Hola JSD, estoy muy agradecido con tu ayuda, al igual que con todos y cada uno de los compañeros que me han ayudado y enseñado, pero mis conocimientos son muy escasos.

Ahora fuera del trabajo (sin internet en casa) estoy revisando el código, y prácticamente no entiendo dónde debo meter la mano, pero haré lo posible por entender y tal vez realizar algún ajuste.

Lo primero que veo es que usas la hoja1 para traer la información al listbox1 (por eso la informacion no concuerda con la de las tablas salida y entrada) y a la hoja3 , y de verdad no entiendo el porqué, me imaginé, supongo que por mis escasos conocimientos, que con el número de baúl traías la información de las hojas salida y entradas a los listbox2 y listbox3.

Yo cree la hoja1 para cargar los datos en  el cuadro combinado ya que no conozco otra forma de hacerlo (lista desplegable), para solo seleccionar de la lista el valor a reemplazar, y así no cometer errores de escritura al ingresar el valor que se desea reemplazar..

Pregunto, hay alguna forma de hacerlo sin usar esas 3 hojas ocultas y la hoja1 ?

Lo pregunto para no cargar de tanta hoja el proyecto a dónde debo migrar este buscador

Agradecido como siempre por la ayuda que me puedan brindar

[MauriciodeAbreu]

No se si sea de ayuda.

Algo que no mencioné, y se que fue un error, es que los valores de la ubicación y lado, siempre son iguales en ambas tablas (salida y entrada), yo cometí el error de reemplazar los valores reales de la tabla para el archivo ejemplo.

Pido disculpas por ello.

Y trataré de colocar una imagen de lo que me imaginé de como sería.

Más seguiré viendo el código tratando de entenderlo

 

 

 

[JSDJSD]

Lo prometido es deuda, te dejo el archivo prueba y comenta. La hoja Valores del formulario la he dejado puesto que de algún sitio tenemos que tomar la totalidad de baúles que entran en juego, ya que ni en la hoja Entradas ni en la de Salidas tenemos una lista completa de ellos. 

Eliminadas las dos hojas que utilizaba para filtra los datos, y en caso de buscar un baúl que no tenga ni entradas ni salidas te los indica en la parte superior derecha.

También en el apartado valores a reemplazar solamente te reemplazara cuando estos tengan algún dato independientemente uno del otro, es decir que si solo quieres cambiar Lado pues rellenas solamente dicho dato y pulsas reemplazar e igualmente con ubicación dentro del rack, y si quieres cambiar los dos al mismo tiempo pues rellenas los dos y pulsas reemplazar y listo.

En vista previa te muestra la totalidad de baúles afectados tanto de entrada como de salida, y en los otros listbox te los muestra por separado. 

Ejenplo-1 Prueba 3.xlsm

[MauriciodeAbreu]

Muchisimas gracias JSD JSD, decir que esta fabulosa es poco.

Espero no cometer un abuso, porque me has ayudado un monton, pero me pregunto si en ves de un Textbox se puede usar un ComboBox (para seleccionar de la lista el valor a cambiar y no cometer errores al escribir el valor a cambiar).

Ya que en el ingreso pueden no mantener el mismo patron de texto o poner espacios de mas adelante, datos erroneos, etc.

Agradecido infinitamente por la ayuda que me has prestado.

[JSDJSD]

Si, pero que datos debería contemplar cada combo?

 

[MauriciodeAbreu]

Fabuloso!!, anexo archivo con los datos, que no es mucha informacion.

Agradecido por tu inmensa ayuda JSD

Datos del ComboBox.xlsx

[JSDJSD]

Prueba y comenta

Ejenplo-1 Prueba 4.xlsm

[MauriciodeAbreu]

Excelente!! ? , es perfecto JSDJSD ? eres un genio!!

Estoy eternamete agradecido por toda la ayuda que me has brindado.

Pondre manos a la obra para estudiar a fondo el codigo, y aumentar mis conocimientos...

Se puede poner como solucionado el tema.

Agradecido nuevamente!!. Hasta una proxima consulta...

Un abrazo desde Venezuela.

 

 

[MauriciodeAbreu]

JSDJSD, tengo una duda, el Modulo que colocaste es del Ribbon ?

Me imagino que al migrarlo al proyecto no va a funcionar o si ¿?

[MauriciodeAbreu]

Pregunta anterior respondida, aprendi algo nuevo jejeje, ya copie el codigo con Custom UI Editor For Microsoft Office y lo coloque en mi proyecto.

Gracias!!

[MauriciodeAbreu]

JSDJSD, Espero no sea un inconveniente realizar una pregunta despues de tantos dias, pero he tratado y tratado, y tengo problema al hacer que se desbloqueen las Hoja Salidas y Entradas, para realizar los cambios, y posterior a los cambios bloquearlas nuevamente.

Pense que habia conseguido hacerlo, pero con el paso de las busquedas y reemplazos me genera error.

Por lo que debo poner como comentario las instrucciones de desbloqueo y bloqueo; y trabajar con las hojas desbloqueadas.

Alguna idea de como solucionar este problema ¿?

Agradecido de antemano por tu ayuda.

[JSDJSD]

Sube tu archivo

 

[MauriciodeAbreu]

Disculpa la demora. Subo ejemplo, clave de desbloqueo 123456

Agradezco de antemano tu ayuda.

Ejenplo-2 Prueba 1.xlsm

[Antoni]

Elimina todas las sentencias Unprotect/Protect del formulario.

En el procedimiento Userform_Initialize:

   Sheets("Salidas").Unprotect Password:="123456"
   Sheets("Entradas").Unprotect Password:="123456"

En el procedimiento Userform_Terminate:

   Sheets("Salidas").Protect Password:="123456"
   Sheets("Entradas").Protect Password:="123456"

 

[MauriciodeAbreu]

Buenos dias!!.

Antes que nada quiero agradecer a JSD y a Antoni por la ayuda que me han brindado.

Antoni, muchas gracias por indicarme las correcciones, realizo los cambios, hago pruebas y comento!!.

Un abrazo...

[MauriciodeAbreu]

Buenas tardes.

He estado haciendo pruebas y no he tenido ningun inconveniente. Por lo que podemos concluir la consulta.

Tema Solucionado.

Gracias JSDJSD y Antoni