CODEWITHSUNDEEP
vbaexcel
user2236280
user2236280

Reputation: 3

Counting the number of rows in an non-active sheet

I have 2 sheets within a workbook. sheet 1 is where i am calling the macro from.

Within sheet 2 i want to loop through the rows and print "YES" if it was sucsessful.

So far i have the below:

Dim TotalNumRows As Long
Dim noRow As Integer
With Sheets("Sheet2")
'get the amount of rows within Q3 Joiners list
TotalNumRows = .Range("B" & .Rows.Count).End(xlUp).Row

.Range("B2").Select

For userRowNo = 1 To TotalNumRows

MsgBox ("Yes")
 ActiveCell.Offset(1, 0).Select
  Next

End With

Its calculating the amount of rows within sheet 2 but an error is thrown on the '.Range("B2").Select'saying "Select method of range class failed"

Upvotes: 0

Views: 438

Answers (2)

Jbjstam
Jbjstam

Reputation: 884

Do you want to select B2 in Sheet2? In that case, you need to activate the sheet first with .Activate(). You can only select things on the active sheet. Otherwise, remove the line.

In general, you're better off not using .Select or .Activate as a VBA best practice due to the performance hits and difficulties in debugging.

Upvotes: 1

user3598756
user3598756

Reputation: 29421

you can select a range only on active worksheets

Sub main()
    Dim TotalNumRows As Long
    Dim noRow As Integer

    With Sheets("Sheet2")
        .Activate '<-- activate relevant worksheet
        'get the amount of rows within Q3 Joiners list
        TotalNumRows = .Range("B" & .Rows.Count).End(xlUp).Row

        .Range("B2").Select

        For noRow = 1 To TotalNumRows
            MsgBox ("Yes")
            ActiveCell.Offset(1, 0).Select
        Next
    End With
End Sub

Upvotes: 1

Related Questions