Repregunta sobre Qué se pueda visualizar fácilmente los Subtotales?

Prueba con:

With ActiveSheet
.Outline.ShowLevels rowlevels:=2 'Establecer como nivel de visualización el 2 (los subtotales)
With .UsedRange.SpecialCells(xlCellTypeVisible)
.Font.Bold = True 'Aplicar negrita a las celdas visibles del rango usado en la hoja
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
.Outline.ShowLevels rowlevels:=3 'Restablecer como nivel de visualización el 3 (el detalle)
End With


Un saludo.


Fernando Arroyo
MS MVP - Excel


"anonymous" escribió en el mensaje news:aea301c3ec99$49294a20$
Ayer preguntaba: Utilizo la función Range.Subtotal desde
código VBA para calcular SUBTOTALES
Ej: rango.Subtotal subtotales(i), xlSum, arraySumas, True,
False, xlSummaryBelow

El problema es que quiero que me coloree las filas en la
que pone los subtotales o aunque sea que todos los valores
de las filas de subtotales me los ponga en negrita. (cosa
de rápidamente visuallizar cuales son los subtotales)
Cómo puedo hacer esto????



Y me anduvo muy bien eso que me dijiste!!!!! MUCHÍSIMAS
GRACIAS!!!
Pero cómo haría ahora para que a parte de negrita también
me ponga borde arriba y borde abajo de las celdas que
calcula el subtotal pero NO ponga borde a los costados de
las celdas de Subtotal

Por ejemplo:
1200 1500 2000 2800 3500