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

Consulta Autofilter

Ver el tema anterior Ver el tema siguiente Ir abajo

Consulta Autofilter

Mensaje por sgalvezv el Vie Ago 26, 2011 10:16 am

1 Existe alguna propiedad en el Selection.AutoFilter donde pueda obtener el numero de registros que selecciono con un filtro? Necesito ese dato pero desde la macros.

2.¿Se pueden copiar los datos seleccionados por el filtro y copiarlos a otra hoja?

3. ¿Se pueden hacer consultas sql a una hoja excel, sin necesidad de conectarte a una base de datos, si no utilizando una hoja que se seria la tabla?

Atte,
S,galvez

sgalvezv

Masculino Cantidad de envíos : 3
Edad : 37
Ciudad - Pais : Chile
Version de Excel : 2003
Fecha de inscripción : 26/08/2011

Volver arriba Ir abajo

Re: Consulta Autofilter

Mensaje por Tatayayan el Vie Ago 26, 2011 8:51 pm

1) Puedes usar la función SUBTOTALES
a) Con macros, Application.Evaluate("=SUBTOTAL(2,B2:B13)") donde B2:B13 es la columna de una base de datos
b) Application.WorksheetFunction.Subtotal(2, Range("B2:B13"))
2) Selecciono toda la base de datos, ejecuto filtro, copio (Ctrl+C) y pego en destino.
Range("A2:B13").Select 'selecciono base de datos
Range("G25").Select 'selecciono destino
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False 'pego
Application.CutCopyMode = False
3) Mediante MS Query o ADO
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Consulta Autofilter

Mensaje por GalileoGali el Sáb Ago 27, 2011 8:39 pm

Otra manera de contar (agradecere probarla porque SpecialCells, no siempre nos deja bien parados....)

Código:
Sub ContarVisibles()
MsgBox Range("A2:A17").SpecialCells(xlCellTypeVisible, 23).Count
End Sub

Código:
Function ContarVisibles(rng As Range) As Long
ContarVisibles = rng.SpecialCells(xlCellTypeVisible, 23).Count
End Function

Sub declararCuantas()
MsgBox ContarVisibles(Range("A2:A17"))
End Sub

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

Masculino Cantidad de envíos : 1963
Edad : 62
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: Consulta Autofilter

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.