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)
.