Home Excel - Dicas Microsoft Excel VBA Excel VBA - Soma Excel planilha vba soma verifica inconsistencia

Excel planilha vba soma verifica inconsistencia

E-mail Imprimir PDF

 

Escola SaberExcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções

Esses macros do Aplicativo Microsoft Excel VBA, verifica a última linha desloca duas linhas abaixo e insere total dos valores das colunas(D e F), como também a diferença entre os totais dos dois valores verificados.

Caso queira assistir o vídeo referencia a macro básica dessa planilha.
Video Youtube - Macro Somar_Coluna

Sub sbx_soma_coluna()

Dim vContador As Integer
Dim vTotal, fTotal As Long

If Left([c65000].End(xlUp).Value, 2) = "To" Then  'observe o macro abaixo
   MsgBox ("Total já inserido"), vbInformation, "saberexcel - o site das macros"
Else

For vContador = 2 To Saber1.Range("D65000").End(xlUp).Row
    vTotal = vTotal + Range("D" & vContador)
Next vContador

For vContador = 2 To Saber1.Range("F65000").End(xlUp).Row
    fTotal = fTotal + Range("F" & vContador)
Next vContador

[d65000].End(xlUp).Offset(2, 0).Value = Format(vTotal, "##,###.00")
[d65000].End(xlUp).Offset(0, 2).Value = Format(fTotal, "##,###.00")
[d65000].End(xlUp).Offset(0, -1).Value = "Total...:"

xb = [d65000].End(xlUp).Value - [f65000].End(xlUp).Value

[D50000].End(xlUp).Offset(2, 2).Value = xb ', "##,###.00")
[d65000].End(xlUp).Offset(2, 0).Value = "Diferença.:"

End If
Saber1.Shapes("oct").Visible = True
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
'Essse macro vai verificar os dois  últimos valores (soma total) inserido pelos macros e os deleta
Sub sbx_limpar_teste()
[c65000].End(xlUp).Offset(0, 0).Value = ""
For i = 1 To 2
  [f65000].End(xlUp).Offset(0, 0).Value = ""
  [d65000].End(xlUp).Offset(0, 0).Value = ""
Next i
Saber1.Shapes("oct").Visible = False
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_busca_valores_esquerda()
x = Left("Vtotal", 2)
MsgBox x
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_apagar()
Plan1.Range("D2:F2").Select
Selection.End(xlUp).Offset(2, 0).Clear
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub busca_parte_da_string_ultima_celula() 'somente para o teste e treinamento
'x = [c65000].End(xlUp).Value
[c65000].End(xlUp).Select
If Left(ActiveCell, 2) = "To" Then
   MsgBox ("To")
Else
   MsgBox ("sai")
End If
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



  Baixe o exemplo de planilha contendo os macros acima:
Excel planilha vba soma verifica inconsistencia (105.35 KB)
.

Última atualização em Sáb, 26 de Novembro de 2011 17:18  

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_counterHoje4820
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana25021
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês43209
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466038
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