Notifications
Clear all

SUBTOTAL DE UMA COLUNA EM NEGRITO

2 Posts
2 Usuários
0 Reactions
1,229 Visualizações
(@divinors)
Posts: 0
New Member
Topic starter
 

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
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Troque por :

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

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

[]s

 
Postado : 30/06/2017 1:35 pm