Creating random subset of list then retreiving other columns

[tutu1201]

Can't think of any other way to describe this.

I Have Excel 2010 and a voter registration list in 1 sheet. A blank sheet will contain a random selection from the VR sheet. Since it only pulls the name, I am trying to write VB code to:
1. Loop through the random sheet, picking the next name and storing to a variable.
2. Activate the VR sheet and read down the list to find a match of name.
3. Once located, copy the entire row data.
4. Return to the random sheet and paste the contents of the var into the row from which just the name was originally retrieved.
5. Move to the next row in the random sheet and repeat until all have been taken care of.

You know, if I just had my trusty, good old dBase III+ or even IV, I'd have this knocked out in no time. Visual Basic -- not my forte.

Can anyone help me code this?

Thanks.

 

[AnAnalyst]

No worries!

If that works then I'd make a couple of minor changes to make it a little more robust:

    ' Find the last column, last row
    With shtSourceSheet
        intLastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column
        dblLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
     [COLOR=red]' Line removed[/COLOR]
    End With
[COLOR=yellowgreen]   If dblLastRow < 11 Then[/COLOR]
[COLOR=yellowgreen]       MsgBox "Not enough data to continue.", vbExclamation, "Not enough data"[/COLOR]
[COLOR=yellowgreen]       GoTo cleanup[/COLOR]
[COLOR=yellowgreen]   End If[/COLOR]

... and ...

    With shtRandoms
        .PasteSpecial
        ' Name and date/time stamp the sample sheet
        [COLOR=yellowgreen].Name = Left(shtSourceSheet.Name, 8) & " Sample " & Format(Now(), "yyyymmdd hhmmss")[/COLOR]
    End With