Q
QTE
Hello Excel Forum,
I need help with a procedure to count the number of numbers in "Bold
within a five cell range - columns AC:AG for every third row: startin
from row 7; next row 10, next row 13 etc.
The answer needs to placed in column AB, every third row: starting fro
row 6; next row 9, next row 12 etc.
This is what I've got so far (not much!):
Sub Count_Bold_Num()
Dim B As Object
Dim MyObject As Object
Dim Boldcount As Variant
Dim Counter As Integer
Set MyObject = Workbooks("test2").ActiveSheet
MyObject.Activate
For Each B In Range("ac7:ag7")
If B.Font.Bold = True Then
Boldcount = Boldcount + 1
Range("ab6").Value = Boldcount
End If
Next
End Sub
The above counts the bold cells for 1 row only and places the answer i
the designated cell(ab6), can you assist, so that it counts and place
the counted values in the relevant cells according to the above ro
designations.
Please assist with a working example.
Thank you
QT
I need help with a procedure to count the number of numbers in "Bold
within a five cell range - columns AC:AG for every third row: startin
from row 7; next row 10, next row 13 etc.
The answer needs to placed in column AB, every third row: starting fro
row 6; next row 9, next row 12 etc.
This is what I've got so far (not much!):
Sub Count_Bold_Num()
Dim B As Object
Dim MyObject As Object
Dim Boldcount As Variant
Dim Counter As Integer
Set MyObject = Workbooks("test2").ActiveSheet
MyObject.Activate
For Each B In Range("ac7:ag7")
If B.Font.Bold = True Then
Boldcount = Boldcount + 1
Range("ab6").Value = Boldcount
End If
Next
End Sub
The above counts the bold cells for 1 row only and places the answer i
the designated cell(ab6), can you assist, so that it counts and place
the counted values in the relevant cells according to the above ro
designations.
Please assist with a working example.
Thank you
QT