Jump to content

Maria_80

Members
  • Content Count

    52
  • Joined

  • Last visited

  • Country

    Spain

About Maria_80

  • Rank
    Advanced Member

Recent Profile Visitors

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

  1. Hola, estoy con una macro para importar un fichero con formato xml a una hoja concreta de excel. Encontré una macro y la adapté, funciona pero no he conseguido modificar la última parte. Lo que hace la que tengo es que importa el xml a un libro nuevo y lo guarda, pero no he sabido cómo decirle que lo importe al archivo desde el que ejecuto la macro y lo pegue en la hoja llamada FICHERO. Os adjunto el ejemplo (la última parte la he dejado en verde, es la que no consigo adaptar). Gracias! ejemplo_xml.7z
  2. Hola, J. Es que el filtro me funciona perfectamente. Es solo que no sé añadir un segundo filtro. No te preocupes. Pensaba que cuando era solo una sentencia o una pregunta de este tipo no hacía falta subir archivo. Es que me urge y tardo menos buscando por ahí que preparando un ejemplo. Gracias de todos modos. Podemos dejar el tema cerrado.
  3. Hola, tengo esta instrucción en una macro para filtrar por la columna B una serie de datos, pero una vez que estén filtrados quiero que sobre ese filtro haga un segundo, y que solo me deje los que en columna D es igual a cero. No sé cómo añadir esa segunda instrucción... Worksheets("PRINCIPAL").Range("B1").Autofilter Field:=2, Criteria1:Array("ALMACEN","TIENDA") Después sobre eso quiero un segundo filtro, repetí lo mismo justo a continuación para la columna D = 0 pero no funciona. Cómo puedo modificarlo? Gracias
  4. Hola, Tierra. Otra pregunta, es que no entiendo qué significa worksheets(h), no tengo ninguna hoja que se llame así... es que está totalmente modificado el código que yo tenía que ahora me cuesta entender cómo hiciste el proceso... no encuentro el nombre de la hoja principal por ningún lago y para mí es importante poder referirme a ella... piensa que adjunté un ejemplo, pero en el libro original tengo muchísimas más hojas. gracias.
  5. Hola, Tierra. Funciona perfecto si hay ceros, pero he si los quito y no hay nada en el filtro la hoja de CEROS se crea igual... debería sustituir donde dices = 0 por = 1 antes de añadir la hoja? gracias!
  6. Hola, Adjunto un fichero con una sola hoja y cuatro columnas. Hice una macro para filtrar por la cuarta columna por cantidad = 0, es decir D=0 y en caso de que existan registros en el filtro, que cree una nueva hoja, pegue ahí esos regisros y luego los borre de la original. Tengo toda la macro hecha menos la parte de comprobar si hay datos en el filtro, no consigo sacarlo... y que en caso de que no existan datos al filtrar siga con el resto del proceso. Quería evitar poner un msgbox diciendo que no existen datos en el filtro y que siga sin decir nada. Muchísimas gracias. ejemplo_filtro.7z
  7. ya lo saqué, aquí estaba el error: Worksheets("Hoja1").Range("A").AutoFilter Field:=1, Criterial:="0" me faltaba esto: Worksheets("Hoja1").Range("A1").AutoFilter Field:=1, Criterial:="0" por eso no me hacía el filtro. Gracias
  8. voy a preparar un ejemplo, me va a llevar un rato.... pero lo subo en cuanto lo tenga. Gracias!
  9. Gracias! no me termina de funcionar correctamente... no sé por qué... la hoja2 en realidad se llama DESTINO (en el foro puse un ejemplo) y al poner ufh2=DESTINO.Range etc. me pega desde el encabezado... todos los registros (no me hace el filtro con el cero tampoco...) Voy a seguir dándole alguna vuelta e intento preparar algún fichero de ejemplo... El caso es que tengo que filtrar los registros con el filtro criterial:= "0" de hoja1 = ORIGEN en hoja2 = DESTINO y luego borrar esos registros de Hoja1 (ORIGEN). No doy con la solución.
  10. Hola, tengo este código para copiar los datos filtrados por "0" de la hoja1 a la hoja2, pero no sé cómo indicarle que los copie en la hoja2 en la primera fila que esté libre y no en: Worksheets("Hoja2").Cells(1, 1) Este es el código, no me da error, pero me pega los datos al comienzo de hoja2 y machaca lo que ya hay: Worksheets("Hoja1").Range("A").AutoFilter Field:=1, Criterial:="0" Sheets("Hoja1").Activate Range(Range("A1"), Range("A1").End(xlDown)).Select Range(Selection, Selection.Offset(, 5)).Select 'para que abarque todas las columnas a la hora de copiar Selection.Copy Sheets("Hoja2").Activate ActiveSheet.Paste Destination:=Worksheets("Hoja2").Cells(1, 1) gracias!
  11. mil gracias!! me estaba volviendo loca ya haha gracias!!!!
  12. Hola, Adjunto un fichero con una sola columna en la Hoja1, en ella hay ceros y unos. La macro es super sencilla! quiero que borre todas las filas donde esa columna sea igual a cero. Están todas las celdas en el mismo formato, pero por alguna razón no borra todos los ceros... solo los de algunos registros... podría alguien echarle un vistazo? Gracias! Ejemplo (1).7z
×
×
  • Create New...

Important Information

Privacy Policy