Jump to content

Max2005

Members
  • Content Count

    202
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by Max2005

  1. Hola @Anggie Linares, ya esta corregido, el problema es que insertaste columnas en tu hoja de lista de consignaciones, y la Macro esta leyendo específicamente la columna donde esta la letra "R", he modificado la Macro y ya esta lista Saludos !!! Inventario 15-MACRO.xlsm
  2. Hola @Anggie Linares, he puesto otro botón en tu hoja de lista de consignaciones "Return" para no modificar lo que había realizado Gerson, espero sea lo que necesitas Saludos !!! Suerte Inventario 15-MACRO_Max.xlsm
  3. Mi Estimado @Gerson Pineda, excelente aporte Saludos !!!
  4. Hola @cabrerase, Bienvenido al Foro, NO subas Imagenes es necesario que leeas las normas del foro y subas tu archivo, no tiene que tener datos reales, porque así es más dificil que puedas recibir ayuda. Saludos !!!
  5. Hola @pedro123, Buenas Tardes Te dejo una posible solución Saludos !!! Macros para eliminar e insertar filas en excel_Max.xlsm
  6. Hola @victor2012, Te anexo una propuesta usando subtotales Saludos !!! Libro2_SubTotales.xlsx
  7. Hola @Olivia, Donde te aparecen los "Triangulos" hice una seleccion de objetos porque, aunque no se ven, estan en tu hoja, una vez seleccionada solo los suprimes y listo En la imagen de abajo hay que tomar la opcion de "seleccionar objetos" y el cursor cambiara a flecha y para deshabilitarlo solo das doble click en cualquier parte de la hoja. Saludos !!!
  8. Hola @Olivia, Te anexo tu archivo corregido Saludos !!! Factura con error_Corregido.xlsx
  9. Hola @sprit36 Te dejo una solución Saludos Mucha Suerte !!! Ejemplo copia_Max.xlsm
  10. Hola @Haplox, No se si fue tu intención para que @diego920 pensara en la respuesta 5 y obtubiera por el la solución a su "EXAMEN", ya que yo tambien creo que es un examen, pero con SumaProducto me da un resultado diferente, dejo mi aporte. =SUMAPRODUCTO(($C$4:$C$252="Alimentos")*H4:H252+(($C$4:$C$252="Bazar")*H4:H252)+(($C$4:$C$252="Papeleria")*H4:H252)) de cualquierforma, le quedan 9 respuestas por resolver Saludos !!! Mucha Suerte
  11. Hola Nuevamente @almon, Te dejo un ejemplo del uso de BuscarV referente a tu Imgen, en la hoja 2 estan los datos que se transfirieron, tu intentalo de acuerdo a la formula para el % de Ventas Saludos Mucha Suerte !!! Ayuda BuscarV.xlsx
  12. Hola @almon Podrías subir tu archivo Saludos !!!
  13. Hola @ericdraven87, Prueba el adjunto y di si es lo que necesitas, referente a lo de estrategia 1 y 2 para armar los pares, creo que se podria con Macros, no se si con formulas se pueda hacer. Saludos Mucha Suerte !!! ayudaaa_Max.xlsx
  14. Hola @ChicaAprendiz, Sube tu archivo, no tiene que ser completo solo un extracto Saludos !!!
  15. Hola @sprit36 ¿Te resultaria si multiplicas por -1? algo así =SI(A13>=0;B13;SI(A13<0;-B13-A13))*-1 Saludos !!!
  16. Hola @lagh0 Siempre es mejor poner un ejemplo para no ASUMIR Respuestas, revisa esta formula, mi separador de Argumentos es "," =EXTRAE(A4,HALLAR("(",A4),(HALLAR(")",A4)-HALLAR("(",A4))+1) Saludos Mucha Suerte !!!
  17. Hola @lagh0 Y si subes tu archivo para verlo y poder ayudarte Saludos !!!
  18. Hola @sprit36 Mi separador de Argumentos es ",", tal vez el tuyo es ";" pero date cuenta que las respuestas te llevan al mismo resultado, solo es un poco mas como lo indica @Mauricio_ODN Yo corrobore ambas respuesta tanto la de el como la mia y funcionan, solo tienes que hechar a volar tu imaginación, no solo estas pueden ser las respuestas, hay un sin fin de posibilidades Saludos Amigos !!!
  19. Hola @sprit36 Prueba con esta formula =SI(A2=0,B2,SI(A2<0,B2+A2,B2)) Saludos Mucha Suerte
  20. Hola @DICXON_A, Entendiendo que tu solicitud es para transferir los datos de la hoja Libro Revisado a Definitivo y que depende de las filas de la celda C1 de tu hoja Libro Revisado, pero si solo quieres pasarlas filas de acuerdo a tus registros, te dejo este código, aunque no se si sea lo que necesite, pues si cambia la cantidad de registros ¿se debe sobre poner o como? Sub Transferir() 'Max2005 Sheets("LIBRO REVISADO").Select x = Range("C1") Range("A3:R" & 3 + x).Copy Sheets("DEFINITIVO").Select Range("A9").PasteSpecial xlPasteValues Application.CutCopyMode = False With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("A1").Select End Sub Saludos !!! Mucha Suerte
  21. Hola @Jamel Coloca este código dentro de tu módulo y ejecutalo, te va ha borrar el formato de tu hoja, pero lo puedes poner despues Option Explicit Public sLn As String Public sFName As String Public iFNumber As Integer Public lR As Long Public lC As Long Public vVal As Variant Public iC As Integer Public Sub ExtraerTxt() 'Max2005 Sheets("01").Select Range("A1").Select sFName = "C:\01.txt" 'Cambiar a la ubicación de tu base de datos TXT iFNumber = FreeFile Open sFName For Input As #iFNumber Hoja1.Cells.Clear lR = 2 Do Line Input #iFNumber, sLn vVal = Split(sLn, "|") With Hoja1 lC = 1 For iC = LBound(vVal) To UBound(vVal) .Cells(lR, lC) = vVal(iC) lC = lC + 1 Next iC End With lR = lR + 1 Loop Until EOF(iFNumber) Close #iFNumber End Sub Espero sea lo que necesitas Saludos !!! Mucha Suerte
  22. Hola @richicho24 Prueba el adjunto y comenta si es lo que necesitas Saludos Mucha Suerte Test5_Max.zip
  23. Hola @johnmpl y @richicho24 Excelente aporte John, estaba leyendo y tratando de entender la solicitud y llegaron tus respuestas, y solo tengo una pregunta de acuerdo a lo que había entendido, no primero se tendría que orden por la columna "Q", esta haciendo una Macro y puse: Range("A1", Cells(uF, "V")).Sort Key1:=Range("Q1"), Order1:=xlAscending, Header:=xlGuess Y posterior obtener los duplicados, Saludos !!! Mucha Suerte @richicho24
  24. Hola @nachopobleteneculqueo, Revise un poco tu Macro y encontré un error en la escritura del código Set STOCK = ThisWorbook.Sheets("STOCK PRODUCTOS") "Falta la K" Set STOCK = ThisWorkbook.Sheets("STOCK PRODUCTOS") Por Favor verifica tu código y vuelve a corre la Macro, posiblemente esto era el problema Mucha Suerte Saludos !!!
  25. Hola @ubimur, Te anexo archivo con la corrección Saludos !!! datos_Max2.zip
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5