Special Ranges of Cells

  • Thread starter Thread starter BOHICA
  • Start date Start date
B

BOHICA

I have vb code that is doing a bunch of sorting crap, sorting data
pulled from a...you guessed it...database! Anyhoo, it sorts the order
data by the city that the orders ship out of, so this is the
information (happens to be the D column) that I use to do muh thing.
Unfortunaely, it sorts alphabetically, and it wouldn't be a problem,
except one stupid city is in the wrong county (all the others just
magically worked alphabetically). So, As the macro rips through the
sheet, it seperates by city and autosums and bolds some info, but I am
trying to ge it to cut this special city (we shall name it
"BOHICA-Town") and paste it at the end of the data, then go back to
where it was and continue. Unfortunately, since the number of orders
change every time you pull data, I need to try and figure out how to
name a variable range of rows to cut and paste. But the Range feature
only recognizes the A1 format...and I dun have that, because the
number are variable. Anyone have an idea of how I migt be able to do
this?
 
Not sure I follow but can you do a search on the column it
is in (looking for the particular city (selection.find
(what:=town, lookin:=xlvlaues, lookat:=xlwhole).select

then with that cell cut to to the bottom

rows(selection.row).cut destination:=rows(range
("A65536").end(xlup).row +1

then put it back when you finish?

Not sure of the exact coding but either someone else might
post a better solution or I am sure you can do a record
macro to find most of the code required

Jay
 
<<But the Range feature only recognizes the A1 format>>

Not true. Try

'--------------------------------------------------------------
ActiveSheet.Range(Cells(1, 1), Cells(5, 5)).Select
'--------------------------------------------------------------

You can replace the hardcoded numbers with variables
 
Back
Top