PARA HECTOR MIGUEL NUEVAMENTE

04/04/2007 - 17:50 por Jhorbam Baena Orozco | Informe spam
Hola...Hector para ser mas directo...es decir lo que deseo es obtener asi
aplique cuantos filtros desee el valor y la direccion de la celda en la
parte superior izquierda...encontre algo acerca del TopLeftCell pero solo
aplica para graficos y esono habra alguna manera de solo averiguar
eso.por eso te digo asi aplique los filtros q sea y donde sea...ellos
solo afectan ..lo importante es obtener la direccion y el valor de la
primera celda superior izquierdaes decir siempre la primera es A1, pero
si aplico filtros...esta se modifica y puede llegar a se la A1280 (por
ejemplo)...asi q yo deseo poder obtener esa direccion cada q aplique por
medio de codigo los filtros

Gracias...

P.D. si deseas pasame tu mail es q el archivo q trabajo ocupa 16 mb y x ak
es imposible enviartelo...para q lo observes...
 

Leer las respuestas

#1 Héctor Miguel
04/04/2007 - 19:53 | Informe spam
hola, Jhorbam !

[primero y si me permites]... te 'exhorto' para que EVITES 'personalizar' las consultas [es decir]...
-> al 'solicitar' que responda una persona [o grupo] 'en particular'...
-> TU MISMO 'reduces' las posibilidades de recibir propuestas de solucion mas... 'inmediatas'
-> [p.e.] que pasa si el 'interpelado' NO 'anda por los foros' [en ese momento] ?
-> algun otro participante que tenga la respuesta que necesitas... la expondria ?...
[es decir]... si se llegara a 'sentir... excluido' ? :-\\

[segundo]: acabo de realizar varias pruebas, usando 'areas' con autofiltros en diferentes rangos de distintas hojas...
-> usando el codigo de la propuesta original/inicial/primera/...

Sub Filtrado_1()
With ActiveSheet
If Not .AutoFilterMode Then MsgBox "No hay rango con autofiltro !!!": Exit Sub
With .AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If Not .Parent.FilterMode Then MsgBox "Filtros no activos !!!": Exit Sub
If .Areas(1).Rows.Count > 1 _
Then MsgBox "Primer valor en... " & .Areas(1).Cells(2, 1).Address _
Else MsgBox "Primer valor en... " & .Areas(2).Cells(1, 1).Address
End With
End With
End Sub

resultados ?... -> no importa donde este el rango con los autofiltros...
a) me avisa [siempre] cual es la primer celda de la primer columna
-> la primer fila [despues de los titulos] donde se cumplen todos los criterios
b) si la hoja no tiene autofiltros... o no estan 'activos'... la macro no se ejecuta

[tercero y 'a titulo personal']: me gustaria 'oir' tus comentarios en relacion a:
1) no son +/- claras, entendibles, [...] las 'instrucciones' con que te he 'comentado' las propuestas ?
2) te parece que son 'extensas' [en exceso] y como que 'te pierdes' tratando de entenderlas ?
3) del punto '2')' de la propuesta inmediata anterior... hay algo que no se entienda ?

[cuarto]: no 'siento' que sea necesario enviar/recibir/... un archivo de 16 Mb para 'apreciar' la situacion -???-
-> a menos que tu 'prisa' por resolverlo no te estuviera 'dejando tiempo' para analizar/comprender/experimentar/... las propuestas -?-

[finalmente]: no es necesario -generalmente- 'crear' consultas 'nuevas' [para tratar el mismo tema]
-> se pierde 'el hilo' para un 'seguimiento' de los avances logrados y/o correcciones en la consulta y las propuestas :D
-> si 'ves' que tus consultas 'se pierden' en la 'inmensidad' de correos-basura [y otras "babosadas" de pablito el cuervo]...
-> usa como lector de noticias el Outlook Express [el que viene con windows]
[puedes eliminar con suma facilidad los posts que no te interesen y/o los que 'nada que ver' con la tematica del foro] ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __
... lo que deseo es obtener asi aplique cuantos filtros desee
el valor y la direccion de la celda en la parte superior izquierda
... asi aplique los filtros q sea y donde sea
... lo importante es obtener la direccion y el valor de la primera celda superior izquierda
... es decir siempre la primera es A1, pero si aplico filtros... esta se modifica y puede llegar a se la A1280 (por ejemplo)
... asi q yo deseo poder obtener esa direccion cada q aplique por medio de codigo los filtros...
P.D. si deseas pasame tu mail es q el archivo q trabajo ocupa 16 mb y x ak es imposible enviartelo...para q lo observes...

Preguntas similares