Jump to content

el_trasgu

Members
  • Content Count

    26
  • Joined

  • Last visited

Everything posted by el_trasgu

  1. Pues "avalencia", muchísimas gracias, es exactamente lo que buscaba Private Sub Workbook_Open() Dim pass As Integer pass = 12345 Workbooks.Open Filename:=ThisWorkbook.Path & "\Pass2.xlsm", Password:=pass End Sub De ésta forma me queda perfecto, y puego usar la variable "pass" para procesarla y editarla cuanto estime necesario.
  2. Si me lo permites, por lo sensible de la información, he creado tres ficheros vacíos de la misma forma que los originales. La contraseña en los tres es la misma: 12345 Gracias por el tiempo que me dedicas. En el trabajo tengo los tres ficheros, donde tengo que introducir información en cada uno de ellos, son tres informes que cada uno de los que estamos en el mismo puesto de trabajo, rellenamos en cada turno, tres de mañana, tres de tarde y tres de noche. La contraseña es corporativa, y como puedes comprender, se trata de un serie alfanumérica que cambia cada tres meses, y
  3. Hola a todos Tengo tres libros protegidos y cifrados. Los tres libros tienen la misma contraseña. Mi pregunta se refiere, a que cuando se carga el imputbox de petición de contraseña al abrir el primer libro, sería posible, copiar esa contraseña introducida de alguna menera haciendo que se abra el segundo libro y se pegue en el imputbox correspondiente, haciendo lo mismo con el tercer libro. He mirado y en vba no queda constancia de ese imputbox de apertura que usa el excel 365 al proteger con contraseña y cifrar el fichero. Un saludo y muchas gracias
  4. Increible Antoni, ahora si, funciona todo y funciona a la perfección. Es una pasada. Muchísimas gracias. Por fin y solo gracias a ti, veo luz en mi proyecto. Eso si, también tengo que decir que salvo lo de igualar a cero la función del tiempo, no veo otro cambio. El caso es que sigo sin entender como funciona. Lo dicho, muchísimas graciasssssss
  5. Hola Antoni El tiempo sigue sin sumar los totales como hace la distancia, que ya funciona Sobre manejar gran cantidad de textbox, he leido bastante por internet, empleando sentencias for each, pero aún sigo trabajando en ello, no lo controlo y cada vez que hago algún cambio, deja todo de funcionar, jeje
  6. Hola Antoni, muchísimas gracias por todo tu trabajo, al final, practicamente me lo has hecho tu entero. Sólo detecto dos errores. En el rango de celdas I9:K13, donde va la distancia Total, iría sumando la distancia parcial del tramo actual, más la distancia acumulada de los anteriores. o sea: en i9:k13 sería el mismo resultado de i4:k8, pues es el primer punto. en i19:k23 iría la distancia del tramo actual i14:k18 + la distancia acuamulada del anterior i9:k13 En i29:k28, iría la distancia del tramo actual i24:k28 + la distancia acumulada de los anteriores i19:k23
  7. Fantástico Antoni, muchísimas gracias Todo a la perfección, tal como esperaba e imaginaba. una pasada. Increibleeee
  8. Muchas gracias Antoni, yo también sigo intentando, dentro de mis posibilidades, en mejorar la hoja añadiendo otras funcionalidades
  9. Hola Antoni, te vuelvo a agradecer todo tu tiempo. Si te pasas alguna vez por Asturias y te gusta la montaña, tienes guía gratis para realizar alguna ruta de montaña Te paso la hoja con la que realizo los cálculos del tiempo Cálculos de tiempo. Aunque es un dato que requiere mucho de nuestra experiencia, utilizamos las siguientes reglas: •Una persona sola o grupo entrenado recorre en una hora 500 m de desnivel o 5 Km/h en distancia reducida. •Un grupo normal recorre 400 m de desnivel la hora o 4 Km/h en Distancia reducida. •Un grupo flojo recorre 300m de desnivel
  10. ¡¡¡ Perfecto !!! Muchísimas gracias Antoni, funciona a la perfección, justo como había deseado. Un trabajo incrible, alucinante. Sigo sin entender el código aún estando comentado, pero es lo que tiene no tener ni idea. Vaya, estoy alucinado, es una pasada. Lo dicho, muchísimos e inestimables agradecimientos.
  11. Hola a tod@s Tengo una hoja de excel en la que introduzco los datos de una ruta de montaña. Esta hoja la he conseguido tener, gracias al inestimable e imprescindible trabajo de Antoni. Ahora la duda, teniendo esa hoja, es la de poder calcular los tiempos de ruta. Tengo todas las fórmulas para el cálculo de dichos tiempos metidos en la hoja, en un apartado dentro del código, lo he marcado como: '-------------------Inicio '-------------------fin Esas fórmulas son las que me calculan los tiempos de cada tramo de la ruta. Pero yo las tengo para el cálculo de punto a p
  12. Hola Antoni, me sorprendes por la dedicación, ya no se como agradecerlo Varias cosas, aunque me sabe mal mencionar los errores que encuentro, pues es como buscar los fallos. La verdad es que siento decir que el tema de la pendiente no va muy fino, pues no se adapta a la información que muestra la celda con el porcentaje de la pendiente (Fila O), Veo que llevas el dato a la hoja 2 celda A13 y luego realizas las fórmulas. No se si el error estará en el mismo cálculo de esas fórmulas, pero a veces me pone bajada cuando en realidad es subida y viceversa. Observo otro error en la celd
  13. Gracias qwerty123 En la hoja de excel la fórmula que empleo pasar la pendiente a porcentaje, se basa en los metros de ascenso y la distancia: Porcentaje de Pendiente = Altura / Base * 100 Para calcular el ángulo de la pendiente con la fórmula que has puesto, la cosa se complica, supongo que primero habría que calcular los grados de la misma, creo que sería la siguiente fórmula: Pendiente en Grados = ArcTangente (Altura / Base) Una vez obtenidos los grados de la pendiente, se pasaría a utilizar la que has comentado: Angulo de Pendiente = GRADOS(ATAN(pendiente/100))
  14. Muchas gracias Antoni Te puedo decir que yo me puse varias veces con tu código a ver si logro ponerle lógica, y no hay manera. No entiendo nada. No entiendo de donde sacas la circunferencia ni la flecha. No entiendo como coges los datos de la hoja Bueno, de un código como el mio que tenía decenas de líneas y no funionaba a uno como el tuyo de cuatro líneas hay una sustancial diferencia, jeje Pues lo dicho, que muchísimas gracias
  15. Hola Antoni Cuando hablo de pendiente negativa, es por el tramo con relación al punto anterior. O sea: Si G14:H18, es mayor que G4:H8, la pendiente será de subida. Si G14:H18, es menor que G4:H8, la pendiente será de bajada. La pendiente en porcentaje no tiene una transferencia directa a grados. Por eso resulta bantante complicado de calcular, la regla de 3 no sirve. Además, tenemos la impresión de que una cuesta con una inclinación del 100% sería vertical, cuando en realidad casi equivale a un ángulo de 45 grados. Para tener una pendiente vertical, nos tendríamos que ir a
  16. Pues más o menos la idea sería la representada en el ejemplo subido ahora. En la celda O4 aparece el porcentaje de la pendiente de ese tramo, y en la celda Q4, una representación gráfico que como sería esa pendiente con un signo + si la pendiente es positiva, y un signo - si la pendiente es negativa. Como puedes ver en la hoja, en excel no me resulta difícil realizar los cálculos, pero en vba, estoy totalmente perdido. Por cierto, muchísimas gracias. Sobre lo de inmovilizar paneles si lo sabía, sobre el tema de repetir filas, ni idea. Generalmente la intención es rellenar las di
  17. Vaya, muchísimas y reiteradas gracias a los dos por vuestra inestimable ayuda Antoni, tu código me resulta totalmente incomprensible, tanto, que me resulta imposible modificarlo. En él me encuentro con algún problemilla. Lo de la flecha es un puntazo. Pero en la celda E34 deja de funcionar. De ser posible, debería de seguir pudiendo agregar azimut hasta la celda E660. Otro pequeño problema, es la limpieza de los datos, en mi hoja había añadido un botón que limpiaba las imágenes, pero en tu caso no logro borrarlas. Pues lo dicho, muchísimas gracias a los dos, etern
  18. Muchísimas gracias Andrés, me has salvado la vida. Llevaba un tiempo comiéndome la cabeza sin encontrar una solución y en diez minutos tú lo has resuelto. Eres un crack, lo dicho, eternos agradecimientos
  19. En la columna "Azimut", en el apartado superior que corresponde al rango E4:E6, se supone que hay que meter un rumbo, ese rumbo se obtiene de un mapa físico o bien de un mapa virtual tipo google maps o BaseCamp, pero hay que meterlo a mano, y estará entre 0 y 360 grados Una vez introducida la dirección, mediante unos If Then, relaciono esos grados a unas direcciones geográficas tipo norte, sur, este y oeste (NN, NE, EE, SE, SS, SO, OO, NO) En un formulario denominado FM_Flechas, tengo 8 imágenes que apuntan a esas 8 direcciones y a las que denomino con la dirección precedida de l
  20. Pues ya he solucionado la parte 1 En lugar de utilizar el sigueinte código: If Application.Intersect(Target, Range("E4")) Is Nothing Then Exit Sub Else Utilizo el siguiente: If Target.Address = "$E$4" Then código a ejecutar elseif Target.Address = "$E$14" Then código a ejecutar elseif ... end if Ahora sólo me faltaría la parte de utilizar la variable rumbo para elegir la flecha Un saludo
  21. Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Dim rumbo As String If Application.Intersect(Target, Range("E4")) Is Nothing Then Exit Sub Else Set KeyCells = Range("E4") Azi = KeyCells If (Azi >= 0 And Azi <= 20) Then rumbo = "nn" ElseIf (Azi >= 21 And Azi <= 69) Then rumbo = "ne" ElseIf (Azi >= 70 And Azi <= 110) Then rumbo = "ee" ElseIf (Azi >= 111 And Azi <= 159) Then rumbo = "se" ElseIf (Azi >= 160 And Azi &l
×
×
  • Create New...

Important Information

Privacy Policy