Jump to content

Maria_80

Members
  • Posts

    176
  • Joined

  • Last visited

  • Country

    Spain

Everything posted by Maria_80

  1. Hola, Os adjunto una hoja excel con tres columnas. Vienen en formato personalizado #0,00 Necesito cambiarle el formato con VBA o a número con dos decimales o en otros casos sin decimales ( la parte entera). He probado con Round a 2 decimales, con Round a 0 decimales y con INT (está en el fichero de ejemplo) pero se quedan exctamente igual, formato personalizado #0,00 y en caso de hacer algún cálculo se quedan en personalizado #0,0000000 Me está trayendo problemas y necesito cambiarle el formato antes de hacer cálculos, pero round e int no funcionan. Gracias!! Ejemplo_formatos.zip
  2. Anda! muchas gracias! Pues ya está solucionado ;).
  3. Hola, Adjunto ejemplo donde intento crear un MsgBox con los datos de las celdas de una columna. Me sale error en la "cadena" que creo, adjunto ejemplo y os pongo el código: Primero defino el rango, que puede ser variable: x= Range("A" & Rows.count).End(xlUp).Row For i = 2 to x If range ("A" & i) <> "" then cadena = cadena & range("A" & i) & ", " next i MsgBox "EL listado de ciudades es: " & cadena (me sale error justo ahí... a la hora de montar el MsgBox) Gracias! ejemplo_msgbox.xlsm
  4. Hola, Adjunto un ejemplo de un excel con dos hojas. La primera tiene un listado de ciudades, se trata de que al filtrar por "X" ciudad en caso de que no existan datos en el filtro, escriba la palabra "DAR DE ALTA" en la primera celda libre de la primera columna de la hoja2 (info). Tengo toda la primera parte, la del filtro, pero no he sabido continuar con la segunda. Muchas gracias! ejemplo_compilar.xlsm
  5. Gracias Antoni! Conseguí sacarlo con eso para un filtro en un tercer campo y con esto: With ... .Autofilter 2, Array:="(Code61", "Code43"), Operator:=xlFilterValues .Autofilter 3, "negro" End With
  6. Hola, Luis! Lo he visto y funciona! muchas gracias! El problema es que intento aprender a hacer filtros usando el With y de este modo tengo que dejar de utilizarlo... no se puede hacer el doble filtro con with? es que tampoco encontré mucho por ahí. Gracias.
  7. Hola, Comencé hace poco a hacer filtros en VB usando el bucle With y no consigo filtrar en el mismo campo por dos condiciones en vez de solo una. Ahora lo tengo para filtrar por Code65, pero me gustaría filtrar además por Code43. Os adjunto un ejemplo. Sería filtrar por la segunda columna. With Worksheets("Referencias").Range("A:C") .Autofilter .Autofilter 2, "Code65" End With Gracias! Ejemplo_With.xlsm
  8. ya lo adapté! funciona perfecto Antoni! Muchísimas gracias!!!!
  9. Hola! quería consultaros si se puede hacer algo en excel con una macro. Sé que puedo importar datos desde otro libro con esto: Workbooks.Open "C:\Users\Usuario\Desktop\Archivo.xlsm" Workbooks("Archivo.xlsm").Worksheets("Hoja1").Range("L12").Copy Destination:=Workbooks("segundoArchivo.xlsm").Worksheets("Hoja1").Range("B11") Workbooks("Archivo.xlsm").Close savechanges:=False Mi pregunta es la siguiente: Podría decirle al código que abra uno a uno todos los libros de una ruta (origen) y me pegue los datos de la primera hoja de cada uno en la hoja 1 de mi segundo archivo (destino), unos debajo de otros? Se puede hacer esto? He visto por ahí muchos ejemplos con un solo libro, siempre y cuando indiques la ruta completa y el nombre del fichero, pero no he visto ejemplos de abrir todos los de una ruta independientemente de su nombre y copiar uno debajo de otro los datos en la hoja 1 del fichero destino. Gracias!
×
×
  • Create New...

Important Information

Privacy Policy