Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
SOMATORIA DE DUAS C...
 
Notifications
Clear all

SOMATORIA DE DUAS COLUNAS

 
2024 - VBA & Macros
Post Recente por Osvaldomp 7 anos atrás
2 Posts
2 Usuários
0 Reactions
1,236 Visualizações
RSS
 DIVINORS
(@divinors)
Posts: 23
Eminent Member
Topic starter
 

Olá amigos

Solicito ajuda vossa pois estou trabalhando no código abaixo para somatória de duas colunas (Entrada e Saida) a entrada somou corretamente, mas a saida o valor está incorreto. Estou enviando planilha para análise.

Att.
Divino Rodrigues

Sub somarMes()
Dim vContador As Long
Dim vTotal As Currency


For vContador = 2 To Plan1.Cells(Rows.Count, "G").End(xlUp).Row
    vTotal = vTotal + Plan1.Cells(vContador, "G")
 Next vContador

[g65000].End(xlUp).Offset(1, 0).Value = vTotal
[g65000].End(xlUp).Offset(0, 0).Font.Bold = True
[g65000].End(xlUp).Offset(0, -1).Value = "TOTAL.................................................."
[g65000].End(xlUp).Offset(0, -1).Font.Bold = True

[h65000].End(xlUp).Offset(1, 0).Value = vTotal
[h65000].End(xlUp).Offset(0, 0).Font.Bold = True



End Sub
 
Postado : 01/07/2017 5:16 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:

Sub somarMesV2()
 With Cells(Rows.Count, 1).End(3)(2)
 .Offset(, 5).Value = "TOTAL"
 .Offset(, 6).Resize(, 2).Formula = "=SUM(G2:G" & Cells(Rows.Count, 1).End(3).Row & ")"
 .Offset(, 5).Resize(, 3).Font.Bold = True
 End With
End Sub

Osvaldo

 
Postado : 01/07/2017 7:05 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico