Bold the cell values based on criteria

[nagovind]

Kindly advise a code to bold the cell value after selecting the cell and after running a macro with a certain condition as below:
Say the cells from A1 to A10 has the values as listed as below
if I select the cells from A1 to A10, then after running a macro, the result shall be, the cell that contains the values of 1.0. 2.0, 3.0, 4.0, 5.0 ONLY to be in BOLD and not the values after decimal >0 (not the 1.1, 1.3, 2.69, 3.59, 4.3) not to be in bold letters


Regards
Govind

 

[p45cal]

please provide a workbook so that we know more about the formatting and contents of the cells, in the meantime this might work:

Sub blah()
For Each cll In Selection.Cells
  If cll.Value = Int(cll.Value) Then cll.Font.Bold = True
Next cll
End Sub

You can do it with conditional formatting too with a formula such as =A1=INT(A1)

 

[nagovind]

Hi p45cal
Thanks for the code and the conditional formatting formula
It works perfect
Could you please advise the code or conditional formatting even if the cell is formatted as text
Thank you

 

[p45cal]

Go on, I dare you, provide a workbook, not a picture of one…

 

[nagovind]

Really sorry
I will send the workbook

Sorry once again

 

[nagovind]

Dear p45cal
Kindly find attached the file
regards

 

[p45cal]

Code for both text and numeric data:

Sub blah()
For Each cll In Selection.Cells
  If CDbl(cll.Value) = CLng(cll.Value) Then cll.Font.Bold = True
Next cll
End Sub

CF formula for numbers as text:
=VALUE(A1)=INT(VALUE(A1))

 

[nagovind]

Thank you very much