Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, insere um subtotal e agrupa linhas na em determinada folha de planilha, há um pequeno tutorial com imagem de como inserir um subtotal com agrupamento de linhas.

Sub inserindo_subtotal()
Range("B2").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("G1").Select
End Sub

Sub remover_subtotal()
Range("B2").Select
Selection.RemoveSubtotal
Range("F2").Select
End Sub

Observe a imagem abaixo, um pequeno tutorial para voce aprender a lidar com o ítem de menu Subtotal
Selecione o cabeçalho da tabela, acesse o ítem de menu subtotal, na barra de ferramenta Dados, após esses procedimentos vai abrir uma caixa de texto SubTotais, voce deverá alterar os dados para relatório de acordo com a sua necessidade, neste caso específico, sugiro que siga como na imagem abaixo... Espero tê-los ajudado, fique com Deus, E_Marcondes




Aprenda Microsoft Excel VBA com Saberexcel

Saberexcel - o site de quem precisa aprender Microsoft Excel VBA

Essa macro do Aplicativo Microsoift Excel VBA(Visual Basic Application), insere uma soma na coluna(G), e desloca até a última celula usada, desloca mais uma e insere a FORMULA '=SUBTOTAL(9;G$2:DESLOC(G7;-1;0))', somando o total de números inseridos nesta coluna.
Espero que o exemplo seja útil. Fique com Deus, Expedito Marcondes.


Sub Inserindo_SubTotal_Coluna()
Dim vFinalDados As Long

[G1].Select
Range(ActiveCell.Address, _
Cells(Rows.Count, ActiveCell.Column).End(xlUp).Address).Select

vFinalDados = ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row

ActiveSheet.Cells(vFinalDados + 1, ActiveCell.Column).Formula = _
"=SUBTOTAL(9," & ActiveSheet.Cells(2, ActiveCell.Column).Address(1, 0) _
& ":OFFSET(" & ActiveSheet.Cells(vFinalDados + 1, _
ActiveCell.Column).Address(0, 0) & ",-1,0))"

[H1].Select

End Sub

Sub Deleta_Celula_formulas()
On Error GoTo sbError
[G1:G100].SpecialCells(xlFormulas, 23).ClearContents
Exit Sub
sbError: MsgBox ("Não há fórmulas para serem apagadas,execute o macro para inserir"), vbInformation, "Saberexcel - site das macros"
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Publicidade
Compre com segurança, garantia e ótimos preços

SaberExcel - o site de quem precisa aprender Microsoft Excel VBA.

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere uma soma com a função SubTotal() em determinada célula na folha de planilha, observe que aqui gravei uma macro para você ver como deverá depurar esse código, é muito importante dominar o conhecimento sobre o GM(Gravador de Macros) para quem está iniciando o estudos com VBA(Visual Basic Application), pois ele será o seu assistente professor sempre,
Esse assunto é o assunto do nosso Caderno_1 - Curso Completo Microsoft Excel VBA, acho de extrema importancia para iniciar o conhecimento dominar bem esse assunto.

Sub inserindo_formula_subtotal()
Range("H8").Formula = "=SUBTOTAL(9,E1:E12)"

[I7].Value = "Insere fórmula correta"
saber1.Shapes("saber1").Visible = True 'essas duas linhas de códigos são para auxliar no teste, mostrar e ocultar shapes informativos
saber1.Shapes("saber2").Visible = False
[H5].Select
Range("H5").Select
End Sub

Neste macro estou mostrando se voce inserir o R1C1 - na linha de código, gera um erro na inserção da fórmula na célula.
Sub inserindo_formula_subtotal_I()
Range("H8").FormulaR1C1 = "=SUBTOTAL(9,E1:E12)"
[I7].Value = "Fórmula errada R1C1"
saber1.Shapes("saber1").Visible = False
saber1.Shapes("saber2").Visible = True
[H5].Select
End Sub

'macro subtotal gravada - isto é usando o GM(Gravador de Macros)
'obserque que funciona mas se fizer pequenas modificações, poderá mudar
'a performance e a simetria para melhor entendimento.

Sub Gravando_macro_subtotal()
Range("H8").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-7]C[-3]:R[4]C[-3])"
Range("I8").Select
'substitua tudo acima por (Depurando macros), se voce mudar a fórmula para modo absoluto,
'obrigatoriamente teria que retirar o R1C1, para não ocorrer em erro na fórmula
'Range("H8").Formula = "=SUBTOTAL(9,E1:E12)"
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Publicidade
Compre com segurança, garantia e ótimos preços