Olá amigos
Eu tenho a macro abaixo e gostaria de colocar em NEGRITO ( TOTAL E O VALOR) não estou conseguindo. Solicito a vossa ajuda.
S
ub somarST2()
Dim vContador As Long
Dim vTotal As Currency
For vContador = 2 To Plan4.Cells(Rows.Count, "C").End(xlUp).Row
vTotal = vTotal + Plan4.Cells(vContador, "C")
Next vContador
[c65000].End(xlUp).Offset(1, 0).Value = vTotal
[c65000].End(xlUp).Offset(0, -1).Value = "TOTAL.................................................."
End Sub
Postado : 30/06/2017 1:21 pm