Home Excel - Dicas Microsoft Excel VBA Excel VBA - Somarproduto Excel planilha vba subtotal soma coluna

Excel planilha vba subtotal soma coluna

E-mail Imprimir PDF

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



Baixe o exemplo de planilha contendo os macros acima



Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Última atualização em Ter, 23 de Agosto de 2011 09:09  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4825
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana25026
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês43214
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466043
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA