Saltar al contenido

Código se detiene


Recommended Posts

publicado

Buenas tardes, gusto saludarles.

Tengo un problema con el código que del Modulo 2, cuando lo pongo a correr se detiene en la línea:

{ActiveSheet.Range("$X$5:$BD$357").AutoFilter Field:=2, Criteria1:="PC1"}

, y me lleva al Modulo 1, la verdad no encuentro porque se da el error.

Les agradezco si me pueden ayudar.

Saludes desde Costa Rica,

Nota:

No me dejó subir el archivo, tal vez se lo pueda enviar por correo.

publicado

Hola :

Como sabes que se detiene en esa parte del codigo?, te muestra algun mensaje de error en esa linea?

lo mejor seria que subar tu archivo en .zip o .rar para que podamos ayudarte.

Saludos

publicado

Sí, lo fui revisando con "F8", paso a paso, pero en esa linea se va al Modulo 1 y ahí me marca en amarillo la línea del codigo con error, lo raro es que si inactivo todo el código del Modulo 1, el codigo del modulo 2 corre bien, y viceversa.

Ni "Zippeando" me deja subir el archivo, me da un error de peso :(

publicado

Si, es esta:

{Sub MuestraCualiSeguimiento()

Sheets("Informe Cualitativo").Select

With Sheets("Informe Cualitativo")

.Rows("12:26").EntireRow.Hidden = False

.Rows("15:15").EntireRow.Hidden = True

.Rows("18:18").EntireRow.Hidden = True

.Rows("23:24").EntireRow.Hidden = True

.Rows("30:40").EntireRow.Hidden = False

.Rows("48:49").EntireRow.Hidden = False

.Rows("73:74").EntireRow.Hidden = False

End With

Range("D9").Select

Sheets("Portada").Select

End Sub}

publicado

.

Tu macro entra en conflicto con los eventos change de los controles ComboBox1 y ComboBox6, he puenteado estos eventos.

El problema viene derivado de utilizar rangos en la propiedad .ListFillRange de los combobox, ya que estos rangos se ven afectado por el filtro avanzado que efectúas en la macro.

https://dl.dropboxusercontent.com/u/241435/Copia de Ejemplo para consulta de macros.zip

.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.