Count the #of ISTEXT cells

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Could you help me with the VB code that would perform the following?

Count the number of cells that have text in a range that goes from the
active cell to .End(xlRight)

Thank you!
 
Filo - give this a try. It counts the total number of cells and then
subtracts the number of cells that contain numbers.

Sub CountText()

Dim Count As Integer

Count = Range(ActiveCell, ActiveCell.End(xlToRight)).Cells.Count
Count = Count - WorksheetFunction.Count(Range(ActiveCell,
ActiveCell.End(xlToRight)))
MsgBox "There are " & Count & " cells containing text."

End Sub

-Cory
 
It worked. Thank you!

Cory said:
Filo - give this a try. It counts the total number of cells and then
subtracts the number of cells that contain numbers.

Sub CountText()

Dim Count As Integer

Count = Range(ActiveCell, ActiveCell.End(xlToRight)).Cells.Count
Count = Count - WorksheetFunction.Count(Range(ActiveCell,
ActiveCell.End(xlToRight)))
MsgBox "There are " & Count & " cells containing text."

End Sub

-Cory
Click to expand...
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA set thick borders around non empty cells in range 0
Counting Bordered Cells 5
For-Next by a row Counting consecutive Zero in the column 4
Find sometimes ignores Application.FindFormat 3
Excel Change Text to Date 3
count cells with diagonal borders 3
Excel VBA - counting cells by colors and names to it in two different rows. 0
A way to count cells in a range containing text or formulas 2

Back
Top