Jump to content

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


Recommended Posts

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

Link to post
Share on other sites

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

 

 

 

Edited by MauriciodeAbreu
Link to post
Share on other sites

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

Link to post
Share on other sites

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

Link to post
Share on other sites

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

 

 

 

Edited by MauriciodeAbreu
Link to post
Share on other sites

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. 

GIF.gif

Ejenplo-1 Prueba 3.xlsm

Link to post
Share on other sites

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.

Link to post
Share on other sites
a


  • Crear macros Excel

  • Posts

    • Hola!   He modificado la macro de evento, para que funcione tanto para escribir la fecha, como para restringir en que columnas debe poner mayusculas Ten mucho cuidado con las macros de evento, te puedes volver loco 🤪   Saludos a todos Tabla Excel.xlsm
    • Hola, Hace algún tiempo, en todo excel, publicaron una macro para cambiar los textos a mayusculas, era esta. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range On Error Resume Next Set rng = Target.SpecialCells(xlCellTypeConstants, xlTextValues) On Error GoTo 0 If rng Is Nothing Then Exit Sub Dim c As Range With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual For Each c In rng c = UCase(c) Next c .Calculation = xlCalculationAutomatic .EnableEvents = True .ScreenUpdating = True End With End Sub Es como dice @Silvia, su macro es la que ocasiona el problema. Gabriel
    • Fabuloso!!, anexo archivo con los datos, que no es mucha informacion. Agradecido por tu inmensa ayuda JSD Datos del ComboBox.xlsx
    • hola Antonio Casi te puedo asegurar que el problema es ocasionado por tu macro,  algún entendido en macros la podría revisar.. La cosa es que pese a que cerré tu libro el proyecto seguía apareciendo en ver código y tenía los mismos problemas que mencionas .  Tuve que cerrar por completo el excel para arreglar esta situación...... Entonces se me ocurrió eliminar la macro y guardar el libro (sin la macro) y ahí pude resolver tu problema 🤣   saludos, Silvia    
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy