What's wrong with this
I'm trying to count the number of times a cell has a font size of 22, and it
is giving me zero. I'm new to this stuff would appreciate any help. Function countbyfont(InRange As Range, _ Whatfont As Integer, _ Optional ofText As Boolean = False) As Long Dim Rng As Range Application.Volatile (True) For Each Rng In InRange.Cells If Cells.Font.Size = Whatfont Then countbyfont = countbyfont + 1 End If Next Rng End Function |
What's wrong with this
Brad,
Change If Cells.Font.Size = Whatfont Then to If Rng.Font.Size = Whatfont Then -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Brad" wrote in message ... I'm trying to count the number of times a cell has a font size of 22, and it is giving me zero. I'm new to this stuff would appreciate any help. Function countbyfont(InRange As Range, _ Whatfont As Integer, _ Optional ofText As Boolean = False) As Long Dim Rng As Range Application.Volatile (True) For Each Rng In InRange.Cells If Cells.Font.Size = Whatfont Then countbyfont = countbyfont + 1 End If Next Rng End Function |
What's wrong with this
Use:
If Rng.Font.Size = Whatfont Then in stead of If Cells.Font.Size = Whatfont Then -- Gary''s Student "Brad" wrote: I'm trying to count the number of times a cell has a font size of 22, and it is giving me zero. I'm new to this stuff would appreciate any help. Function countbyfont(InRange As Range, _ Whatfont As Integer, _ Optional ofText As Boolean = False) As Long Dim Rng As Range Application.Volatile (True) For Each Rng In InRange.Cells If Cells.Font.Size = Whatfont Then countbyfont = countbyfont + 1 End If Next Rng End Function |
What's wrong with this
Thank you that worked - are there other items that I should change to make
this a better function? "Chip Pearson" wrote: Brad, Change If Cells.Font.Size = Whatfont Then to If Rng.Font.Size = Whatfont Then -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Brad" wrote in message ... I'm trying to count the number of times a cell has a font size of 22, and it is giving me zero. I'm new to this stuff would appreciate any help. Function countbyfont(InRange As Range, _ Whatfont As Integer, _ Optional ofText As Boolean = False) As Long Dim Rng As Range Application.Volatile (True) For Each Rng In InRange.Cells If Cells.Font.Size = Whatfont Then countbyfont = countbyfont + 1 End If Next Rng End Function |
What's wrong with this
That looks fine (now).
Brad wrote: Thank you that worked - are there other items that I should change to make this a better function? "Chip Pearson" wrote: Brad, Change If Cells.Font.Size = Whatfont Then to If Rng.Font.Size = Whatfont Then -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Brad" wrote in message ... I'm trying to count the number of times a cell has a font size of 22, and it is giving me zero. I'm new to this stuff would appreciate any help. Function countbyfont(InRange As Range, _ Whatfont As Integer, _ Optional ofText As Boolean = False) As Long Dim Rng As Range Application.Volatile (True) For Each Rng In InRange.Cells If Cells.Font.Size = Whatfont Then countbyfont = countbyfont + 1 End If Next Rng End Function -- Dave Peterson |
All times are GMT +1. The time now is 05:19 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com