How JustAnswer Works:

  • Ask an Expert
    Experts are full of valuable knowledge and are ready to help with any question. Credentials confirmed by a Fortune 500 verification firm.
  • Get a Professional Answer
    Via email, text message, or notification as you wait on our site.
    Ask follow up questions if you need to.
  • 100% Satisfaction Guarantee
    Rate the answer you receive.

Ask J. Mar Your Own Question

J. Mar
J. Mar, Consultant
Category: Programming
Satisfied Customers: 375
Experience:  Programmer of COBOL, COBOL II, C++, C#,Java, MS EXCEL VBA, MS ACCESS VBA, Visual Basic .Net
Type Your Programming Question Here...
J. Mar is online now
A new question is answered every 9 seconds

Counting Visible rows only using vba code I have a table

Customer Question

Counting Visible rows only using vba code:
I have a table (tblProbRep) that gets filterred. i need to count the filterred visible rows only. What would the code look like if I click on a button and it counts only the visible rows and gives me the amount (like 9)
I then need to specify that in column H in the number of rows visible counted is the answer I want placed into a cell.

for instance:
'RowCount - is the amount of visible rows
'....code to count the visible rows.......
Sheets("Sheet1").Range("A1")=Sheets("Sheets2").Range("tblProbRep").Cells(RowCount,"H")

or something to that effect.

Please can someone help.
Kind Regards
XXXXXXXX
Submitted: 3 years ago.
Category: Programming
Expert:  J. Mar replied 3 years ago.

Thank you for asking your question on JustAnswer. My name is XXXXX XXXXX X will be happy to help you.

 

You can creat a function or paste the following in a stand alone module.

 

Function CountVisibleFilterRows(MyRange As Range) As Long
On Error Resume Next
CountVisibleFilterRows = MyRange.SpecialCells(xlCellTypeVisible).Count
End Function

 

Then you can access the function with this, for example;

 

CountVisibleFilterRows(Range("A1:A20")) in Excel formula or

 

in VBA use;

 

Application.WorksheetFunction.CountVisibleFilterRows(Range("A1:A20"))

Customer: replied 3 years ago.

Hi there

Do I just use it as is?

Function CountVisibleFilterRows(MyRange As Range) As Long
On Error Resume Next
CountVisibleFilterRows = MyRange.SpecialCells(xlCellTypeVisible).Count
End Function

Application.WorksheetFunction.CountVisibleFilterRows(Range("A1:A20"))

or do i substitute my information in there and what goes where?

When I use the information in my file, it gives me 0 not 3 or something no matter what is visible.

Expert:  J. Mar replied 3 years ago.

Sorry, the function I mentioned before should be re-written as follows;

 

Substitute your information where necessary

 

Function CountVisibleFilterRows(ByVal Sh As Worksheet)
Dim Target As Range
Dim c As Range
Dim i As Long
'If the Filter is not used
If Sh.FilterMode = False Then
CountVisibleFilterRows = 0
Exit Function
End If
Set Target = Sh.AutoFilter.Range
For Each c In Target.SpecialCells(xlCellTypeVisible).Areas
i = i + c.Rows.Count
Next
CountVisibleFilterRows = i - 1 '-1 stands for remove header row
End Function

Expert:  J. Mar replied 3 years ago.

Here is an example how to use in VBA

 

Application.WorksheetFunction.FilteredRowsCount(ActiveSheet) ; where "ActiveSheet" is the Worksheet your filter is on

Customer: replied 3 years ago.

Thanks for trying to help

 

I actually got the code from another website and changed it a little

it goes like this:

 

Dim rng As Range

Dim RowCount as Integer, r as Integer


Set rng = Sheets("ProblemReporting").AutoFilter.Range
RowCount = rng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
'MsgBox RowCount
r = RowCount
txtProjProgUpd.Value = Sheets("ProblemReporting").Range("tblProbRep").Cells(r, 2)

Expert:  J. Mar replied 3 years ago.
Thank you

JustAnswer in the News:

 
 
 
Ask-a-doc Web sites: If you've got a quick question, you can try to get an answer from sites that say they have various specialists on hand to give quick answers... Justanswer.com.
JustAnswer.com...has seen a spike since October in legal questions from readers about layoffs, unemployment and severance.
Web sites like justanswer.com/legal
...leave nothing to chance.
Traffic on JustAnswer rose 14 percent...and had nearly 400,000 page views in 30 days...inquiries related to stress, high blood pressure, drinking and heart pain jumped 33 percent.
Tory Johnson, GMA Workplace Contributor, discusses work-from-home jobs, such as JustAnswer in which verified Experts answer people’s questions.
I will tell you that...the things you have to go through to be an Expert are quite rigorous.
 
 
 

What Customers are Saying:

 
 
 
  • My Expert answered my question promptly and he resolved the issue totally. This is a great service. I am so glad I found it I will definitely use the service again if needed. One Happy Customer New York
< Last | Next >
  • My Expert answered my question promptly and he resolved the issue totally. This is a great service. I am so glad I found it I will definitely use the service again if needed. One Happy Customer New York
  • Wonderful service, prompt, efficient, and accurate. Couldn't have asked for more. I cannot thank you enough for your help. Mary C. Freshfield, Liverpool, UK
  • This expert is wonderful. They truly know what they are talking about, and they actually care about you. They really helped put my nerves at ease. Thank you so much!!!! Alex Los Angeles, CA
  • Thank you for all your help. It is nice to know that this service is here for people like myself, who need answers fast and are not sure who to consult. GP Hesperia, CA
  • I couldn't be more satisfied! This is the site I will always come to when I need a second opinion. Justin Kernersville, NC
  • Just let me say that this encounter has been entirely professional and most helpful. I liked that I could ask additional questions and get answered in a very short turn around. Esther Woodstock, NY
  • Thank you so much for taking your time and knowledge to support my concerns. Not only did you answer my questions, you even took it a step further with replying with more pertinent information I needed to know. Robin Elkton, Maryland
 
 
 

Meet The Experts:

 
 
 
  • ATLPROG

    Computer Software Engineer

    Satisfied Customers:

    7463
    MS in IT.Several years of programming experience in Java C++ C C# Python VB Javascript HTML
< Last | Next >
  • http://ww2.justanswer.com/uploads/SP/spatlanta2010/2011-6-23_12450_photo.64x64.gif ATLPROG's Avatar

    ATLPROG

    Computer Software Engineer

    Satisfied Customers:

    7463
    MS in IT.Several years of programming experience in Java C++ C C# Python VB Javascript HTML
  • http://ww2.justanswer.com/uploads/ComputersGuru/2010-02-13_051118_Photo41.JPG LogicPro's Avatar

    LogicPro

    Computer Software Engineer

    Satisfied Customers:

    5603
    Expert in C, C++, Java, DOT NET, Python, HTML, Javascript, Design.
  • http://ww2.justanswer.com/uploads/unvadim/2010-11-15_210218_avatar.jpg unvadim's Avatar

    unvadim

    Computer Software Engineer

    Satisfied Customers:

    1158
    Good knowledge of OOP principles. 3+ years of programming experience with Java and C++. Sun Certified Java Programmer 5.0.
  • http://ww2.justanswer.com/uploads/lifesaver333/2010-10-17_191349_ls.jpeg lifesaver's Avatar

    lifesaver

    Computer Software Engineer

    Satisfied Customers:

    950
    Several years of intensive programming and application development experience in various platforms.
  • http://ww2.justanswer.com/uploads/EH/ehabtutor/2012-8-2_202016_1.64x64.jpg ehabtutor's Avatar

    ehabtutor

    Computer Software Engineer

    Satisfied Customers:

    864
    Bachelor of computer science, 5+ years experience in software development, software company owner
  • http://ww2.justanswer.com/uploads/RA/rajivsharma086/2012-6-6_17128_displaypic.64x64.jpg Raj's Avatar

    Raj

    Computer Engg.

    Satisfied Customers:

    860
    BE CS, 4+ Experience in Programming and Database (ERP)
  • http://ww2.justanswer.com/uploads/eljonis/2010-01-06_130406_eljon2.jpg Eljon's Avatar

    Eljon

    Consultant

    Satisfied Customers:

    590
    11 yrs of programming (PHP, WordPress, XSL, SQL, JavaScript)