Error de compilacion

[Fco. Rubio]

Saludos a todas las personas que participan en este foro y gracias por sus aportaciones.

El problema que tengo es el siguiente, tengo una hoja con dos macros, una para filtrar y otra que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Francamente no he tenido tiempo de revisar tu código, pero por ahora proba haciendo esto

en WORKSHEET_ACTIVATE

ANTES DE


NEXTROW= Application...........

Pon esto

Dim NEXTROW as Long

es decir...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[opermty]

Que es lo que deseas hacer con esa macro ?

 

[opermty]

No se si este codigo te sea util

Sub FindLastRow()
Dim LastRow As Long
If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.
LastRow =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Fco. Rubio]

Saludos galileogali y opermty, gracias por sus respetivas aportaciones, probé las dos y después de varias pruebas opte por modificar la de galileogali (el profe.. como le suelen llamar en el foro...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[KL]

Hola chicos,

Si se admiten optimizaciones/depuraciones del codigo...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If intesect(Target, [A2:D2]) Is Nothing Then...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Fco. Rubio]

opermt, mil disculpas, con razón no entendí­as lo que deseaba hacer con la macro, yo solo mande un archivo excesivamente reducido.
Te enví­o el archivo original, pero con un recorte importante en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Fco. Rubio]

saludos KL, mientras le preparaba el adjunto a opermty, pusiste un CODE, gracias, ahora el tiempo no me da para más, las obligaciones llaman, pero que te quepa duda que sera revisado y provado...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[KL]

Hola de nuevo,

Depurando lo depurado...

Private Sub Worksheet_Change(ByVal Target As Range)
    If intesect(Target, [A2:D2]) Is Nothing Then Exit Sub...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Fco. Rubio]

Hola KL.

Lo siento, depués de probar tu code y trabajar con el no le pude sacar partido, de todas formas agradezco tu colaboración. El problema que yo tenia lo tengo resuelto gracias a la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí