Run-time error '13': Type mismatch

[mancera117]

Hola soy nuevo en esto pero tengo un problema con una macro que estoy corriendo, la macro se corre al momento de hacer un cambio en la celda (A1) y si funciona la macro pero me aparece el mensaje de Run-time error '13': Type mismatch y pues no se a que se deba esto, si me pueden ayudar se los agradeceria mucho

les dejo el codigo y marcado en rojo donde me aparece el error cuando le doy debug:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells = Range("A1") Then Call prueba

End Sub

Gracias!!

pivottable filters (test)01.zip

[Invitado Cacho R]

... y pues no se a que se deba esto ...

El error lo tienes en "prueba"...

Como no nos has mostrado el archivo nada podemos hacer para ayudarte.

Sólo queda desearte muy feliz Nuevo Año.

Saludos, Cacho R.

[mancera117]

hola Cacho R., ya trate de subir el archivo pero no me deja porque pesa 936KB ya comprimido. :S.... pero eso que dices que mi error lo tengo en "prueba" esa es el nombre de mi macro que estoy llamando, que puedo hacer?

[Invitado Cacho R]

... ya trate de subir el archivo pero no me deja porque pesa 936KB ya comprimido. ¿que puedo hacer?

¿Qué puedes hacer?... ¡Lo que hacen todos! Por ejemplo:

a) Imaginemos que tu archivo tiene una tabla de datos con 10.000 filas: elimínalas todas menos 20.

Imaginemos que tu archivo tiene 50 hojas que utilizas para algún informe de gestión: elimínalas todas menos 2.

c) ¿Tu archivo tiene formatos en sus celdas?... ¡Quítalos todos!

d) ¿Tu archivo tiene imágenes incrustadas en distintas hojas?... ¡Elimínalas todas!

e) ¿Tu archivo tiene muchos UserForm's que no hacen a la cuestión?... ¡No dejes ni uno!

Y así... tienes tantas y tantas opciones para terminar obteniendo un archivo pequeño y manipulable fácilmente. ¡Éxitos!

Cacho R.

[mancera117]

Listo mi buen!! ya subi el archivo deje solo libre lo que se ocupa para dicho procedimiento, escojes una opcion del dropbox y al momento de escojer una opcion deben de ejecutarse las macros, una esta en la hoja4 y la otra en un modulo dentro del VBA..

quedo al pendiente muchas gracias!

[Antoni]

Hola:

Me parece que tienes algo confuso las propiedades y métodos del objeto Range:

[B][SIZE=4][COLOR=#006400]If Target.Address = "$A$1" Then Call prueba[/COLOR][/SIZE][/B][/CODE]

Saludos y feliz año nuevo

PD: Hola Gran Cacho, me ha gustado mucho tu forma de borrar rangos filtrados en TodoExcel

Foro Excel • Ver Tema - Eliminar filas filtradas pero rápido

¡¡ Happy new year !!

[mancera117]

Muchas gracias Macro Antonio en vrdd si me ayudo de mucho tu respuesta, ya funciona!!

tambien a ti Cacho R. muchas gracias por tu tiempo y en querer ayudarme te lo agradezco muchisimo..

gracias a ambos y que tengan un feliz año nuevo y que Dios los bendiga..

saludos!!