Onotera

ok, muchísimas gracias, va perfecto..., no se ralentiza nada de nada en el otro ordenador.

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

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

podrías ayudarme en mejorar la macro? gracias

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

lo he probado y parece que hace lo mismo, en mi ordenador bien, pero en cuanto al otro ordenador que está en red lento...

Bufff... ahí ya me pierdo bastante.., puedes ayudarme?

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

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?

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

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

perfecto!!!! muchisimas gracias. (podrías explicarme un poco el código para poder entenderlo del todo??). un saludo.

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

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.

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