• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 538
  • Last Modified:

VBA code to make command button results bold

In the code below I would like to add a command to make the formula results and the  text (total hours) to be in bold.
Private Sub CommandButton1_Click()
 
Dim lrow As Long
lrow = Cells(65536, "C").End(xlUp).Row
Cells(lrow + 2, "I").Formula = "=sum(I16:I" & lrow & ")"
Cells(lrow + 2, "J").Formula = "=sum(J16:J" & lrow & ")"
Cells(lrow + 2, "K").Formula = "=sum(K16:K" & lrow & ")"
Cells(lrow + 2, "L").Formula = "=sum(L16:L" & lrow & ")"
Cells(lrow + 2, "M").Formula = "=sum(M16:M" & lrow & ")"
Cells(lrow + 2, "N").Formula = "=sum(N16:N" & lrow & ")"
Cells(lrow + 2, "O").Formula = "=sum(O16:O" & lrow & ")"
Cells(lrow + 2, "F") = "Total Hours"
End Sub

Open in new window

0
RRUTLAND5
Asked:
RRUTLAND5
  • 3
1 Solution
 
hiteshgoldeneyeCommented:
you can make the results bold in the same command button click procedure above. however if you want it in a separate command button, the code is here below
      


Private Sub CommandButton2_Click()
 
Dim lrow As Long
lrow = Cells(65536, "C").End(xlUp).Row
Cells(lrow + 2, "I").Font.Bold=True
Cells(lrow + 2, "J").Font.Bold=True
Cells(lrow + 2, "K").Font.Bold=True
Cells(lrow + 2, "L").Font.Bold=True
Cells(lrow + 2, "M").Font.Bold=True
Cells(lrow + 2, "N").Font.Bold=True
Cells(lrow + 2, "O").Font.Bold=True
Cells(lrow + 2, "F").Font.Bold=True
End Sub

Open in new window

0
 
RRUTLAND5Author Commented:
How can I do it in the same command button procedure?
0
 
hiteshgoldeneyeCommented:
here is how

Private Sub CommandButton1_Click()
 
Dim lrow As Long
lrow = Cells(65536, "C").End(xlUp).Row
Cells(lrow + 2, "I").Formula = "=sum(I16:I" & lrow & ")"
Cells(lrow + 2, "J").Formula = "=sum(J16:J" & lrow & ")"
Cells(lrow + 2, "K").Formula = "=sum(K16:K" & lrow & ")"
Cells(lrow + 2, "L").Formula = "=sum(L16:L" & lrow & ")"
Cells(lrow + 2, "M").Formula = "=sum(M16:M" & lrow & ")"
Cells(lrow + 2, "N").Formula = "=sum(N16:N" & lrow & ")"
Cells(lrow + 2, "O").Formula = "=sum(O16:O" & lrow & ")"
Cells(lrow + 2, "F") = "Total Hours"
Cells(lrow + 2, "I").Font.Bold=True
Cells(lrow + 2, "J").Font.Bold=True
Cells(lrow + 2, "K").Font.Bold=True
Cells(lrow + 2, "L").Font.Bold=True
Cells(lrow + 2, "M").Font.Bold=True
Cells(lrow + 2, "N").Font.Bold=True
Cells(lrow + 2, "O").Font.Bold=True
Cells(lrow + 2, "F").Font.Bold=True
 
End Sub

Open in new window

0
 
hiteshgoldeneyeCommented:
A better approach would be as below
Private Sub CommandButton1_Click()
 
Dim lrow As Long
lrow = Cells(65536, "C").End(xlUp).Row
Cells(lrow + 2, "I").Formula = "=sum(I16:I" & lrow & ")"
Cells(lrow + 2, "J").Formula = "=sum(J16:J" & lrow & ")"
Cells(lrow + 2, "K").Formula = "=sum(K16:K" & lrow & ")"
Cells(lrow + 2, "L").Formula = "=sum(L16:L" & lrow & ")"
Cells(lrow + 2, "M").Formula = "=sum(M16:M" & lrow & ")"
Cells(lrow + 2, "N").Formula = "=sum(N16:N" & lrow & ")"
Cells(lrow + 2, "O").Formula = "=sum(O16:O" & lrow & ")"
Cells(lrow + 2, "F") = "Total Hours"
Range("I" & lrow + 2 & ":O" & lrow + 2).Font.Bold=True
Cells(lrow + 2, "F").Font.Bold=True
 
End Sub

Open in new window

0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now