UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Invitado


Invitado
Buenas tardes
Me encanta el Luishc-Filtro3.zip, pero no puedo acoplarlo.
El archivo de muestra real esta en esta direccion, porque es demasiado pesado, tal cual es :
http://luishc.eresmas.com/Luishc-Filtro4.zip
Como veis en la Hoja, Listado2 , he agregado dos columnas a la izquierda, para fecha y fabricante, todo perfecto.
Pero al hacerlo en la hoja, Listado , la tengo complicado y creo que no se puede, yo por lo menos no puedo.
En la columna, B, me pone la fecha.
Y en las columnas, C, D y E, melas pone en mayusculas.
Trastead si puedeis las macros, y vereis que esta dificil.
Pero si le dais a la macro que esta en azul, vereis como se abre la hoja.
Y si os vais a la hoja, Adra Paco, le poneis una referencia, por ejemplo "f930",  en el precio te da 4 opciones.
Si lo ves complicado, dejalo
Un saludo

Igtelo


Hola Luis.

No entiendo tu proyecto ni lo puedo estar checando. Tú lo conoces bien, corre por pasos tus macros y ve en que estás dando mal la instrucción para que puedas adaptar y/o corregir.

Saludos
Ignacio Téllez

Invitado


Invitado
Hola Ignacio
Haber si puedo explicartelo bien.
Lo he intentado cambiar en los pasos que mas necesito.
1º/  En la celda "D5" : Que sea la celda que ponga la referencia.
2º/  En la celda "D6" : Esta la palabra "CODIGO"
3º/  La selecion de la columna a mostrar la selecion sea en la "8"
4º/  Y el rango a buscar sea "[B2:H2]"
Yo he intentado cambiarlo ;
'Private Sub CommandButton1_Click()
'Buscar.Show
'End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
[D5] = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B5:H5]) Is Nothing Then Exit Sub
Call Filtra
End Sub

Y en el modulo:
Sub Filtra()
'
Range("D6").Select
Range("tabla").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("criterio"), Unique:=False
End Sub

Sub Desfiltra()
ActiveSheet.ShowAllData
End Sub
Pero no me funciona.
El archivo de muestra real esta en esta direccion, porque es demasiado pesado, tal cual es, le he quitado todo, menos tu trabajo anterior :
http://luishc.eresmas.com/Luishc-Filtro4.zip
Un saludo Ignacio

Igtelo


Hola Luis.

Te adjunto algo, espero te sirva, no entiendo nada, si hubieses puesto un ejemplo tal vez... Lee Recomendaciones para hacer preguntas.

Saludos y suerte.
Ignacio Téllez
Archivos
Copia de Luishc-Filtro4.zip
No tienes los permisos para descargar los archivos.
(169 KB)

Invitado


Invitado
Hola Ignacio

Gracias por todo, disculpas y mucho bien para el foro.
Saludos
Luis

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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