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

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.

 

 

Edited by MauriciodeAbreu
Corrección
Link to post
Share on other sites
  • 2 weeks later...

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.

Link to post
Share on other sites

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"

 

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
  • Crear macros Excel

  • Posts

    • Ni cuenta me di que estaba en Word pero el problema es en Excel.
    • Es que mi archivo esta configurado para estar oculto la cinta ribbon. El problema es que estando oculto al momento de darle una vista previa dela impresión se bloquea mi libro, entonces tengo que intentar imprimir de nuevo y se desbloquea el libro. Entonces el problema es eso que tengo que habilitar el ribbon para ver la vista previa y no se bloquea el libro, pero el ribbon queda habilitado (monstrar) y eso quiero que se desbabilite (oculte) al salir de la vista previa de la impresión.    
    • 1) por que la imagen de word ??? 2) cual es la necesidad de andar (des/re)ocultando el ribbon ? 3) cualquier código que ceda el control al usuario (como una vista previa de impresión) no modifica el estado de la aplicación (si la cinta está visible u oculta, así permanece) prueba con solo la instrucción del ExecuteMso
    • Buenas a todos los que pertenecemos a este gran foro. Desde hace unos 4 o 5 días me arroja el error 13, porque hasta la fecha la macro corría bien, por mas que he leído en el foro no doy con la solución. en rojo es la linea  que me arroja el error. Private Sub Matricula_AfterUpdate() If WorksheetFunction.CountIf(Hoja12.Range("C:C"), Me.matricula.Value) = 0 Then MsgBox "Matricula Incorrecta" Me.matricula.Value = "" Exit Sub End If With Me nombre = Application.WorksheetFunction.VLookup(CLng(Me.matricula), Sheets("AGENTES").Range("C3:D3000"), 2, 0) End With End Sub  
    • Hola, cómo están? estoy intentando encontrar un macro que me permita buscar una palabra en la columna A y reemplazar el valor en la columna B de la misma fila Cía codigo Chile 1 Argentina 2 Uruguay 3 Entonces se me abre el imput pongo argentina, se me abre un imput valor nuevo y pongo 10. Y me quedaría el siguiente resultado (mejor aún si me puedo parar arriba del valor y ya me traiga el imput automatico, es decir me paro sobre la celda A3 y cuando me sale el cartel del imput ya me autoaperece el valor Argetina, doy OK y paso al paso 2) Cía codigo Chile 1 Argentina 10 Uruguay 3 intente con la siguiente Macro pero me cambia varios valores en la misma fila, es como que me toma el texto dentro de la celda, y necesito que solo me busque la palabra exacta y si no está me diga valor no buscado o algo asi. -------------------------- Sub FindandReplaceText() 'Update by Extendoffice 2018/5/24     Dim xFind As String     Dim xRep As String     Dim xRg As Range     On Error Resume Next     Set xRg = Cells     xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)     xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)     If xFind = "False" Or xRep = "False" Then Exit Sub     xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False End Sub ---------------- desde ya muchas gracias! saludos.-
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy