Jump to content

Onotera

Members
  • Content Count

    33
  • Joined

  • Last visited

Everything posted by Onotera

  1. ok, muchísimas gracias, va perfecto..., no se ralentiza nada de nada en el otro ordenador.
  2. me he dado cuenta que si elimino lo siguiente va más rápido 'codigo para configurar todas las hojas del libro (margenes, etc..) Dim Hj As Worksheet For Each Hj In Worksheets Hj.PageSetup.PrintArea = "" With Hj.PageSetup .LeftMargin = Application.InchesToPoints(0.5) .RightMargin = Application.InchesToPoints(0.25) .TopMargin = Application.InchesToPoints(0.2) .BottomMargin = Application.InchesToPoints(0.2) End With Range("A1:O51").Select Hj.PageSetup.PrintArea = "$A$1:$O$50" Range("A1").Select Application.ScreenUpdating = False Next Hj se puede hacer de otra manera?, lo único es que me quepa la hoja con todos los datos a la hora de imprimirlos
  3. me he dado cuenta que si elimino lo siguiente va más rápido 'codigo para configurar todas las hojas del libro (margenes, etc..) Dim Hj As Worksheet For Each Hj In Worksheets Hj.PageSetup.PrintArea = "" With Hj.PageSetup .LeftMargin = Application.InchesToPoints(0.5) .RightMargin = Application.InchesToPoints(0.25) .TopMargin = Application.InchesToPoints(0.2) .BottomMargin = Application.InchesToPoints(0.2) End With Range("A1:O51").Select Hj.PageSetup.PrintArea = "$A$1:$O$50" Range("A1").Select Application.ScreenUpdating = False Next Hj se puede hacer de otra manera?, lo único es que me quepa la hoja con todos los datos a la hora de imprimirlos
  4. podrías ayudarme en mejorar la macro? gracias
  5. el archivo lo tengo en mi ordenador y lo comparto a través de red al otro (puede que el otro ordenador sea antiguo). No hay más macros en ese procedimiento., pero bien, me gustaría poder aligerarlo si se puede.. gracias
  6. lo he probado y parece que hace lo mismo, en mi ordenador bien, pero en cuanto al otro ordenador que está en red lento...
  7. Bufff... ahí ya me pierdo bastante.., puedes ayudarme?
  8. Buenos días, Tengo la siguiente macro y en mi ordenador va más o menos rápida, pero en un ordenador conectado en red tarda una eternidad en crear las pestañas Creacion hojas obra - copia.xlsb
  9. Creo que sí, en el mensaje anterior lo puse. con el Do While... Loop (te encuentra en la fila donde está el valor 1.5, o eso creo) con el For i... Next (he hecho lo siguiente por probar) Sub aaa() Intvalor = 2 For I = 1 To 15 Step 1 Intvalor = Intvalor + 1 Next I MsgBox "el valor es" & Intvalor End Sub me sale el mensaje con el valor= 17 como lo ves?
  10. Hola elunico22, ya creo que sé como funciona el 1º Do While... Loop (te encuentra en la fila donde está el valor 1.5, o eso creo) en el 2º For i... Next (he hecho lo siguiente por probar) Sub aaa() Intvalor = 2 For I = 1 To 15 Step 1 Intvalor = Intvalor + 1 Next I MsgBox "el valor es" & Intvalor End Sub me sale el mensaje con el valor= 17 lo he probado así y parece que funciona
  11. Estoy iniciándome con las macros y tengo unos apuntes con las siguientes macros que no consigo hacerlas funcionar, no veo ningún fallo. Do While... Loop Instrucción que repite las instrucciones mientras una condición es TRUE/VERDADERO. Ejemplo Excel tiene valores en las celdas B1:B100. Quieres buscar la primera celda que tenga un valor más alto/igual que 1,50. i = 1 Do While Cells(i, 2) <> "" if Cells(i, 1) >= 1.5 Then Exit Do i = i + 1 Loop MsgBox "El valor se encontró en fila no. " & i For i... Next Esta instrucción se repite el número de veces (i) que tú indicas. Ejemplo Creamos un bucle sencillo. Queremos que se repita 4 veces, y que la variable intValor (al empezar = 1) se incremente con 2 cada vuelta. Este nos da el resultado intValor = 9 (1+2+2+2+2). Observa que el bucle tiene step 1. Esto significa que i se incrementa con 1 cada vuelta. Esto es, que si queremos un bucle que vaya para atrás, pondríamos step -1. intValor = 1 For i = 1 to 4 step 1 intValor = intValor + 2 Next i gracias
  12. perfecto!!!! muchisimas gracias. (podrías explicarme un poco el código para poder entenderlo del todo??). un saludo.
  13. Buenos días, os adjunto documento ya terminado, aunque hay una cosa que me falta por acabar y no tengo la más remota idea de como hacerlo... Cuando le doy a buscar en la hoja "base de datos", me busca los datos de las demás hojas y deja 10 casillas en blanco después del último dato. (como veis en lunes me deja 15 y en martes 13) (Como puedo configurar la MACRO1) para que siempre me queden entre los registros buscados y filas en blanco un total de 20 filas (ya que despues esos datos los paso a otra hoja con esas dimensiones y separaciones entre los días de la semana) Espero que lo haya explicado más o menos. control horas 2013.rar
  14. hola, el problema es que si en alguna de las hojas de lunes a viernes, se duplica el operario por ejemplo en "martes" carlos 5 hotel carlos 3 gastos empresa no puedo utilizar esa fórmula por que tan sólo me crearía un registro, lo que quiero es que me vaya creando los registros según la obra, y si se repite la obra de lunes a viernes que se añada en el registro de su obra.
  15. necesito macro para acabar documento Buenos días, he creado como veis una hoja en la que he ido desarrollando poco a poco y me haría falta vuestra ayuda para poder acabarla, en la última hoja la "hoja 9", necesitaría que a través de una macro o algo por el estilo, me hiciera el resumen de las hojas: lunes martes miércoles jueves viernes sábado y que la "hoja 9" quedase tal como la he reflejado grácias control obra.rar
  16. Muchas gracias Sebastian, ahora me va a la perfección. Un saludo, Creo que el tema debería ser cerrado ya que se ha solucionado mi pregunta
  17. Hola, Me gustaría que lo hiciera con todas las páginas a partir delprimer recibo creado hasta el último recibo creado y no sólo la página activa.. Se podría emplear activeworkbook?? un saludo
  18. Buenos días, Adjunto hoja con macro en la cual me crea hojas con cada registro de la base de datos. Una vez creadas esas hojas y a la hora de imprimir en pdf, me gustaría poder quitar el salto de página que tienen y que sólo me imprimiera el rango (a1:x64) en el archivo pdf, que corresponde con el formato recibo. Copia de Recibos ok.rar
  19. Re: Modificación hoja recibos con base de datos tengo el archivo solucionado, el tema se puede cerrar
  20. Re: Modificación hoja recibos con base de datos Buenas noches, He estado trasteando el fichero una y otra vez, he logrado que me cree un archivo pdf con todas las hojas del libro, lo que no logro hacer es que me cree las hojas con los correspondientes recibos (tan sólo me hace la previa de la impresión), Alguien me puede dar alguna idea?, me he atascado.... Gracias de antemano recibos v1.rar
  21. Modificación hoja recibos con base de datos He podido crear este documento, pero tengo que hacer cada mes unos 300 recibos. Alguna manera de que a la hora de imprimir me cree un pdf, o en vez de imprimir uno por uno, pueda imprimirlo todo a la vez?. Se podría hacer que me imprimiese el mes que le indique?, ahora está configurado que me imprima lo de la casilla BP de la hoja 3. Gracias, recibos.rar
  22. Modificación hoja recibos con base de datos Se podría crear recibos según el mes indicado?
  23. Modificación hoja recibos con base de datos Buenas tardes, Os adjunto libro donde tengo una base de datos, y quisiera que me creara por cada registro de la base de datos una hoja nueva con su correspondiente recibo. El formato del recibo es el que hay en las hojas siguientes. Se podría una vez realizados los recibos, crear un pdf con todos ellos? aunque esto no es del todo necesario. Gracias pruebas recibos.rar
  24. Muchisimas gracias, todo perfecto, podemos poner el tema como solucionado
  25. he colocado el código así como me has indicado y todo perfecto. si en d4 poner una coma te saldrán los datos de la sem 3, pero como podrás observa en la semana 1 deja una fila en blanco. Otra cuestión, si quisiera insertar hoja con otro nombre que no empieze con "sem ", y me cogiera también esos datos como puedo hacerlo? Y por otra, se podría añadir el campo operario a la hora de hacer la busqueda? gracias horas semana.xls
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png