
Onotera
Members-
Content Count
33 -
Joined
-
Last visited
About Onotera
-
Rank
Member
- Birthday 03/18/1975
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
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?
-
Onotera started following macro lenta
-
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