Jump to content

Deima Ordenadores

Members
  • Content Count

    17
  • Joined

  • Last visited

About Deima Ordenadores

  • Rank
    Member

Converted

  • Campos
    ;

Recent Profile Visitors

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

  1. Hola a todos, A mi también me interesa el tener en una columna la url de una imagen y en la columna de al lado la imagen propia. Saludos cordiales,
  2. Muchas gracias Gerson Pineda, Funciona perfectamente y además ya lo he entendido para poder aplicarlo a cualquiera otra columna. Saludos cordiales,
  3. Muchas gracias Gerson Pineda, Funciona perfectamente con tu macro. ¿ Pero que tendría que cambiar para que hiciera lo mismo si el filtro está en la Columna B ?
  4. Hola a todos, Por si no lo he dejado claro necesito que la Macro de Antoni me funcione también en el fichero Macro Antoni No Funciona.xlsm Saludos
  5. Buenos dias a todos, En una consulta anterior quería hacer lo siguiente: Tengo una Tabla y quisiera a través de una macro que todos los datos que tengo en una columna filtrados se me copien en hojas diferentes con el mismo nombre que los datos. Ejemplo: en la Columna F "Categoria" tengo los siguientes datos SSD, Procesadores, Altavoces, Tablets, etc... y si filtro esta "Categoria" quiero que se copien en hojas separadas con los nombres de cada una SSD, Procesadores, Altavoces, Tablets, etc... Y muy amablemente Antoni me creo la siguiente Macro: El Problema es que en unos ficheros funciona y en otros muy parecidos NO Me crea otra hoja de mas y da error de tiempo de ejecución Saludos Macro Antoni Funciona.xlsm Macro Antoni No Funciona.xlsm
  6. Gracias Cacho R otra cosa menos que me queda para terminar. Por si le vale a otro tan Novato como yo Copiar Datos de un Libro a Otro con Condiciones Option Explicit '-------------------\ 'by Cacho Rodríguez | '-------------------/ Sub traspasar_Info() Dim list_Obj1 As ListObject, list_Obj2 As ListObject Dim C As Range, D As Range, celdas_a_Copiar As Range, filas_iniciales_de_la_tabla_Destino& Set list_Obj2 = ActiveSheet.Range("a1").ListObject Windows.Arrange ArrangeStyle:=xlHorizontal On Error Resume Next ' Set C = Application.InputBox("Selecciona una celda cualquiera de" & _ ' vbLf & "la tabla origen.", Type:=8) Set C = Workbooks("Origen2.xlsm").Sheets("Origen").Cells(2, 2) Application.Goto list_Obj2.Range.Cells(2, 1) ActiveWindow.WindowState = xlMaximized If C Is Nothing Then Exit Sub On Error GoTo 0 Set list_Obj1 = C.ListObject If list_Obj1.DataBodyRange Is Nothing Then Exit Sub For Each C In list_Obj1.DataBodyRange.Resize(, 1) Set D = list_Obj2.Range.Resize(, 1).Find(C, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) If D Is Nothing Then Select Case True Case Not celdas_a_Copiar Is Nothing Set celdas_a_Copiar = Application.Union(celdas_a_Copiar, C.Resize(, 3)) Case celdas_a_Copiar Is Nothing Set celdas_a_Copiar = C.Resize(, 3) End Select End If Next If celdas_a_Copiar Is Nothing Then Exit Sub filas_iniciales_de_la_tabla_Destino = 1 + list_Obj2.ListRows.Count celdas_a_Copiar.Copy list_Obj2.Range.Cells(1 + filas_iniciales_de_la_tabla_Destino, 1) list_Obj2.Resize list_Obj2.Range.CurrentRegion With list_Obj2.Range With .Cells(1, 2).Offset(filas_iniciales_de_la_tabla_Destino).Resize(.Rows.Count - filas_iniciales_de_la_tabla_Destino) .ClearContents .Offset(, 6) = 1 End With End With End Sub Saludos,
  7. Pues lo correcto es lo que estoy haciendo ahora, ayer y antes de ayer: probar, probar y probar hasta dar con la solución. Pero los que no tenemos ni idea de VBA y nos defendemos solo con la Grabadora de Macros llega un momento en que no avanzas mas y la única manera es preguntar a los que saben. El proyecto en si es que mi Proveedor de material informático me da todos los días un fichero en Excel con mas de 4500 productos con un montón de información y yo la tengo que adaptar para que pueda importar esos productos a mi tienda de Prestashop. He avanzado muchísimo con la Grabadora de Macros y ya estoy casi al final del camino y aquí un ejemplo de lo que he hecho hasta ahora: De todas manera agradecerte tu ayuda porque si me ha servido de mucho. Saludos,
  8. Muchas gracias Cacho R ha funcionado perfectamente. Una última consulta para poder ganar algo mas de tiempo, es posible ya que siempre voy a tener solo estos dos Ficheros abiertos a la vez que no me pregunte: "Selecciona una celda cualquiera de la tabla origen." y que se ejecute la Macro del tirón Muchas gracias de todas maneras por tu interés y tu tiempo. Saludos,.
  9. Muchas gracias por tu interés y tiempo Cacho R Lo que necesito ahora es muy parecido a lo anterior que me viene mucho mejor En Destino tienen que estar los datos de las Columnas A y C del Origen, el resto de Columnas vacias y además añadir un 1 en la Columna H En el Fichero Destino te envío el resultado final que necesito. Saludos, Destino 2.xlsm Origen 2.xlsm
  10. Muchas gracias Cacho R Ha funcionado perfectamente en mis ficheros de Producción. Me vendría muy bien la siguiente mejora: En la Columna A tengo una referencia única y es por la que hay que guiarse. Todo Fila cuya Columna A esté en el Libro Origen pero no esté en el Libro Destino hay que copiarla al final del Libro Destino pero solo copiar la Columna A, Columna C y Añadir un 1 en la Columna H Muchas gracias a todos
  11. Buenas tardes a todos, Tengo 2 Libros uno llamado Origen y otro Destino, y necesito una Macro para copiar los datos desde el Libro Origen al Libro Destino con el siguiente criterio: En la Columna A tengo una referencia única y es por la que hay que guiarse. Todo Fila cuya Columna A esté en el Libro Origen pero no esté en el Libro Destino hay que copiarla al final del Libro Destino pero a demás hay que modificar el dato que tenga la Columna D (Stock) y cambiarlo por 0 Saludos cordiales, Destino.xlsm Origen.xlsm
  12. Disculpado y muy agradecido por tu interés. Ahora funciona perfectamente No puedo estar mas de acuerdo contigo.
  13. Muchas gracias Antoni por perder tiempo conmigo, Efectivamente tal y como me has enviado el fichero Importador (1).xlsm funciona con todas las opciones del filtro me lo copia y crea las Hojas adecuadas. Pero lo que yo hago es copiar la macro que me has puesto y la pongo en Modulos y desde hay no funciona como debe me copia todos los filtros aunque no esten marcados a Hojas Nuevas. Este es tu código pero copiado a un Modulo: Lo ejecuto desde Modulo y hay es donde falla. Yo todas las pruebas que he hecho es pasando tu código a un nuevo Modulo grabado en PERSONAL.XLSB y desde hay lo ejecuto y es cuando el copiado me lo hace mal. Saludos,
  14. Muchas gracias Antoni, La Macro que me has puesto funciona perfectamente cuando tengo marcados en la Columna F "Categoria" todos los datos. Pero como te he dicho anteriormente de los 80 datos solo me pueden interesar 10, los marco, ejecuto tu Macro y me crea todas las Hojas aunque no esten marcadas, eso si sin datos pero me crea las 70 Hojas vacias y las que he marcado si que tienen los datos que tienen que tener. Saludos
  15. Muchas gracias Antoni por tu tiempo e interes, ha funcionado perfectamente en este ejemplo que he puesto. Pero realmente el fichero original contiene mas de 80 datos en la Columna F "Categoria" y yo solo necesito unos 10. Lo que hice manualmente para subir el fichero de ejemplo fue filtrar la columna F "Categorias" con los datos: SSD, Procesadores, Altavoces, Tablets y borrar todos los demas datos a mano. ¿Crees que se podria hacer lo mismo pero copiando los datos que yo elija con el AutoFiltro de la Columna F "Categorias" ? Saludos
×
×
  • Create New...

Important Information

Privacy Policy