Subtotales

hola, Paola !

... en una hoja tengo facturas... esta hoja almacena el importe de la factura y el pago... lo almacena en negativo
... subtotales... el resultado que me arroja es el importe de mi factura menos mi pago. mi pregunta es
... alguna macro que a la hora de que mi subtotal sea igual a cero (o sea... factura.. pagada) me oculte ese subtotal?
... tengo alrededor de 1000 facturas, no se si este dato sea importante... Cualquier sugerencia que puedan darme...

sin conocer/ver/comentar/... como es el 'arreglo' que tienes para el registro de tus importes y pagos POR FACTURA -?-

op1: usar una columna 'auxiliar' que compruebe su la suma de pagos 'da' una factura pagada y poner autofiltros -?-
op2: usar tablas dinamicas [se necesitaria la columna auxiliar como campo de pagina]
opn: ???

comentas algun detalle mas... 'significativo' ?
saludos,
hector.

Héctor Miguel wrote:

hola, Paola !

> ... en una hoja tengo facturas... esta hoja almacena el importe de la factura y el pago... lo almacena en negativo
> ... subtotales... el resultado que me arroja es el importe de mi factura menos mi pago. mi pregunta es
> ... alguna macro que a la hora de que mi subtotal sea igual a cero (o sea... factura.. pagada) me oculte ese subtotal?
> ... tengo alrededor de 1000 facturas, no se si este dato sea importante... Cualquier sugerencia que puedan darme...

sin conocer/ver/comentar/... como es el 'arreglo' que tienes para el registro de tus importes y pagos POR FACTURA -?-

op1: usar una columna 'auxiliar' que compruebe su la suma de pagos 'da' una factura pagada y poner autofiltros -?-
op2: usar tablas dinamicas [se necesitaria la columna auxiliar como campo de pagina]
opn: ???

comentas algun detalle mas... 'significativo' ?
saludos,
hector.

Hola Héctor Miguel
La cosa está asi tengo una hoja que la "alimento" con mis facturas
y mis pagos de ahi por medio de una macro hago un filtro avanzado y
esa información la pongo en otra hoja(hoja 2), ordenándola por
cliente y despues por factura, despues sacó subtotales por cliente y
luego subtotales por factura todo esto es con macros, de tal forma
que en mi hoja 2 tenga que facturas tienen mis clientes, y cuales me
deben aun.
El problema es que a través de este procedimiento... me salen tambien
las facturas que ya estan pagadas... y solo quiero que me salgan las
que me deben... es decir quiero ocultar los movimientos junto con sus
respectivos subtotales... de aquellas facturas que me arrojen "cero".
Espero haberme dado a entender

hola, Paola !

La cosa esta asi tengo una hoja que la "alimento" con mis facturas y mis pagos...
de ahi por medio de una macro hago un filtro avanzado y esa informacion la pongo en otra hoja(hoja 2)
ordenandola por cliente y despues por factura, despues sacó subtotales por cliente y luego subtotales por factura...
todo esto es con macros, de tal forma que en mi hoja 2 tenga que facturas tienen mis clientes, y cuales me deben aun.
El problema es que... me salen tambien las facturas que ya estan pagadas... y solo quiero que me salgan las que me deben...
es decir quiero ocultar los movimientos junto con sus respectivos subtotales... de aquellas facturas que me arrojen "cero".

1) puedes exponer 'el arreglo' de la hoja donde alimentas facturas y pagos ? [p.e.]
las columnas utilizadas [titulos] y como registras [en filas por columna] los importes y los pagos ?

2) puedes exponer el codigo que estas usando ?

saludos,
hector.

Aqui te pongo estos datitos Héctor...

Las columnas que uso son: Fecha, Consecutivo, No. Factura, Referencia,
Torre, Mtto., Gas, Luz, Medidores, Reservas, Salones, Intereses,
Tarjetas, Cheques, Depositos, Daños, Garantia, Totales.
Los datos de esta hoja los introduzco desde otras dos hojas... una que
me captura solo los recibos y la otra que captura solo la cobranza, por
ejemplo el código que uso para capturar mis facturas y que me las
ponga en esta hoja de concentrado es:

Sheets("Control de Recibos").Select
Range("uno").Select
Selection.Copy
Range("dos").Select
Selection.EntireRow.Insert
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:_
False, Transpose:=False
Application.CutCopyMode = False
Selection.Font.ColorIndex = 0
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Concentrado").Select
Range("tres").Select
Selection.Copy
Range("cuatro").Select
Selection.EntireRow.Insert
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:_
False, Transpose:=False
Application.CutCopyMode = False
Selection.Font.ColorIndex = 0
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Sort Key1:=Range("c5"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

el que uso para la cobranza:

Sheets("Concentrado").Select
Range("cuatro").Select
Selection.EntireRow.Insert
Range("cuatro").Select
Selection.Copy
ActiveCell.Offset(-1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:_
False, Transpose:=False
Application.CutCopyMode = False
Selection.Font.ColorIndex = 0
Selection.NumberFormat = "#,##0.00;[Red](#,##0.00)"
Range("rec").Select
Selection.NumberFormat = "General"
Range("fec").Select
Selection.NumberFormat = "d-mmm-yy"
Range("con").Select
Selection.NumberFormat = "General"
Sheets("Cobranza").Select
Range("borrar1").Select
Selection.ClearContents
Range("c4").Select


y el código que uso para los subtotales es este:

Sheets("Consulta").Select
Cells.Select
Selection.RemoveSubtotal
Rows("7:65536").Select
Selection.Delete Shift:=xlUp
Range("filtro").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"POR"), CopyToRange:=Range("A7"), Unique:=False
Cells.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("D8"), Order1:=xlAscending,
Key2:=Range("C8") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom
Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(6,
7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20), Replace:=True,
PageBreaks:=False, SummaryBelowData:=True
Range("a7").Select
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(6,
7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20), Replace:=False,
PageBreaks:=False, SummaryBelowData:=True
Range("a4").Select

Te agradecería cualquier ayuda que pudieras darme Héctor. Gracias

hola, Paola !

los datos y el codigo que expones... los tengo 'bajo observacion' ya que existen algunas 'lagunas' en ellos [p.e.]

1) [segun parece] las columnas que utilizas corresponderian desde 'A' hasta 'R' [y asumo en la hoja 'control de recibos-] -?-
2) [segun parece] existe alguna columna 'vacia/en banda/...' en la hoja 'concentrado' [tienes un 'doble' .End(xlToRight)).Select]
3) existen algunas referencias a 'rangos-nombrados' que no permite conocer sus referencias 'reales' [direccion-celdas del rango]
["uno", "dos", "tres", "cuatro", "rec", "fec","con", "borrar1", "filtro", "POR"] y no se si existan algunos mas -?-
4) podria 'dejar' los datos 'desconocidos' [de momento] 'tal-cual' los has expuesto [podrian ser referencias a filas completas o ???]
[es muy probable que cualquier 'supuesto' llevara a propuestas NO muy... 'acertadas' o incluso que provoquen 'errores'] :-((
5) [ademas] los datos no conocidos/expuestos/visibles/... no permitirian alguna propuesta de 'optimizacion' del codigo [p.e.]
a) usas la expresion 'Cells' que se refiere A TODAS las celdas de una hoja de calculo [es necesario ?]
b) aplicas formatos de bordes 'nulos' -tambien- a todas las celdas de la hoja -?-

si puedes confirmar a que rangos y hojas hacen referencia los nombres que usas en los codigos... :D
y/o comentar que datos/formulas en cuanto a importe de facturas y pagos corresponden a cada columna ['A:R' ???]
o... [si lo prefieres] 'subir' en algun sitio de 'hspedaje web' un archivo de ejemplo -?-

saludos,
hector.