Lista desplegable y filtro avanzado

[johan moreno]

Hola Amigos tengo fallas 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 puedan prestar...

anexo archivo

Filtro Avanzado.rar

[johan moreno]

anexo el codigo del filtro avanzado...

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

no se si el problema pueda ser el codigo de la cuenta que posee (1.01.01.02) el filtro avanzado