............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

UserForm que trabaja en hojas distintas

Ver el tema anterior Ver el tema siguiente Ir abajo

UserForm que trabaja en hojas distintas

Mensaje por ArKaZe el Mar Feb 15, 2011 12:28 pm

Hola estimados, es primera vez que expongo un tema,

Tengo el siguiente problema con un userform. Lo que intento hacer es que un userform alojado en un libro en blanco actue sobre otro libro abierto.

Lo que hago con el userform es ingresar en dos TextBox el día y el mes. y que filtre por esos datos. Primero obtiene el día de la fecha de nacimiento y después filtro por ese dato (obtenido del TextBox1) en este último paso tengo el problema, me arroja este error: "Error en el método AutoFilter de la clase Range"

Este es el código, la frase marcada en rojo es la que me indica al presionar depurar:

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
ActiveSheet.Unprotect

ActiveWorkbook.Sheets("Vista Avanzada").Select
ActiveSheet.Cells(3, 5).Select
'ActiveWindow.FreezePanes = True
ActiveSheet.Rows("2:2").Select
'Selection.AutoFilter

If TextBox1.Value <> "" And TextBox2.Value <> "" Then
Range("co2").Value = "DIA"
Range("co3").Formula = "=day(f3)"
uf = Range("A3").End(xlDown).Row
rango = Range(Cells(4, 93), Cells(uf, 93)).Address
Range("co3").Copy Range(rango)

ActiveSheet.Unprotect

Selection.AutoFilter Field:=91, Criteria1:=TextBox2.Value

Selection.AutoFilter Field:=93, Criteria1:=TextBox1.Value


End If


End Sub

espero me puedan ayudar
muchas gracias!
exelente foro!!

ArKaZe

Cantidad de envíos : 3
Fecha de inscripción : 05/07/2008

Volver arriba Ir abajo

Re: UserForm que trabaja en hojas distintas

Mensaje por moises melgar el Mar Feb 15, 2011 12:57 pm

sube tu archivo para poder tener una mejor apreciacion del asunto
gracias
ahh PD que version de excel utilizas?
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: UserForm que trabaja en hojas distintas

Mensaje por ArKaZe el Mar Feb 15, 2011 1:19 pm

ahí los subí, el archivo2 contiene el userform y el archivo1 los datos que debe filtrar
saludos y gracias

ArKaZe

Cantidad de envíos : 3
Fecha de inscripción : 05/07/2008

Volver arriba Ir abajo

Re: UserForm que trabaja en hojas distintas

Mensaje por GalileoGali el Mar Feb 15, 2011 10:06 pm

En principio te dire que no acostumbro revisar código, porque lleva tiempo de lectura y de pruebas, que no tengo.
pero bueno,
hay cosas en tu código que me resultan imcomprensibles más alla de lo que consultas

Código:
Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
ActiveSheet.Unprotect

Se supone que has activado tu Userform en el archivo donde esta es decir en el 2.
No encontre como activarlo más que yendo a Macros
Supongo que este archivo lo abres para Activar muestra ( la macro)
entonces ActiveSheet es tu Hoja1?????
Idem Activeworkbook, cuando se activó???
ActiveWorkbook.Sheets("Vista Avanzada").Select
activas una celda y despues activas una fila (para que?)
ActiveSheet.Cells(3, 5).Select
'ActiveWindow.FreezePanes = True
ActiveSheet.Rows("2:2").Select
'Selection.AutoFilter
supongo que lo anterior no corre

If TextBox1.Value <> "" And TextBox2.Value <> "" Then
Range("co2").Value = "DIA"

Cargas la Columna 93 con la Palabra DIA
Range("co3").Formula = "=day(f3)"        se entiende
uf = Range("A3").End(xlDown).Row
rango = Range(Cells(4, 93), Cells(uf, 93)).Address
que se supone que tiene que haber en esta columna 93, a mí me da que esta la Palabra DIA en la celda 2 pero a partir de la 4 hasta uf no tengo mas que vacio
Range("co3").Copy Range(rango)
ActiveSheet.Unprotect
Selection.AutoFilter Field:=91, Criteria1:=TextBox2.Value

esta columna 93 ni figura en el autofiltro
Selection.AutoFilter Field:=93, Criteria1:=TextBox1.Value
End If
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: UserForm que trabaja en hojas distintas

Mensaje por ArKaZe el Miér Feb 16, 2011 8:34 am

Gracias por responder tan pronto, me explico para que se logre comprender lo que necesito.

De los dos archivos que subí uno es el que contiene el userform (Archivo2) y el otro archivo contiene datos (Archivo1). El userform alojado en el Archivo2 debe trabajar sobre los datos del Archivo1.

El userform lo muestro con una macro a la cual le asigné la secuencia Ctrl + m

Porqué necesito esto?, debido a que trabajo con alrededor de 30 ejecutivos, los cuales deben llamar a sus clientes para su cumpleaños y cada uno tiene un archivo tal cual como el Archivo1 con la misma estructura de datos.

entonces lo que debe hacer cada ejecutivo es abrir su archivo de clientes y además abrir el archivo con el userform. Luego desde su archivo de clientes presionar Ctrl + m y ejecutar el userform, ingresar dia y mes y luego presionar buscar.

logré que en el archivo de los datos me incrustara los dias, en la columna a la cual la llamé DIA, pero al momento de pedir que filtre por dia y mes me arroja el error

Lo que requiero es filtrar la fecha de cumpleaños de cada cliente de la base (Archivo1) pero sin tener que crear un userform para cada uno de los archivos de cada ejecutivo.

espero haberme explicado mejor

gracias

ArKaZe

Cantidad de envíos : 3
Fecha de inscripción : 05/07/2008

Volver arriba Ir abajo

Re: UserForm que trabaja en hojas distintas

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.