Macro Subtotal

Seiki2000 · February 1, 2019, 12:45am

Boa noite,

Pessoal tenho várias planilhas com várias colunas e n linhas.
Preciso de uma macro para fazer um subtotal da coluna 01.
Em outra planilha na coluna 02.
Alguém poderia me ajudar?

Obs. Só peço que não seja um código gerado pelo gravador de macro pois depois , pelo conhecimento não consigo adaptar para as várias situações que tenho.

Obrigado.SUBTOTAL.ods

schiavinatto · February 1, 2019, 1:05am

Poste arquivo com exemplo de como tem que ficar.

Conras · February 1, 2019, 1:53pm

@Seiki2000 a fórmula SUBTOTAL, SOMASE ou SOMASES não te atende?

Seiki2000 · February 1, 2019, 10:12pm

Gilberto, vou postar uma parte de uma delas devido ao seu tamanho.
obrigado pela ajuda.
anexei!

Seiki2000 · February 1, 2019, 10:18pm

Conrado, Minha planilha tem mais de mil itens e para automatizar preciso de um código para executar um subtotal via macro e ai trabalhar esses subtotais por outros critérios.
Mesmo assim obrigado.

schiavinatto · February 2, 2019, 1:30am

@Seiki2000, tentei mas não consegui entender o manual:

http://www.sw-computacion.f2s.com/Linux/LibreOfficeBasic.pdf

Capitulo 7.7.4

Pode ser feito manual: Dados / Subtotais… não é complicado.

Seiki2000 · February 3, 2019, 4:02pm

Obrigado Gilberto, vou estudar esse manual e tentar se conseguir posto aqui.

Conras · February 4, 2019, 9:45am

@Seiki2000 existe a necessidade de se somar desta forma? ou seja, a cada grupo de produtos ele fazer a soma? O relatório é extraído conforme a aba (sem subtotal)? Acredito que seria mais fácil migrar os resultados para o BASE (acces), ele faz esse relatório de forma automática.

Grafeno · February 7, 2019, 1:19am

Boa noite,

Teste e veja se te atende:

Sub Main
Dim oDoc, oPlan, oIntervalo, oDescSubtotal
Dim oCamposSubTotal(0) As New com.sun.star.sheet.SubTotalColumn

   oDoc = ThisComponent
   oPlan = oDoc.Sheets.getByName("PLANILHA SEM SUBTOTAL")
   
   oIntervalo = oPlan.getCellRangeByName("B2:J128")
   
   oCamposSubTotal(0).Column = 8
   oCamposSubTotal(0).Function = com.sun.star.sheet.GeneralFunction.SUM
   
   oDescSubTotal = oIntervalo.createSubTotalDescriptor(True)
   oDescSubTotal.addNew (oCamposSubTotal(), 0)
   
   oIntervalo.applySubTotals(oDescSubTotal, True)
End Sub

Atte,