Home Excel - Dicas Microsoft Excel VBA Excel VBA - Soma Excel planilha vba soma coluna d sem formulas com auxilio da funcao conta

Excel planilha vba soma coluna d sem formulas com auxilio da funcao conta

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Esse exemplo soma os números digitados na coluna D, inserindo a soma na coluna(A) após determinados dados, isto é localiza ultima linha e insere a soma, isto com auxílio das Funções CountA() e Desloc(OffSet) do próprio Aplicativo Microsoft Excel VBA, foi inserido a soma na coluna_A, para voce ver as possibilidades de inserção da soma, essa macro e macro inserir Subtotal(Assinantes) tem ajudado a muitos.
Acesso Livre - Registrados (REGISTRE-SE!)


Sub somar_sem_formulas()
Dim resposta As String
If Range("A8") <> "" Then 'aqui fiz uma espécie de [Verifica Inconsistencia] para nao ir inserindo a soma abaixo....
resposta = MsgBox("Soma já inserida, deseja apagar para o teste?", vbYesNo + vbCritical, "Saberexcel - site das macros")
If resposta = 6 Then
[A65000].End(xlUp).ClearContents
ActiveCell.Offset(0, 1).ClearContents
End If
Exit Sub
End If

[A65000].End(xlUp).Offset(1, 0).Select 'localiza a última linha e desloca (Função Offset) mais uma.
ActiveCell = [SUM(OFFSET(D1,,,COUNTA(D:D)))]
ActiveCell.Font.ColorIndex = 3
ActiveCell.Font.Bold = True
ActiveCell.NumberFormat = "#,##0"
ActiveCell.Offset(0, 1).Value = "Soma(ColD)"
End Sub



Aplicativo Microsoft Excel VBA(Visual Basic Application) com os produtos SaberExcel VBA




Acesso Livre - Registrados (REGISTRE-SE!) 

   Baixe o exemplo de planilha da macro acima
Excel planilha vba soma coluna d sem formulas com auxilio da funcao conta (27.72 kB)

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

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_counterHoje1636
mod_vvisit_counterOntem5672
mod_vvisit_counterEsta Semana11767
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês25496
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10448325
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