Eliminar Subtotales

1 post / 0 nuevos
MiltonCordova
Imagen de MiltonCordova
Offline
última acción: Hace 1 año 1 mes
alta: 09/06/2017 - 18:27
Puntos: 255
Eliminar Subtotales

Saludos, por favor me pueden ayudar con la siguiente consulta:

 

tengo una Hoja con datos desde AB25:AG10500, en la cual hay dos presentaciones la primera es que la tabla se encuentra con subtotales mediante una macro y la otra es que la tabla este sin subtotales.

 

La pregunta es: tengo uan macro que elimina y luego borra todo el contenido de la tabla, como puedo hacer para que con VB me detecte al disparar la macro si hay subtotales, en cuyo caso se ejecute la macro, caso contrario salte a borrar la tabla unicamente con los datos

 

Sub CALMAT3()

 

'si hay subtotales continuar

 

IF........................ THEN

 

Range("AB24:AG10500").Select
    Selection.RemoveSubtotal

 

'Si no hay subtotales borrar desde aqui
    Range("AB25:AG10500").Select
    Selection.ClearContents

 

End if

End sub

adjunto un ejm parecido para mejor comprension ya que el original es demasido grande

AdjuntoTamaño
Office spreadsheet icon eliminar_subtotales_3.xls105 KB