salvador

Funciona perfectamente , es lo que quería hacer , muchas gracias de nuevo

Hola, Subo de nuevo el archivo, lo que quiero hacer es lo siguiente: La macro Paso 5, me lleva las celdas con numero que hay debajo de la palabra Cantidad Vendida a la columna 2, de todas las filas seleccionadas previamente en la macro Paso 4, pero si hay una celda en blanco debajo de Cantidad Vendida, entonces no traspasa el numero de abajo Por ejemplo en las celdas, I488 E I489, el numero 5 de la celda I489, no me lo ha trasladado, porque la celda I488 esta vacía. Quiero modificar la Macro Paso5, para que me traslade todos los numero que encuentre. MADRE MACRO PARA ARREGLAR PDF.xlsm

Hola JSDJSD, Tengo un problema que no puedo resolver, Tengo una hoja excel, pero quiero trasladar los dato de cantidad vendida a la columna 2, para que salgan todos en la misma columna, con su correspondiente EAN de la primera columna Adjunto hoja de excel MADRE MACRO PARA ARREGLAR PDF.xlsm

Perfecto es lo que quería , muchas gracias de nuevo

Buenas noches , Me gustaría hacerte una nueva consulta : tengo una tabla con totales . me gustaría poder filtrar por la columna IVA y que me apareciera el sumatorio en el texbox mi código solo funciona , si pongo en comentario el filtro Adjunto archivo IVA SOPORTADO PRUEBA.xlsm

Solucionado, muchas gracias de nuevo

Hola de nuevo Jose, que tal? Te subo el archivo de nuevo, porque quiero sumar dos texbox y no los suma, cuando le doy al boton calcular. Me ha traido los datos, del formulario Presupuesto1 y quiero sumarlos en el formulario tarifageneral, pero no me lo suma, me lo añade. Me puedes ayudar? Gracias TARIFA_VBA_2024_21.xlsm

Ya lo tengo solucionado, muchas gracias por tu ayuda, ha sido mi regalo de papa noel -)

Funciona y para el boton agregar tejidos donde tengo que poner el with y donde tengo que acabarlo? Perdona que te moleste, pero es que estoy empezando en vba

Buenas Noches, Feliz Navidad JSDJSD Solo me modifica si la hoja activa cuando abro el archivo es la hoja1 "altatejidos"(BD). Si luego modifico el altaclientes, sigue modificando la hoja "altatejidos" Adjunto archivo TARIFA_VBA_55 (1).xlsm

Hola de nuevo, Adjunto de nuevo la tarifa, porque he creado un Menu, para ir a los diferentes formularios. He dejado los formularios tejidos y clientes, desde el menu, puedo irme al formulario tejidos y clientes, pero no puedo modificarlos, ¿que tengo que hacer para poder modificarlos y poder trabajar con los formularios tejidos y clientes, accediendo desde el menu? TARIFA_VBA_55.xlsm

Cierto , como no le daba dobleclick no funcionaba . Muchas gracias de nuevo

Ya lo sé porque ocurre . MUCHAS GRACIAS por la respuesta .

El primer código no me funciona , no vuelca los datos al texbox. El segundo código si me funciona , pero me gustaría saberporque funciona eliminando lo que me indicas

El primer código no me funciona , no vuelca los datos al texbox. El segundo código si me funciona , pero me gustaría saber porque funciona eliminando lo que me indicas

No me refiero a eso . Si se que es la columna 5. lo que digo es que cuando busco el número de escándallo , el cliente , el artículo o el tejido tapa . La búsqueda no corresponde con la fila correspondiente y por lo tanto no puedo modificar la línea .

Hola, porque pesaba demasiado el Excel y las he quitado . En los botones de búsqueda de presupuesto1, cuando busco , no se ponen bien los datos en los cuadros de texto . ¿Puede ser que el listbox, no busca bien en tablas de más 10 columnas?

ahora si puedo TARIFA_VBA_50.xlsm

Pesa mas de 100kb y no puedo

Tengo una problema, he creado un formulario de una tabla de mas de 10 columnas, y he creado un listbox para buscar, el codigo que adjunto ( busca correctamente), pero cuando pincho encima de del listbox, no trae correctamente los datos a los cuadros de texto del formulario, ¿alguien me puede ayudar? NUMERODEDATOS = Hoja7.Range("B" & Rows.Count).End(xlUp).Row LISTA = Clear LISTA.RowSource = Clear y = 0 For FILA = 4 To NUMERODEDATOS nombre = Hoja7.Cells(FILA, 83).Value If UCase(nombre) Like "*" & UCase(Me.txt_buscar_cliente.Value) & "*" Then Me.LISTA.AddItem Me.LISTA.List(y, 0) = Hoja7.Cells(FILA, 2).Value Me.LISTA.List(y, 1) = Hoja7.Cells(FILA, 3).Value Me.LISTA.List(y, 2) = Hoja7.Cells(FILA, 4).Value Me.LISTA.List(y, 3) = Hoja7.Cells(FILA, 5).Value Me.LISTA.List(y, 4) = Hoja7.Cells(FILA, 6).Value Me.LISTA.List(y, 5) = Hoja7.Cells(FILA, 7).Value Me.LISTA.List(y, 6) = Hoja7.Cells(FILA, 8).Value Me.LISTA.List(y, 7) = Hoja7.Cells(FILA, 9).Value Me.LISTA.List(y, 😎 = Hoja7.Cells(FILA, 10).Value Me.LISTA.List(y, 9) = Hoja7.Cells(FILA, 11).Value y = y + 1 End If Next