xinortiz

Muchas Gracias Antoni como siempre una buena ayuda.

Hola Antoni si, si tengo duplicados, por que son varios rgristros que se ingresan en una misma fecha

Buenos dias por favor espero me puedan ayudar, deseo encontrar la ultima fila de una columna pero segun su valor por ejemplo: aqui encuentro la ulitma fila de la columna A (Esta columna contiene fechas) uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row pero quiero el resultado de la Ultima Fila segun la fecha que se determine * No puedo subir archivo en este mmento por que aun no renuevo mi suscripcion. Espero me brinden su ayuda. Muchas Gracias

Logrado.. les dejo el codigo por si lo necesitan Sub CONSOLIDAR() Application.ScreenUpdating = False Dim ufa, ufb As Integer Dim LibroDestino As Workbook Dim HojaRegistro As Worksheet ufa = HREGISTRO.Range("A" & Rows.Count).End(xlUp).Row Set LibroDestino = Workbooks.Open(ActiveWorkbook.Path & "\BASES\BASECOTIZACIONES.xlsx") Set HojaRegistro = LibroDestino.Worksheets("TEMP") ThisWorkbook.Activate ufb = HojaRegistro.Range("A" & Rows.Count).End(xlUp).Row With HREGISTRO.Range("A2:AO" & ufa) '.CurrentRegion .AutoFilter 20, Criteria1:="=" & "CERRADO", Operator:=xlOr, Criteria2:="=" & " " .SpecialCells(12).COPY HojaRegistro.Range("A" & ufb + 1) .AutoFilter End With LibroDestino.Save LibroDestino.Close Application.ScreenUpdating = True

logrado... gracias

Hola buenas noches, espero su ayuda por favor. Estoy intentando copiar datos de un libro: prueba_guardarotrolibro(TEMP) para pasarlo a otro: baseprueba(TEMP), desde la columna A hasta la columna AO, que cumplan la condicion en la columna Estado = Cerrado al pasar al otro libro debe copiarse debajo del ultimo registro. ESPERO CONTAR CON USTEDES, DE ANTEMANO MUCHAS GRACIAS, ES MUY IMPORTANTE. baseprueba.xlsx prueba_guardarotrolibro.xlsm

Hola buenas tardes, espero su ayuda por favor. Lo que estoy haciendo es mostrar en el listbox los datos de la hoja: prueba_guardarotrolibro(TEMP), segun la condicion de la fecha y del combo Lo que deseo es que en el listbox se muestre solo los datos que he seleccionado (N°, Cotizacion, Producto, Costo, Cantidad, Ingreso) Pero para luego pasarlo a la hoja: baseprueba(TEMP), deberia pasar todas las columnas de la hoja en el orden que se encuentra la hoja destino (baseprueba(TEMP)) y que al momento de pasar los datos, en la columna "Estado" cambie de Abierto a Cerrado ESPERO CONTAR CON USTEDES, DE ANTEMANO MUCHAS GRACIAS baseprueba.xlsx prueba_guardarotrolibro.xlsm

Gracias Antoni, eso hare......

Buenas tardes, espero puede conseguir una ayuda urgente a un caso que me acaba de suceder. estuve haciendo un proyecto en la PC de mi casa que es excel 365 y para poder transformar valores de numeros utilice el "Format" por ejemplo: Format(.Cells(fila, 2), "00000") - "en lugar de mostrarme 1 , con este Format me mostraba 00001" Format(Val(Sheets("TEMP").Cells(fila, 18)), "#,##0.00") - "en lugar de mostrarme 10000", con este Format me mostraba 100.00 Pero ahora estoy ejecutando en una PC que usa Excel 2013 , me sale error en todos estos Format que habia considerado. Espero alguien me pueda ayudar, si puedo cambiar el Format con otro comando o debo cambiar toda la estructura. De antemano Muchas Gracias!!! MIX_22.xlsm

Muchisimas gracias Antoni.

Hola Antoni, muchisimas gracias Una consulta y ayuda adicional, entonces para modificar los datos de una fila de la misma tabla, puedo utilizar: "With Sheets("Datos").ListObjects("TablaDatos").ListRows(LISTA.ListIndex + 1) "para ubicar la fila? podrias ser tan amable de revisarlo Te lo agradezco mucho. Guardar datos.xlsm

Buenas noches, espeor me puedan ayudar en esta ocasion estoy trabajando con una tabal especifica en la hoja DATOS, la idea es que cuando INGRESE, ELIMINE registros no altere los registros de las demas celdas que no pertenecen a la tabla he logrado agregar pero para eliminar me sale error, me da error al momento de ubicar la fila en especifico a eliminar. muchas gracias por su apoyo Copia de Guardar datos en Tabla.xlsm

Lo Logre.... gracias igualmente.... 😊

Buenas Noches, espeor pueda obtener su ayuda con este caso. En el formulario: 1.-ingreso nombre de proyecto 2.-eligo zona 3.-elijo tipo de producto 4.-elijo producto 5.-click en agregar cuando le doy en agregar, los datos se registran en el excel y a la vez se muestran en el listbox lo que deseo es que cuando yo haga cambios en "AJUSTE DE DETALLE", esos cambios se apliquen a todos los items menos a los que sean TIPO: Servicios (Columna 13 del ListBox) lo que he logrado hasta ahora es que los cambois se apliquen a todos , pero lo que deseo es que los Servicios no tenga cambios en el registro. PRUEBA.xlsm

Gracias Janlui realmente quedo tal como queria, solo quisiera que me expliques algunas cosas por favor: 1* Asumo que en esta parte es donde puedo modificar para que tome todos los valores, hasta el ulitmo registro ( asumiendo que en la HOJA PEDIDO seguirá acumulándose) Sheets("pedido").Select Dim matriz As Variant matriz = [a2:q1000] Sheets("c1").Select Range("a2:q100").ClearContents 2* Para poder ejecutar la macro desde un formulario, es posible ello? quedo muy agradecido por tu ayuda