Macro giving wrong result for counting rows

This will do as you ask

Sub CountingRows()
    
    Dim wS As Worksheet
    Dim rCntr As Long
    Dim lC As Range
    
    Set wS = Worksheets("Sheet1") 'Replace Sheet1 with name of your worksheet
    For Each lC In wS.Range(wS.Cells(2, 1), wS.Cells(wS.Rows.Count, 1).End(xlUp)) 'Assumes there are headers which are not counted (at A1)
        If lC.Value <> "" Then rCntr = rCntr + 1
    Next lC
    'do something with the counted rows
    Debug.Print rCntr
    
End Sub

How did you apply it to your code? Please provide what you did as I cannot read your mind with regards to why it is not giving any result.

Oh so you want to see a message box with the row count, sorry:

Private Sub CommandButton1_Click()
       
    Dim wS As Worksheet
    Dim rCntr As Long
    Dim lC As Range
    
    Set wS = Worksheets("Sheet1") 'Replace Sheet1 with name of your worksheet
    For Each lC In wS.Range(wS.Cells(2, 1), wS.Cells(wS.rows.Count, 1).End(xlUp)) 'Assumes there are headers which are not counted (at A1)
        If lC.Value <> "" Then rCntr = rCntr + 1
    Next lC
    'do something with the counted rows
    MsgBox rCntr
    
End Sub

Sorry ihave data format issues whenever first value coming as null in row it is not counting.
it should count that record bcz remaining columns having data in that row.If entire row is empty then it should not calculate that row.

Maybe:

Private Sub CommandButton1_Click()
       
    Dim wS As Worksheet
    Dim rCntr As Long
    Dim lC As Range
    
    Set wS = Worksheets("Sheet1") 'Replace Sheet1 with name of your worksheet
    For Each lC In wS.Range(wS.Cells(2, 1), wS.Cells(wS.Rows.Count, 1).End(xlUp)) 'Assumes there are headers which are not counted (at A1)
        If lC.Value <> "" And lC.Offset(0, 1).Value <> "" And lC.Offset(0, 2).Value <> "" Then rCntr = rCntr + 1
    Next lC
    'do something with the counted rows
    MsgBox rCntr
    
End Sub

Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).


(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Originally Posted by aniletc37

ok I agree and confirm that I will absolutely abide by the "cross post" rule in future

Unfortunately this is not enough! You need to add a link to your first post with your thread in the other forum.

I've rerun the code solution I gave you and it performed properly for me. Please upload the workbook in question for analysis.