VBA to find the first and last cell in a Range = a value?

[wageslave101]

Hello again

I have an Excel sheet with over 30,000 rows of data in it. Presently it has several Autofilters, one of which, in row C, sorts the records according to username.

I am wanting to then select a range that covers the first entry and the last entry that matches the users name.

The reason for this is that once sorted by the autofilter the range varies every day depending on the user. For example user1 that I just checked, under the autofilter they have 112 entries with in a range

Range("C14163:C22567").Select

To make dealing with the data easier, the goal was to run a macro from a new workbook, that opens the large sheet, uses the autofilter to sort by the user, then copy the entire range displayed.

I've got it opening, sorting by user but I'm not sure how to automate determning the first row in which the users name appears and the last. So that the macro/vba can do this each day without someone having to choose the range.

Any suggestions?

Sincerely,
WageSlave101

 

[tactps]

If you have a filter on and copy and paste all of the data in the sheet via macro, it will ignore the hidden rows.

So just choose the entire sheet, or range, and copy and paste

 

[ravishankar]

HI
paste the following codes in the macro window (Alt F11)

Sub bb()
x = Cells(Rows.Count, 3).End(xlUp).Row
what = InputBox("enter search name")
For a = 1 To x
If Cells(a, 3) = what Then
First = a
Exit For
End If
Next a
For c = x To 1 Step -1
If Cells(c, 3) = what Then
last = c
End If
Next c
MsgBox "your range is C" & First & ":C" & x - last
End Sub

run the macro
Enter the search name and continue
Ravi

 

[wageslave101]

Thank you very much

Now I adjusted the formula slightly because it was stopping short to, and added in a name directly to remove the input

Sub RepRange()
x = Cells(Rows.Count, 4).End(xlUp).Row
rep = "csr101"
For a = 1 To x
If Cells(a, 4) = rep Then
first = a
Exit For
End If
Next a
For c = x To 1
If Cells(c, 4) = rep Then
last = c
End If
Next c
MsgBox " The first is D" & first & " and the last is D" & x - last
End Sub

The next question is how can I insert these values directly into a range select so that I can automate the copy. Let's say that we've found that the the that first = 11463 and last = 22567 from the formula how do I insert those into a Range("").Select?

Manually it shows up as

Range("C11463:C22567").Select
Selection.Copy

Thank you very much again for you help

WageSlave101

 

[wageslave101]

Ah... worked it out

Thank you again for your help everyone :D

Range("D" & first, "D" & x - last).Select

WageSlave101