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

filtro Avanzado con Lista Desplegable

Ver el tema anterior Ver el tema siguiente Ir abajo

filtro Avanzado con Lista Desplegable

Mensaje por johanmoreno el Vie Sep 25, 2015 4:43 pm

Hola como usuario recurro a su ayuda.. con un documento... que estoy haciendo... en la hoja llamada profit_1 tengo la data en este caso: 5 Columnas

Código Fecha Comp #  Reng   Descripción SALDO

Informacion del año 2014

en la hoja que llamo cta tengo 2 columnas nro_cta y Nombre_Cta

nro_cta         Nombre_Cta
1.01.01.02 EFECTIVO EN CAJA
1.01.01.03 BANESCO 5019
1.01.01.04 PROVINCIAL 3480
1.01.01.05 CAJA TRANSITORIA

En la hoja2

Tengo una Validacion de datos con una lista que se alimenta de la hoja Cta... alli selecciono La cuenta contable... c2, en b2 y b3 tengo una funcion buscar para tomar mediate el listado el numero de la cuenta contable y en b3 obtener el nombre de la cta..
Hasta aqui todo bien
Mediante una Macro (h2) aplico una limpieza en la hoja2 y luego corre la macro filtrar esto se genera con normalidad mi problema es el siguiente por alguna razon el filtro me copia toda la informacion y no solo la informacion que mediante la cuenta pido filtrar..
Por ejemplo si filtro la cuenta 1.01.01.03, solo deberia tener la data relacionada con esa cuenta

Código Fecha      Comp #  Reng   Descripción             SALDO
1.01.01.03 31/01/2014 5  32      Cobro fac. 5319 MC0695-1 dep. 493919 10.800,00
1.01.01.03 31/01/2014 5  36   Cobro fac. 5320 MC0682 dep.241875 5.160,00
1.01.01.03 31/01/2014 5  40   Cobro fac. 5321 MC0663 dep. 234608 1.360,00
1.01.01.03 31/01/2014 5  44   Cobro fac. 5322 MC0693 tra. 982755 3.800,00


Gracias por la ayuda que me pueda prestar...
anexo archivo

el codigo que uso es este...
Sub filtrar()
Call Limpiar
' filtrar Macro
   Range("B5").Select
   Sheets("Profit_1").Range("A4:E10000").AdvancedFilter Action:=xlFilterCopy, _
       CopyToRange:=Range("B7:F10000"), Unique:=False
   ActiveWindow.SmallScroll Down:=6
End Sub
Sub Limpiar()
'
' Limpiar Macro

   Range("B7").Select
   Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
   Selection.ClearContents
End Sub

johanmoreno

Cantidad de envíos : 5
Fecha de inscripción : 29/04/2008

Volver arriba Ir abajo

Re: filtro Avanzado con Lista Desplegable

Mensaje por rolano el Vie Oct 23, 2015 4:34 pm

Te falta el CriteriaRange:=
Código:

  Sheets("Profit_1").Range("A4:E10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
  Sheets("profit_1").Range("G1:G2")CopyToRange:=Range("B7"), Unique:=False

_________________
Saludos,
César Tirado
M.A.P. 2012-2014
Microsoft Active Professional
[Tienes que estar registrado y conectado para ver este vínculo]
avatar
rolano
Moderador
Moderador

Masculino Cantidad de envíos : 53
Edad : 44
Fecha de inscripción : 14/04/2009

http://excelilove.blogspot.com/

Volver arriba Ir abajo

Re: filtro Avanzado con Lista Desplegable

Mensaje por johanmoreno el Mar Mayo 03, 2016 11:42 am

Muchas Gracias amigo

johanmoreno

Cantidad de envíos : 5
Fecha de inscripción : 29/04/2008

Volver arriba Ir abajo

Re: filtro Avanzado con Lista Desplegable

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.