Visual Basic para Aplicaciones - Ayuda, dividir muchos case of en varios sub.

Life is soft - evento anual de software empresarial

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 13:58:12

Hola amigos. Tengo una hoja Word con 4 marcadores. Tras muchas información recopilada de la web, consigo que rellene por marcadores a través de un procedimiento llamado Rellenar, lo que he escrito por código (6550 líneas), a través de un formulario muy simple.

Se lanza el formulario: 6123895a19682_th-Formulario

introduces la vía y el pk y se rellena automáticamente (por marcadores) la propia vía y el pk mas la denominación, el termino y el partido.
61238971ae26e_th-Frase-con-marcadores

Subo dos hojas Word, aparentemente con el mismo código. La que funciona y la que no.
El que funciona perfectamente, llega un momento en que no puedo ejecutar porque se pasa de 64 kb y salta el error "Error de compilación: Procedimiento demasiado largo". Es a partir del Select Case, pero es que necesito todos.

Lo que he hecho es partir todo ese código Select Case (6550 líneas) en procedimientos sub: Aux1, Aux2,... que es la otra hoja Word (la que no funciona) y no se cuelga pero...
aquí me viene el problema. No se como hacer para que el evento CommandButton1_Click (que es desde donde se ejecuta el procedimiento "Rellenar" marcadores, lea cada uno de estos subprocedimientos y luego se ejecute como el primer Word.

Que tengo que hacer, ¿declarar una variable para todos los Sub Aux y después recorrerlos con un For? Es que no se como se hace o hay otra forma sin modificar demasiado el codigo.
Noto que el problema lo tengo en Select Case sVia, pues queda dentro del procedimiento CommandButton
61238abb4e70d_th-Funciona

y en el que no funciona, tengo el Select Case dentro del procedimiento Aux1 y siguientes
61238ad35418b_th-No-funciona

Nota: el Word que SI funciona, desde la linea 160 en adelante, la he marcado como comentarios para que no os salga el error y podáis probar el formulario.

Gracias anticipadas.
Como no se ven bien las miniaturas, las subo aqui en el orden en que aparecen:

FORMULARIO

FRASE DONDE TRABAJA EL FORMULARIO
Frase-con-marcadores

CODIGO DEL WORD QUE SI FUNCIONA

CODIGO QUE NO CONSIGO QUE FUNCIONE EN EL OTRO WORD
No-funciona

VIAS.rar(366,9 KB)

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 23/08/2021 15:17:05

Hola:

Entiendo que el problema que tienes es que el Select Case tiene muchas opciones y se desborda. Por eso, has separado el Select Case en otra función y ésta no te funciona.

Doy por hecho que no quieres usar una base de datos, ¿no? Sería lo ideal.

Puedes usar un fichero de texto, abrir el fichero y buscar línea a línea hasta el final.

Ambas opciones usan menos memoria.

Si no es el caso, puedes hacer más de un Select Case. Por ejemplo, sin tener ni idea de los datos que manejas, preguntas si sVia empieza por "A" y lo mandas a una función AuxA(); si empieza por "B" lo envías a AuxB() así creas funciones más manejables.

Un saludo.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 15:56:17

"Entiendo que el problema que tienes es que el Select Case tiene muchas opciones y se desborda. Por eso, has separado el Select Case en otra función y ésta no te funciona.

Doy por hecho que no quieres usar una base de datos, ¿no? Sería lo ideal. No, no quiero usar nada externo, porque no se. Quiero evitar archivos extra, solo el word.

Puedes usar un fichero de texto, abrir el fichero y buscar línea a línea hasta el final.

Ambas opciones usan menos memoria.

Si no es el caso, puedes hacer más de un Select Case. Por ejemplo, sin tener ni idea de los datos que manejas, preguntas si sVia empieza por "A" y lo mandas a una función AuxA(); si empieza por "B" lo envías a AuxB() así creas funciones más manejables.

Un saludo."

No puede ser tan dificil. ¿no es mejor crear modulos Modulo1, Modulo2, etc e ir poniendo en cada uno unos 100, 155 Select Case? Y luego desde el CommandButton ir llamandolos para que lea la informacion. Esto no se hacerlo. No encuentro informacion con ejemplos en la red. Son todo programas muy cortos o en excel.

He subido los dos Word para que me ayudeis con el codigo necesario, lo probeis y tal, al menos una prueba con un par de select case y que funcione. Yo adaptaria el resto.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 23/08/2021 17:59:36

Hola:

Puedes hacer esta llamada:

Case Is = "AP-15"

        Dim carretera As New AP15

        If Not carretera.Procesar(lPK) Then

            MsgBox ("Error")

        End If

Y crear una clase de nombre "AP15" con éste método:

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

Public Function Procesar(ByVal lPK As String) As Boolean

    ' Retorno por defecto

    Procesar = True

Utiles.Rellenar "denominacion", "Autopista de Navarra"

                If lPK >= 0 And lPK <= 1.225 Then

                        Utiles.Rellenar "termino", "Corella"

                        Utiles.Rellenar "partido", "Tudela"

                End If

                If lPK > 1.226 And lPK <= 1.325 Then

MsgBox "Aqui debes Utiles.Rellenar manualmente el Término Municipal, pues coinciden los pk,s. Verifica si es Calzada Norte Tudela o Calzada Sur Corella"

                        Utiles.Rellenar "partido", "Tudela"

                End If

                If lPK > 1.326 And lPK <= 1.8 Then

                        Utiles.Rellenar "termino", " Tudela"

                        Utiles.Rellenar "partido", "Tudela"

                End If

                If lPK > 1.801 And lPK <= 1.845 Then

MsgBox "Aqui debes Utiles.Rellenar manualmente el Término Municipal, pues coinciden los pk,s. Verifica si es Calzada Norte Tudela o Calzada Sur Corella"

                        Utiles.Rellenar "partido", "Tudela"

                End If

                If lPK > 1.846 And lPK <= 4.045 Then

                        Utiles.Rellenar "termino", "Corella"

                        Utiles.Rellenar "partido", "Tudela"

                End If

                If lPK > 4.046 And lPK <= 10.45 Then

                        Utiles.Rellenar "termino", "Castejón"

                        Utiles.Rellenar "partido", "Tudela"

                End If

                If lPK > 10.451 And lPK <= 14.75 Then

                        Utiles.Rellenar "termino", "Valtierra"

                        Utiles.Rellenar "partido", "Tudela"

                End If

                If lPK > 14.751 And lPK <= 19.25 Then

                        Utiles.Rellenar "termino", "Cadreita"

                        Utiles.Rellenar "partido", "Tudela"

                End If

                If lPK > 19.251 And lPK <= 26.375 Then

                        Utiles.Rellenar "termino", "Villafranca"

                        Utiles.Rellenar "partido", "Tudela"

                End If

                If lPK > 26.376 And lPK <= 29.925 Then

                        Utiles.Rellenar "termino", "Marcilla"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                If lPK > 29.926 And lPK <= 34.55 Then

                        Utiles.Rellenar "termino", "Peralta"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                If lPK > 34.551 And lPK <= 34.63 Then

MsgBox "Aqui debes Utiles.Rellenar manualmente el Término Municipal, pues coinciden los pk,s. Verifica si es Calzada Norte Marcilla o Calzada Sur Peralta"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                If lPK > 34.631 And lPK <= 37.05 Then

                        Utiles.Rellenar "termino", "Marcilla"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                 If lPK > 37.051 And lPK <= 37.6 Then

                        Utiles.Rellenar "termino", "Fallces"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                 If lPK > 37.601 And lPK <= 47.85 Then

                        Utiles.Rellenar "termino", "Olite"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                 If lPK > 47.851 And lPK <= 54.95 Then

                        Utiles.Rellenar "termino", "Tafalla"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                 If lPK > 54.951 And lPK <= 54.99 Then

MsgBox "Aqui debes Utiles.Rellenar manualmente el Término Municipal, pues coinciden los pk,s. Verifica si es Calzada Norte Tafalla o Calzada Sur Pueyo"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                 If lPK > 54.991 And lPK <= 60.365 Then

                        Utiles.Rellenar "termino", "Pueyo"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                 If lPK > 60.366 And lPK <= 60.765 Then

                        Utiles.Rellenar "termino", "Leoz"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                 If lPK > 60.766 And lPK <= 62 Then

                        Utiles.Rellenar "termino", "Garinoain"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                 If lPK > 62.001 And lPK <= 63.24 Then

                        Utiles.Rellenar "termino", "Barasoain"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                 If lPK > 63.241 And lPK <= 66.285 Then

                        Utiles.Rellenar "termino", "Oloriz"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                If lPK > 66.286 And lPK <= 68.6 Then

                        Utiles.Rellenar "termino", "Unzue"

                        Utiles.Rellenar "partido", "Tafalla"

                End If

                If lPK > 68.601 And lPK <= 76.1 Then

                        Utiles.Rellenar "termino", "Tiebas-Muruarte de Reta"

                        Utiles.Rellenar "partido", "Aoiz"

                End If

                If lPK > 76.101 And lPK <= 82.34 Then

                        Utiles.Rellenar "termino", "Elorz"

                        Utiles.Rellenar "partido", "Aoiz"

                End If

                If lPK > 82.341 And lPK <= 83 Then

                        Utiles.Rellenar "termino", "Aranguren"

                        Utiles.Rellenar "partido", "Aoiz"

                End If

                If lPK > 83.001 And lPK <= 101.72 Then

                        Utiles.Rellenar "termino", "Berrioplano"

                        Utiles.Rellenar "partido", "Pamplona"

                End If

                If lPK > 101.721 And lPK <= 108.405 Then

                        Utiles.Rellenar "termino", "Iza"

                        Utiles.Rellenar "partido", "Pamplona"

                End If

                If lPK > 108.406 And lPK <= 112.15 Then

                        Utiles.Rellenar "termino", "Araquil"

                        Utiles.Rellenar "partido", "Pamplona"

                End If

                If lPK > 112.151 Then

MsgBox "Introduce un punto kilometrico menor que 112,151"

                End If

End Function

Y hacer lo mismo con cada carretera. Una clase por carretera.

Puedes hacerlo con módulos (uno por carretera) en lugar de con clases.

Por cierto, he creado un módulo "Utiles" que contiene la función "Rellenar" para sacarla del módulo principal, pero puedes hacerlo como quieras.

Un saludo

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 18:11:46

Santiago ¿lo ha probado usted en el word que he subido? Le pido por favor que lo implemente usted, porque la verdad, estoy aprendiendo y no domino mucho, voy cogiendo ideas de aqui y de alli.
Ni se donde tengo que poner la llamada:

Case Is = "AP-15"

        Dim carretera As New AP15

        If Not carretera.Procesar(lPK) Then

            MsgBox ("Error")

           End If

Ni la clase con el metodo.
Si me hace usted el favor, yo seguiria con el resto.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 23/08/2021 18:18:30

Hola:

Sí, claro que lo he hecho. Lo adjunto. El Word y los módulos que he tocado aparte (aunque ya están en el Word).

Y no me llames de ud., por favor.

Cualquier duda, pregunta.

Un saludo.

VIAS.zip(173,3 KB)

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 18:33:10

Perfecto. Muchísimas gracias. Lo voy probando y te digo.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 18:15:31

Me dices que has creado un módulo "Útiles", ¿has subido el archivo? Es que no lo veo para descargar.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 23/08/2021 18:18:53

Te acabo de enviar todo.

Saludos.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 19:35:55

Santiago, una duda.

Tengo dentro del larguísimo Select Case, varios Case que no ocupan tantas líneas como el "AP-15".

Te pongo una de esas partes y me dices si se pueden poner varios en una clase, por ejemplo, con el nombre de clase NA25, para no tener que hacer tantas clases:

  '*******  NA-2591  ZIGA *******'

Case Is = "NA-2591"

Rellenar "denominacion", "ZIGA"

Rellenar "partido", "Pamplona"

                If lPK >= 0 And lPK <= 0.625 Then

                        Rellenar "termino", "Baztan"

                End If

                If lPK >= 0.626 Then

MsgBox "Introduce un punto kilometrico MENOR que 0,626"

                End If

                  '*******  NA-2592  BERROETA *******'

Case Is = "NA-2592"

Rellenar "denominacion", "BERROETA"

Rellenar "partido", "Pamplona"

                If lPK >= 0 And lPK <= 0.35 Then

                        Rellenar "termino", "Baztan"

                End If

                If lPK >= 0.351 Then

MsgBox "Introduce un punto kilometrico MENOR que 0,351"

                End If

                '*******  NA-2594  GARTZAIN *******'

Case Is = "NA-2594"

Rellenar "denominacion", "GARTZAIN"

Rellenar "partido", "Pamplona"

                If lPK >= 0 And lPK <= 1.19 Then

                        Rellenar "termino", "Baztan"

                End If

                If lPK >= 1.191 Then

MsgBox "Introduce un punto kilometrico MENOR que 1,191"

                End If

Y por ultimo, ¿cuantas lineas de codigo podria poner en cada clase aproximadamente? ¿100,200 lineas?

Un saludo.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 20:14:24

AP-15 es esta solamente:

6123e2ee5b0f3_th-AP-15

Y las que no ocupan tanto codigo:

6123e325067d3_th-Agrupar

Estas interesaria el ir agrupandolas en una clase (NA-4445, NA-4453, NA-4456, NA-4457 como has hecho con AP-15:
Agrupar

Aui te pongo la parte de codigo de esas vias:

*******   NA-4445   ARRAZKAZAN (BARRIO)    *******    '

'Case Is = "NA-4445"

'Rellenar "denominacion", "ARRAZKAZAN (BARRIO)"

'Rellenar "partido", "Pamplona"

'                If lPK >= 0 And lPK < 1.48 Then

'                        Rellenar "termino", "Baztan"

'                End If

'                 If lPK >= 1.481 Then

'MsgBox "Introduce un punto kilometrico MENOR que 1,481"

'                End If

'                     *******   NA-4453   MUGAIRI - OTXONDO - ORABIDEA    *******    '

'Case Is = "NA-4453"

'Rellenar "denominacion", "MUGAIRI - OTXONDO - ORABIDEA"

'Rellenar "partido", "Pamplona"

'                If lPK >= 0 And lPK < 27.38 Then

'                        Rellenar "termino", "Baztan"

'                End If

'                 If lPK >= 27.381 Then

'MsgBox "Introduce un punto kilometrico MENOR que 2,381"

'                End If

                    '  *******   NA-4456   ZUAZTOI    *******    '

'Case Is = "NA-4456"

'Rellenar "denominacion", "ZUAZTOI"

'Rellenar "partido", "Pamplona"

'                If lPK >= 0 And lPK < 1.12 Then

'                        Rellenar "termino", "Baztan"

'                End If

'                 If lPK >= 1.121 Then

'MsgBox "Introduce un punto kilometrico MENOR que 1,121"

'                End If

                 '  *******   NA-4457   AZPILKUETA    *******    '

'Case Is = "NA-4457"

'Rellenar "denominacion", "AZPILKUETA"

'Rellenar "partido", "Pamplona"

'                If lPK >= 0 And lPK < 2.1 Then

'                        Rellenar "termino", "Baztan"

'                End If

'                 If lPK >= 2.101 Then

'MsgBox "Introduce un punto kilometrico MENOR que 2,101"

'                End If

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 23/08/2021 20:18:05

Hola:

Por supuesto que se puede. Crea esa clase "NA25" y metes todos los Select case que quieras.

En cuanto al número de líneas, no creo que exista un número exacto, pero existe un principio que es el de "Single Responsability Principle (SRP) (Principio de responsabilidad única)" según el cual una clase no debe hacer más que una cosa, por lo que deberían constar de pocas líneas.

Por otro lado, al dividir en clases o módulos más pequeños, se suele evitar repetir código y es más facil de mantener.

Saludos.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 21:08:05

Santiago, revisame el codigo. No me funciona agrupar cuatro vias en una clase. Si me resuelves esto, tema SOLUCIONADO.

Una pregunta Santiago. porque ahora aparecen cuatro archivos mas (AP15.cls formulario.frm, formulario.frx y Utiles.bas), aparte de la plantilla Word.

Otra duda, la variable "carretera", no puedo repetirla en los siguientes cases. ¿Es correcto que use el nombre la via para declarar su variable? Ten en cuenta que ahi, en ese bloque, van a ir unos cuantos Cases.

Captura

VIAS2.rar(172,8 KB)

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 23/08/2021 21:23:42

Hola:

Ya lo tienes.

En el caso de las clases AP15 y AP68, como sólo sirven para una Vía (la AP15 y la AP68) no necesitan más que el PK, pero la clase NA25 necesita saber, además, la Via, por lo que hay que pasarla como parámetro y, además, crear el Select Case de dicha vía.

Con respecto a los cuatro ficheros más que te aparecían es porque, además del documento de Word, te envié los ficheros exportados, pero sobran completamente porque estan en el Word.

Saludos.

VIAS2.zip(172,3 KB)

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 22:04:24

Santiago, al introducir los datos en el formulario, solo "agarra" bien la primera de las cuatro carreteras, la NA-4445. Las otras tres no rellena la denominacion, el termino y el partido.

FUNCIONA.rar(149,7 KB)

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 23/08/2021 22:16:50

Por supuesto, para eso estamos.

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Ayuda, dividir muchos case of en varios sub.

Publicado por Antoni Masana (498 intervenciones) el 23/08/2021 22:19:08

Buenas noches Gorka,

No se exactamente que haces pero hubiese siro más facíl con el Excel y crear una tabla y a partir de ahí hacer el código pero como ya esta hecho que le vamos a hacer.

Te adjunto la Tabla Excel para que tengas una idea de lo que explico y el libro.
Dale un vistazo al código.
Mañana me leeré los comentarios de los compañeros y seguimos hablando.

Saludos.
\\//_

Modificado-Probar.zip(124,4 KB)
Tabla_Excel.zip(101,7 KB)

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 22:21:54

Algo falta aqui creo yo:

imagen

Porque solo carga el valor del case (NA-4445), no entra dentro de la clase NA25 y coge la NA-xxxx pedida.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 22:24:53

Se agradece Antoni. No lo hago con excel porque lo que os muestro es un Word en el que trabaja mucha gente. De todas maneras, esta practiacamente implementado, gracias a Santiago. Solo quedan unos flecos por cortar.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 22:34:18

Antoni, el word "modificado-probar" no rellena los marcadores "denominacion", "termino" y "partido".
De todas maneras, es impresionante. Me gusta la estructura. ¿Puedes conseguir que rellene dichos marcadores y lo haga correctamente?

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 23/08/2021 22:46:54

Por supuesto. Hay que incluir todas las carreteras que llaman a esa clase:

         ' GRUPO NA25, SON 4 CARRETERAS  '

         Case Is = "NA-4445", "NA-4453", "NA-4456", "NA-4457"

            Dim objNA25 As New NA25

            If Not objNA25.Procesar(sVia, lPK) Then

                MsgBox "Error"

            End If

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 22:47:42

Antoni, si tienes tiempo, ya me explicaras como harías con una tabla Excel y luego pasar los datos a código y que se rellene los marcadores de Word.
La idea es automatizar esa pequeña frase. A mis compañeros y a mi, en nuestro trabajo diario, nos pasan puntos kilométricos (pk) de una carretera.
Nos lleva mucho tiempo localizar en distintas fuentes, a que término y partido pertenece y como se denomina ese tramo de vía (denominacion). Esos son los marcadores que quiero automatizar, nos ahorraría muchísimo tiempo introducir solo el pk y la carretera y que el programa rellene lo demás.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 22:48:03

Que grande eres.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 23/08/2021 22:50:31

QUE GRANDE ERES Y QUE FACIL LO HACES.

"Por supuesto. Hay que incluir todas las carreteras que llaman a esa clase:"

' GRUPO NA25, SON 4 CARRETERAS  '

         Case Is = "NA-4445", "NA-4453", "NA-4456", "NA-4457"

            Dim objNA25 As New NA25

            If Not objNA25.Procesar(sVia, lPK) Then

                MsgBox "Error"

            End If

Me da error de sintaxis.

Prueba.rar(150,8 KB)

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 23/08/2021 23:30:50

Te faltan unas comillas en "NA-4456"

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 00:01:59

Es verdad, gracias.

Oye, voy a pedirte una cosa mas, aunque no me urge. SI te fijas en la foto, en rojo marco la coincidencia entre donde acaba un tramo y empieza el otro, pero uno pertenece a:
T.Municipal: Noain-Valle de Elor. Partido Judicial:Aoiz
T.Municipal: Beriain. Partido Judicial: Pamplona.

Y en azul marco dos tramos que coinciden exactamente pero lo mismo, uno a Aoiz y otro a Pamplona.

Me gustaria crear un form que se lance si se da el caso de que un compañero, introduzca el punto kilometrico en cuestion y le de a elegir opciones. ¿es facil crear este formulario extra?

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 00:10:24

¿Como puedo evitar que nadie toque el codigo? Que no lo puedan ver o editar.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 24/08/2021 01:04:46

Hola:

Aquí lo tienes.

- He creado una función "GetTerminoPartido" en el módulo "Utiles" a la cual se le llama cuando se cumplen las premisas que indicas (Prueba con N-121 y 8,425)
- He creado un formulario "frmGetTerminoPartido" que pide al usuario que indique el término y el partido en este caso.

Me temo que estás entrando en temas que lo mismo para ti son complicados. Cualquier duda, ya sabes, pregunta.

Un saludo.

FUNCIONA.zip(20,0 KB)

Valora esta respuesta

-1

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 09:59:50

Hola Santiago, buenos dias. Este ultimo arreglo, no hay nada dentro. Fijate el tamaño, 20 KB.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 24/08/2021 11:00:17

Perdona, se me fue la pinza. Tengo un lio tremendo de ficheros con el mismo nombre.

Lo adjunto.

VIAS_20210824_0104.zip(174,6 KB)

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 11:37:10

Buenas noches Gorka,

No se exactamente que haces pero hubiese siro más facíl con el Excel y crear una tabla y a partir de ahí hacer el código pero como ya esta hecho que le vamos a hacer.

Te adjunto la Tabla Excel para que tengas una idea de lo que explico y el libro.
Dale un vistazo al código. ¿Como has hecho para escribir tan rapido el codigo en "Modificado-Probar"?, estoy impresionado.
Mañana me leeré los comentarios de los compañeros y seguimos hablando.

Saludos.
\\//_

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 11:42:56

Me temo que estás entrando en temas que lo mismo para ti son complicados. Cualquier duda, ya sabes, pregunta.

Te estoy super agradecido Santiago. A ver, he ido mirando mucha documentación, foros, webs y demás. Algo voy entendiendo de VBA, pero me quejo porque lo que veo son trozos muy cortos de programas sencillitos.
¿Algún consejo de donde pueda proveerme de conocimientos de calidad?

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 24/08/2021 11:59:59

Hola, Gorka:

Quéjate todo lo que quieras, estás en tu derecho y es bueno. Si buscas en internet VBA y PDF verás mogollon de documentación. Suele ser de Excel, porque es lo más usado en VBA, pero vale practicamente para Word.

Haz muchos ejercicios, aunque sean tontos, y pregúntate cómo hacer tal y cuál cosa e inténtalo. Es lo mejor. Y pregunta todo lo que quieras.

Te adjunto un PDF de VBA y un enlace a otro que fue mi manual de Visual Basic 6 (Visual Basic es la base de VBA) Éste último manual es muy extenso, por eso no te lo envío sino que te mando el enlace, pero es importante que entiendas cómo funciona VB, es decir, la base: variables, paso de variables, matrices, funciones...

Yo empezaría por la página 23, poco a poco, hasta la 222. Luego desde la 445 hasta la 522.
Otra opción es tener este PDF, que es un tocho, a modo de consulta y empezar por el otro PDF de VBA.

Eso depende de tí.

Encantado de ayudar a todo el que quiera. Estoy en este foro y en otros. Yo mismo muchas veces pregunto; es lo bueno de los foros. La ayuda colectiva.

Un saludo.

https://jvmr2012.files.wordpress.com/2014/12/programacion-con-visual-basic-6-grupo-eidos.pdf

macrosVisualBasicParaExcel.zip(1,1 MB)

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 12:18:13

Muchísimas gracias, eres un fiera.

¿Tienes idea de cómo ha hecho Antoni para meter el código tan rápido en su Word "Modificar-Probar"?

Me ahorraría muchísimo tiempo introducir el resto de carreteras que me quedan... casi la mitad.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Santiago (19 intervenciones) el 24/08/2021 13:38:23

No, la verdad es que no.

Supongo que habrá creado alguna macro o algo así. En este caso, Antoni debe iluminarnos.

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Ayuda, dividir muchos case of en varios sub.

Publicado por Antoni Masana (498 intervenciones) el 24/08/2021 13:39:07

Te adjunto un documento Word explicando como crear una tabla para la consulta.

Saludos.
\\//_

Vias-Doc.zip(22,8 KB)

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 13:50:01

¿Y como has hecho para pasar de excel al word todo ese codigo? Porque he revisado el excel, veo las tablas que has creado pero no se como consigues pasarlo a procedimiento en el word:

Sub Aux_01()

    Select Case sVia

        ' ---&---  AP-15   AUTOPISTA DE NAVARRA

        Case Is = "AP-15"

                              Rellenar "denominacion", "Autopista de Navarra"

            If lPK >= 0 And lPK <= 1.225 Then Rellenar "termino", "Corella": Rellenar "partido", "Tudela"

            If lPK > 1.226 And lPK <= 1.325 Then Rellenar "partido", "Tudela": MsgBox "Aqui debes rellenar manualmente el Término Municipal, pues coinciden los pk,s. Ver    Ifica si es Calzada Norte Tudela o Calzada Sur Corella"

            If lPK > 1.326 And lPK <= 1.8 Then Rellenar "termino", " Tudela": Rellenar "partido", "Tudela"

            If lPK > 1.801 And lPK <= 1.845 Then Rellenar "partido", "Tudela": MsgBox "Aqui debes rellenar manualmente el Término Municipal, pues coinciden los pk,s. Ver    Ifica si es Calzada Norte Tudela o Calzada Sur Corella"

            If lPK > 1.846 And lPK <= 4.045 Then Rellenar "termino", "Corella": Rellenar "partido", "Tudela"

            If lPK > 4.046 And lPK <= 10.45 Then Rellenar "termino", "Castejón": Rellenar "partido", "Tudela"

            If lPK > 10.451 And lPK <= 14.75 Then Rellenar "termino", "Valtierra": Rellenar "partido", "Tudela"

            If lPK > 14.751 And lPK <= 19.25 Then Rellenar "termino", "Cadreita": Rellenar "partido", "Tudela"

            If lPK > 19.251 And lPK <= 26.375 Then Rellenar "termino", "Villafranca": Rellenar "partido", "Tudela"

            If lPK > 26.376 And lPK <= 29.925 Then Rellenar "termino", "Marcilla": Rellenar "partido", "Tafalla"

            If lPK > 29.926 And lPK <= 34.55 Then Rellenar "termino", "Peralta": Rellenar "partido", "Tafalla"

            If lPK > 34.551 And lPK <= 34.63 Then Rellenar "partido", "Tafalla": MsgBox "Aqui debes rellenar manualmente el Término Municipal, pues coinciden los pk,s. Ver    Ifica si es Calzada Norte Marcilla o Calzada Sur Peralta"

            If lPK > 34.631 And lPK <= 37.05 Then Rellenar "termino", "Marcilla": Rellenar "partido", "Tafalla"

            If lPK > 37.051 And lPK <= 37.6 Then Rellenar "termino", "Fallces": Rellenar "partido", "Tafalla"

            If lPK > 37.601 And lPK <= 47.85 Then Rellenar "termino", "Olite": Rellenar "partido", "Tafalla"

            If lPK > 47.851 And lPK <= 54.95 Then Rellenar "termino", "Tafalla": Rellenar "partido", "Tafalla"

            If lPK > 54.951 And lPK <= 54.99 Then Rellenar "partido", "Tafalla": MsgBox "Aqui debes rellenar manualmente el Término Municipal, pues coinciden los pk,s. Ver    Ifica si es Calzada Norte Tafalla o Calzada Sur Pueyo"

            If lPK > 54.991 And lPK <= 60.365 Then Rellenar "termino", "Pueyo": Rellenar "partido", "Tafalla"

            If lPK > 60.366 And lPK <= 60.765 Then Rellenar "termino", "Leoz": Rellenar "partido", "Tafalla"

            If lPK > 60.766 And lPK <= 62 Then Rellenar "termino", "Garinoain": Rellenar "partido", "Tafalla"

            If lPK > 62.001 And lPK <= 63.24 Then Rellenar "termino", "Barasoain": Rellenar "partido", "Tafalla"

            If lPK > 63.241 And lPK <= 66.285 Then Rellenar "termino", "Oloriz": Rellenar "partido", "Tafalla"

            If lPK > 66.286 And lPK <= 68.6 Then Rellenar "termino", "Unzue": Rellenar "partido", "Tafalla"

            If lPK > 68.601 And lPK <= 76.1 Then Rellenar "termino", "Tiebas-Muruarte de Reta": Rellenar "partido", "Aoiz"

            If lPK > 76.101 And lPK <= 82.34 Then Rellenar "termino", "Elorz": Rellenar "partido", "Aoiz"

            If lPK > 82.341 And lPK <= 83 Then Rellenar "termino", "Aranguren": Rellenar "partido", "Aoiz"

            If lPK > 83.001 And lPK <= 101.72 Then: Rellenar "termino", "Berrioplano": Rellenar "partido", "Pamplona"

            If lPK > 101.721 And lPK <= 108.405 Then Rellenar "termino", "Iza": Rellenar "partido", "Pamplona"

            If lPK > 108.406 And lPK <= 112.15 Then Rellenar "termino", "Araquil": Rellenar "partido", "Pamplona"

            If lPK > 112.151 Then MsgBox "Introduce un punto kilometrico menor que 112,151"

        '---&--- AP-68 AUTOPISTA VASCO--ARAGONESA'

        Case Is = "AP-68"

                              Rellenar "denominacion", "Autopista Vasco-Aragonesa"

            If lPK >= 0 And lPK <= 116.449 Then MsgBox "Introduce un punto kilometrico mayor que 116,449"

            If lPK >= 166.901 And lPK <= 201.649 Then MsgBox "Este pk no pertenece a Navarra"

            If lPK >= 116.5 And lPK <= 166.9 Then Rellenar "termino", "Lodosa": Rellenar "partido", "Estella"

            If lPK >= 201.65 And lPK <= 209.075 Then Rellenar "termino", "Corella": Rellenar "partido", "Tudela"

            If lPK > 209.076 And lPK <= 212.35 Then Rellenar "termino", "Tudela": Rellenar "partido", "Tudela"

            If lPK > 212.351 And lPK <= 218.425 Then Rellenar "termino", "Murchante": Rellenar "partido", "Tudela"

            If lPK > 218.425 And lPK <= 218.64 Then Rellenar "termino", "Tudela": Rellenar "partido", "Tudela"

            If lPK > 218.426 And lPK <= 220 Then Rellenar "termino", "Cascante": Rellenar "partido", "Tudela"

            If lPK > 220.001 And lPK <= 222.3 Then Rellenar "termino", "Tudela": Rellenar "partido", "Tudela"

            If lPK > 222.301 And lPK <= 227.435 Then Rellenar "termino", "Fontellas": Rellenar "partido", "Tudela"

            If lPK > 227.436 And lPK <= 229.94 Then Rellenar "termino", "Ablitas": Rellenar "partido", "Tudela"

            If lPK > 229.941 And lPK <= 232.46 Then Rellenar "termino", "Ribaforada": Rellenar "partido", "Tudela"

            If lPK > 232.461 And lPK <= 234.7 Then Rellenar "termino", "Ablitas": Rellenar "partido", "Tudela"

            If lPK > 234.701 And lPK <= 237.06 Then Rellenar "termino", "Cortes": Rellenar "partido", "Tudela"

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 13:52:13

Todavia voy por la pagina 77 del pdf "Terminos y kilometros", acabo de tipear la NA-5410.

Me quedan muchas paginas, muchas carreteras.

Estoy usando esta estructura.

formulario.rar(24,4 KB)

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Ayuda, dividir muchos case of en varios sub.

Publicado por Antoni Masana (498 intervenciones) el 24/08/2021 14:19:45

Para convertir todo este código en una tabla Excel utilizo varias herramientas, por un lado un editor de texto bastante bueno que se llama UltraEdit y una herramienta de programación para tratar ficheros de texto donde puedo seleccionar y filtrar las partes del texto que me interesan y montar un fichero que importo al excel para tener la tabla.

El primer intento no es exactamente el bueno porque no sabia que datos manejas ni como estaban organizados, ahora me seria mas facil montar una tabla como la del documento que te he enviado.

Si te interesa tenerla intento hacerla, pero después tendrás que revisarla.

Saludos.
\\//_

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 14:33:20

Anda por favor, a ello. Ya la revisaré después.

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 16:33:45

Pásame, sino te importa, el nombre de los otros programas. La herramienta de programación para tratar ficheros de texto.
A ver si aprendo yo también.

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Ayuda, dividir muchos case of en varios sub.

Publicado por Antoni Masana (498 intervenciones) el 24/08/2021 18:27:29

Dale un vistazo a esta Base de datos.

A partir de esta tabla la consulta es mucho más simple.

Saludos.
\\//_

Vias-Base-de-Datos.zip(73,5 KB)

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 19:52:48

Perdona Antoni, igual no me he explicado bien. Hasta esa carretera, ya la tengo metida en el word, a mano.

Voy por esta parte LA NA-6000, de este pdf que te adjunto, de ahi saco saco los datos. Me falta de la NA-6000 hasta la NA-871, ultima pagina.

Captura

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 24/08/2021 21:32:23

Santiago, lo tengo super adelantado. Echale un vistazo, por favor, el marcador "denominacion" no se rellena.
Vale, creo que se habia eliminado el marcador en si.

Denominacion.rar(261,4 KB)

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 25/08/2021 13:45:33

Buenos días Antoni. ¿Podrías enseñarme a pasar los datos del pdf a la tabla?

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Ayuda, dividir muchos case of en varios sub.

Publicado por Antoni Masana (498 intervenciones) el 25/08/2021 17:38:19

Para pasar los datos de un PDF a la tabla hace falta que el PDF te permita seleccionar y copiar el texto.
Para generar la tabla que te he pasado he utilizado una herramienta de programación que se llama MAWK.exe con un pequeño programa que lo que hace es leer tu código del VBA del documento WORD genera un fichero de texto y después lo importo al Excel.

Saludos.
\\//_

Valora esta respuesta

Comentar

Ayuda, dividir muchos case of en varios sub.

Publicado por Gorka (42 intervenciones) el 26/08/2021 23:47:36

Santiago, Antoni. Ya lo tengo, perfecto.
Oye, ya que estoy, he mirado que le puedo añadir al formulario: un gif, he añadido ya el control de formulario "Internet web browser" y aparte, un label o textbox con texto en movimiento tipo scroll, como los créditos finales de las películas. Una label donde va apareciendo de abajo a arriba un texto.
¿Sabéis cómo?

Valora esta respuesta

Comentar

¿Mover palabras en etiqueta de derecha a izquierda?

Ayuda con una llamada a una macro en VB desde excel