Jump to content

exekyel2010

Members
  • Content Count

    28
  • Joined

  • Last visited

About exekyel2010

  • Rank
    Member

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. @Gerson Pineda Ante todo muchas gracias por el aporte, rápido y efectivo! Me funciona correctamente, discúlpame el atrevimiento pero me interesaría saber si me podes explicar como funciona ya que tengo que hacer esto mismo con otras 30 listas. Estoy mirando la macro y creo entenderla, pero quizá se me escapa algo.
  2. Hola amigos, paso a explicarles un tema que me surgió con mi software comercial. El sistema tiene un reconocimientos de códigos nuevos al actualizar una lista de precio. Al actualizar me pregunta el sistema si deseo generar un excel con los artículos nuevos. Al guardarlo, veo que me genera la misma planilla de importación que uso habitualmente pero la columna descripción no. Quiero saber como puedo tomar esa descripción desde el archivo original. Adjunto archivos de ejemplo EXPORTA_SISTEMA.xlsx libroOriginal.xlsx
  3. Lo solucione con el siguiente código: Sub MacroPH_CodPre() Application.ScreenUpdating = False Hoja18.Cells.ClearContents Hoja18.Range("A1") = "Código" Hoja18.Range("B1") = "Precio" Proceso Sheets("Hoja1"), "A", 1, 1 Proceso Sheets("Hoja1"), "D", 1, 1 Proceso Sheets("Hoja1"), "G", 1, 1 Proceso Sheets("Hoja1"), "J", 1, 1 Proceso Sheets("Hoja2"), "A", 1, 1 Proceso Sheets("Hoja2"), "D", 1, 1 Proceso Sheets("Hoja2"), "G", 1, 1 Proceso Sheets("Hoja2"), "J", 1, 1 Proceso Sheets("Hoja3"), "A", 1, 1 Proceso Sheets("Hoja3"), "D", 1, 1 Proceso Sheets("Hoja3"), "G", 1, 1 Proceso Sheets("Hoja3"), "J", 1, 1 Proceso Sheets("Hoja4"), "A", 1, 1 Proceso Sheets("Hoja4"), "D", 1, 1 Proceso Sheets("Hoja4"), "G", 1, 1 Proceso Sheets("Hoja4"), "J", 1, 1 Proceso Sheets("Hoja5"), "A", 1, 1 Proceso Sheets("Hoja5"), "D", 1, 1 Proceso Sheets("Hoja5"), "G", 1, 1 Proceso Sheets("Hoja5"), "J", 1, 1 Proceso Sheets("Hoja6"), "A", 1, 1 Proceso Sheets("Hoja6"), "D", 1, 1 Proceso Sheets("Hoja6"), "G", 1, 1 Proceso Sheets("Hoja6"), "J", 1, 1 Proceso Sheets("Hoja7"), "A", 1, 1 Proceso Sheets("Hoja7"), "D", 1, 1 Proceso Sheets("Hoja7"), "G", 1, 1 Proceso Sheets("Hoja7"), "J", 1, 1 Proceso Sheets("Hoja8"), "A", 1, 1 Proceso Sheets("Hoja8"), "D", 1, 1 Proceso Sheets("Hoja8"), "G", 1, 1 Proceso Sheets("Hoja8"), "J", 1, 1 Proceso Sheets("Hoja9"), "A", 1, 1 Proceso Sheets("Hoja9"), "D", 1, 1 Proceso Sheets("Hoja9"), "G", 1, 1 Proceso Sheets("Hoja9"), "J", 1, 1 Proceso Sheets("Hoja10"), "A", 1, 1 Proceso Sheets("Hoja10"), "D", 1, 1 Proceso Sheets("Hoja10"), "G", 1, 1 Proceso Sheets("Hoja10"), "J", 1, 1 Proceso Sheets("Hoja11"), "A", 1, 1 Proceso Sheets("Hoja11"), "D", 1, 1 Proceso Sheets("Hoja11"), "G", 1, 1 Proceso Sheets("Hoja11"), "J", 1, 1 Proceso Sheets("Hoja12"), "A", 1, 1 Proceso Sheets("Hoja12"), "D", 1, 1 Proceso Sheets("Hoja12"), "G", 1, 1 Proceso Sheets("Hoja12"), "J", 1, 1 Proceso Sheets("Hoja13"), "A", 1, 1 Proceso Sheets("Hoja13"), "D", 1, 1 Proceso Sheets("Hoja13"), "G", 1, 1 Proceso Sheets("Hoja13"), "J", 1, 1 Proceso Sheets("Hoja14"), "A", 1, 1 Proceso Sheets("Hoja14"), "D", 1, 1 Proceso Sheets("Hoja14"), "G", 1, 1 Proceso Sheets("Hoja14"), "J", 1, 1 Proceso Sheets("Hoja15"), "A", 1, 1 Proceso Sheets("Hoja15"), "D", 1, 1 Proceso Sheets("Hoja15"), "G", 1, 1 Proceso Sheets("Hoja15"), "J", 1, 1 Proceso Sheets("Hoja16"), "A", 1, 1 Proceso Sheets("Hoja16"), "D", 1, 1 Proceso Sheets("Hoja16"), "G", 1, 1 Proceso Sheets("Hoja16"), "J", 1, 1 Proceso Sheets("Hoja17"), "A", 1, 1 Proceso Sheets("Hoja17"), "A", 1, 1 Proceso Sheets("Hoja17"), "A", 1, 1 Proceso Sheets("Hoja17"), "A", 1, 1 End Sub Private Sub Proceso(Hoja As Worksheet, Columna As String, Fila As Long, Precios As Integer) Dim FilaPrecios As Long, x As Long, y As Integer With Hoja For x = Fila To .Range(Columna & Rows.Count).End(xlUp).Row For y = 1 To Precios If Not .Cells(x, Columna).Offset(, y) = "" And _ Not .Cells(x, Columna) = "" Then FilaPrecios = Hoja18.Range("A" & Rows.Count).End(xlUp).Row + 1 Hoja18.Range("A" & FilaPrecios) = .Cells(x, Columna) Hoja18.Range("B" & FilaPrecios) = .Cells(x, Columna).Offset(, y) End If Next Next End With Hoja18.Select End Sub
  4. El usuario Antoni, me creo una macro el año pasado que funcionaba para generar las dos columnas (código y precio) de todo el libro. intento configurar para este nuevo libro, y no logro que funcione. Aclaro que funciono con los tres libros anteriores a este ultimo. El libro original tiene 17 hojas, adjunto una muestra de 5 Hojas. Espero su ayuda! Gracias Lista100.xls
  5. Hola Gerson, estuve mirando el archivo que realizaste el Power Query, vi algunos videos sobre el tema, pero no entiendo como llegaste a la tabla limpia.
  6. No logro hacerlo funcionar en este archivo. Adjunto para que lo veas, al menos orientarme en la primera hoja y yo luego viendo como funciona lo modifico. Gracias como siempre! LISTA MINORISTA.xlsx
  7. Antoni: Paso por aquí a agradecerle, por que la verdad me fue de gran ayuda y pude aplicarlo en todas las listas de precios de mis proveedores, modificando alguna que otra cosa del código y me simplifico gran parte del trabajo que estoy preparando en una base de datos de mas de 100.000 artículos. Solo me queda una lista por realizar que no logro adaptar el código. Si veo que se me acaban las opciones, subo el archivo para que lo mires y me orientes por donde esta la solución. Ante todo muchas gracias por la ayuda brindada.
  8. Gracias Antoni, me es de gran ayuda, voy a revisar como funciona, para poder aplicarlo en todas mis hojas y documentos.
  9. Hola amigos: Les quiero hacer una consulta. Necesito hacer una macro en hoja1, que me permita acomodar automáticamente los códigos y precios en la hoja2. Para que no piensen que quiero que me lo hagan ustedes, si bien no soy muy ducho, les comento lo que intente. Hice una macro copiando y pegando. Pero el tema es que tengo como el archivo que adjunto, cientos de hojas, y ademas de eso, mi macro no funcionaria si hay nuevos codigos. Ademas necesito obviar todo lo que es texto y títulos. Lo pensé de muchas maneras pero no logro darme cuenta como hacerlo. Pido al menos su colaboración para orientarme como realizarlo, o por donde empezar a plantearlo. Desde ya muchas gracias. Prueba.xlsx
  10. RESUELTO: =SUSTITUIR(ESPACIOS(ESPACIOS(EXTRAE(C2;1;13))&EXTRAE(A2;1;3)&"-P04");".";"")
  11. Hola amigos: Necesito resolver un problema con esta formula que cree: =ESPACIOS(ESPACIOS(EXTRAE(C2;1;13))&EXTRAE(SUSTITUIR(SUSTITUIR(A2;" ";"")&A2;".";"")&A2;1;3)&"-P04") La formula lo que hace es EXTRAER de C2 del caracter 1 al 13 y le saca los espacios. Luego en A2 saca los espacios y puntos. Extrae de A2 del 1 al 3 carácter y le agrega al final -P04 El tema es que en el EXTRAE DE A2 a veces tengo 2 caracteres y a veces tengo muchos mas. Cuando se da que tengo 2 caracteres me vuelve a repetir el 1, y es lo que no quiero que me pase. Adjunto fichero de muestra. Gracias. extrae_conlimite.xlsx
  12. quiero ponerle un login con user y password, y administracion de usuarios. lo he visto en youtube pero no entiendo mucho de vba para excel.
  13. me resulto a la perfeccion, ahora tengo que mejorar mi excel. Voy a hacer una nuevo topico con mi siguiente consulta! gracias he aprendido algo nuevo!
×
×
  • Create New...

Important Information

Privacy Policy

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