Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

seleccionar la primer celda visible de una lista filtrada mediante filtro avanzado

02/05/2007 - 05:13 por LUIS DANNY SALAS | Informe spam
Ayuda Hacer una pregunta
perdonen tanta molestia, necesito una instruccion para una macro que me
seleccione la primer celda visible de una columna que previamente fue
filtrada mediante filtro avanzado, el codigo que uso es este:

Range("A1:K508").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Workbooks("colega.xls").Sheets("REGISTRO").Range("Q165:V166"),
Unique:=True

una vez que hace esto necesito que se posicione en la primer celda visible
de la columna E, o de otra columna que se pueda escoger de acuerdo a una
condicion (el valor de una celda en el mismo libro u otro libro), pero de
momento por lo menos que se seleccione la primer celda
visible de la columna E

muchisimas gracias
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
02/05/2007 - 06:15 | Informe spam
hola, Luis !

... necesito una instruccion para una macro que me seleccione la primer celda visible
de una columna que previamente fue filtrada mediante filtro avanzado, el codigo que uso es este:
Range("A1:K508").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Workbooks("colega.xls").Sheets("REGISTRO").Range("Q165:V166"), Unique:=True
una vez que hace esto necesito que se posicione en la primer celda visible de la columna E
o de otra columna que se pueda escoger de acuerdo a una condicion (el valor de una celda en el mismo libro u otro libro)
pero de momento por lo menos que se seleccione la primer celda visible de la columna E



prueba con algo +/- como lo siguiente:

Sub Filtrado_1()
With Range("a1:k508")
.AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Workbooks("colega.xls").Worksheets("registro").Range("q165:v166"), _
Unique:=True
With .SpecialCells(xlCellTypeVisible)
On Error GoTo Ninguno
IIf(.Areas(1).Rows.Count > 1, _
.Areas(1).Cells(2, 5), .Areas(2).Cells(1, 5)).Select
End With
End With
Exit Sub
Ninguno:
MsgBox "Criterios no cumplidos !!!"
End Sub

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

Preguntas similares

 

Busqueda sugerida :