CODEWITHSUNDEEP
vbaexcel
Val
Val

Reputation: 413

select multiple rows using variable

I have a loop that runs through the worksheet and keeps track of works where the guy is named "bill" then memorizes those rows and i want to copy them over to the next sheet.

my problem is that 'works 'Range("525:525,504:504,502:502,497:497,496:496,495:495,494:494,493:493,492:492,491:491,478:478,471:471,453:453,450:450,449:449,448:448,447:447,446:446,445:445,444:444,443:443,442:442,441:441,440:440,439:439,438:438,437:437,436:436,427:427,129:129").Select

but when i use a variable to create that list of rows, it doesnt select the rows

Dim accountsArray(2, 2) As String

accountsArray(1, 0) = "test"
accountsArray(1, 1) = "bill"

Dim rngCounter As String
rngCounter = Chr(34)
For i = ActiveSheet.Cells(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row, 1).Row To 2          Step -1

    'save rows with bill
    If InStr((ActiveSheet.Cells(i, 2).Text), accountsArray(1, 1)) <> 0 Then
        If Len(rngCounter) < 2 Then rngCounter = rngCounter & i & ":" & i Else rngCounter = rngCounter & "," & i & ":" & i
    End If
Next i

rngCounter = rngCounter & Chr(34)

'works
'Range("525:525,504:504,502:502,497:497,496:496,495:495,494:494,493:493,492:492,491:491,478:478,471:471,453:453,450:450,449:449,448:448,447:447,446:446,445:445,444:444,443:443,442:442,441:441,440:440,439:439,438:438,437:437,436:436,427:427,129:129").Select

'does not work
Range(rngCounter).Select

Selection.Copy
Sheets.Add after:=ActiveSheet
ActiveSheet.Paste

Upvotes: 0

Views: 160

Answers (1)

Enigmativity
Enigmativity

Reputation: 117185

The way the code currently is written you're effectively calling this:

Range("""525:525,504:504,502:502,497:497,496:496,495:495,494:494,493:493,492:492,491:491,478:478,471:471,453:453,450:450,449:449,448:448,447:447,446:446,445:445,444:444,443:443,442:442,441:441,440:440,439:439,438:438,437:437,436:436,427:427,129:129""").Select

So take out the Chr(34) (double quotes) that you are adding to the beginning and end of your string and it'll work fine.

Upvotes: 2

Related Questions