shifting the contents of a table 1 row down..

[kragster]

Hi.
Can someone help me create a macro for a button, that shifts all content in a range (table) one row down? Thanks in advance.

 

[PHV]

Have you tried the macrorecorder ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

Hi,
Why shift data in a table? Presumably its to create a new line for data entry. Why not just enter the data at the bottom of the table? There are good reasons to AVOID INSERT. It seems handy, but at times makes things complicated.

Skip,

_[red][/red]

 

[kragster]

Hi Skip,
Exactly. Im making a purchase table and wanted to create an entryfield and a submit button, that inserted the data from the entryfield into the top row of the table Is it possible instead to insert the entryfield into the first empty row of the table?

 

[Bong]

If the existing data are contiguous, usedrange might work nicely for you:

newrow = usedrange.rows.count + 1

assuming the used range starts in row-1.

_________________
Bob Rashkin

 

[kragster]

Hmm, what I have done now is to make a variable for each cell in the entryfield. What I would like to do, is to find the first empty row in a range, and insert the variable into the appropriate cells. How do I find the first empty row in a range?

 

[SkipVought]

set rNextEmptyCell = oFirstCellInRange.End(xlDown).offset(1)

Skip,

_[red][/red]

 

[yogia]

Hi kragster:

If you are looking for the row number next to CurrentRegion associated with the ActiveCell, then try ...

nextEmptyrow=activecell (activecell.CurrentRegion.Rows.count +1 ).row

Yogi Anand, D.Eng, P.E.
Energy Efficient Building Network LLC

http://www.energyefficientbuild.com