XL07: Copy subset or named range into new range based on column values


New Member
Feb 5, 2009

I have a spreadsheet that tracks stocks I'm interested in. The first 3 columns are (the rest of the columns being data such as P/E, Yield, etc.)

# Ticker Name
1 BAC Bank of America
1 WFC Wells Fargo
2 ORCL Oracle
2 CSCO Cisco

The '#' is an arbitray grouping ID. 1 is for banking, 2 is for tech, etc. I have a named range, ValTable, that encompasses all the data in the table.

I would like to, in VBA/macro, loop through the ValTable range and copy a subset of the range, based on the # column, to a temporary range variable (let's call it TmpRange). I then want to take TmpRange and put a border around the data it contains in the worksheet using the "borderaround" method. Essentially:

  1. Copy all rows from range ValTable where # equals "1" to TmpRange.
  2. Put a border around the subset (or other formatting).
  3. Loop through the ValTable range to do the same for #'s 2, 3, etc.
I hope that explains it. This is my first post but I've been a huge fan of this board for years. :)


Some videos you may like

Excel Facts

Add Bullets to Range
Select range. Press Ctrl+1. On Number tab, choose Custom. Type Alt+7 then space then @ sign (using 7 on numeric keypad)

Watch MrExcel Video

Forum statistics

Latest member

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...