Jump to content


  • Posts

    • Saludos expertos, por favor necesito de sus ayudas a alguien que disponga de tiempo, necesito guarda en PDF en un carpeta que se encuentra en descarga Que se busca agregar -Que cuando se corra la macro para generar el PDF se guarde estos datos en la base de datos. -Si un usuario(Nombre) le vuelvan a generar un PDF en un rango de = 7 días atrás mande un mensaje: usuario ya fue generado copia y fecha cuando fué creado y todo. Ajunto el archivo por favor muchísimas gracias a cada uno de ustedes. Feedback Formal-MACRO-PDF-1.xlsm
    • Capo @Gerson Pineda !! Una vez más, muchas gracias. Bendiciones y un fuerte abrazo en la distancia! Rubén
    • Bueno al final he podido probarlo un poco y es curioso Antoni que hay dos meses Marzo y Noviembre que la primera semana es un domingo y se repite la semana.   Mira el archivo que lo he completado para que funcionen todos los meses.   Semana numero.xlsm
    • Estupendo Antoni, eso es lo que estaba buscando, ahora si me esta funcionando, he probado con dos meses y me ha funcionado, no me da tiempo a probar mas, pero es de lógica que deba de funcionar con los demás meses.   Muchas gracias.    
    • Hola, necesito haceros una pregunta y de momento no tengo fichero de ejemplo (todavía intento ver cómo crearlo, no he sido capaz). Hice una macro para importar un fichero xml a excel. Todo bien, el problema es que uno de los campos que viene en formato texto, al importarlo no conserva ese formato, se queda en formato general. Es una columna numérica de este tipo 1,202020 o 2,33333 etc. Al importar aparece de esta manera: 1202020 o 233333 etc. Me elimina la coma. Os pego el código que estoy usando, por si alguien supiera otro y poder probar con él, o si añadiendo algo más me conerva el formato original, a ver si se soluciona ese error. Gracias!      Dim FilePath As String Dim Book As Workbook 'Load XML Data to New Workbook FilePath = "\\MIRUTA\*.xml" Set Book = Workbooks.OpenXML(FilePath) 'Copy to active Worksheet Book.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("FICHERO").Range("A1") Rows(1).EntireRow.Delete 'Close New Workbook Book.Close False  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy