How to copy specific number of rows from cells to cells?

[Eric]

There is a given number in cell U1, which equals to 9, so
I would like to copy 9 cells starting from cell V3, which should copy from
V3 to V11 and paste text only into A3 to A11.

If the given number in cell U1 is 6, then
I would like to copy 6 cells starting from cell V3, which should copy from
V3 to V11 and paste text only into A3 to A8.

Does anyone have any suggestions on how to code this macro in excel 2003?
Thanks in advance for any suggestions
Eric

 

[Jacob Skaria]

Hi Eric

Try..

Range("V3").Resize(Range("U1").Value).Copy Range("A3")

 

[Rick Rothstein]

When you say "text only"... do you mean cells with numbers should be
formatted as text, or is that your way of saying the cells you are copying
have formulas in them but you only want to copy the values the formulas are
displaying?

 

[Eric]

What if I would like to copy a range V3:Z3,
For example
There is a given number in cell U1, which equals to 9, so
I would like to copy 9 rows starting from cell V3:Z3, which should copy from
V3:Z3 to V11:Z11 and paste text only into A3 to E11.

Does anyone have any suggestions?
Thank you very much for any suggestions
Eric

 

[Jacob Skaria]

Try the below...I hope you meant A3 to B11 and not A3 to E11.

Range("V3").Resize(Range("U1").Value,2).Copy Range("A3")

Also check out help on Resize() and Offset() functions....

 

[Eric]

After I try following code, and see the code display on running macro, but
text disappears after re-calucation, do you have any suggestions on what
wrong it is?
Thanks in advance for any suggestions
Eric

 

[Jacob Skaria]

Do you have any other worksheet/workbook events .. Try this in a new workbook

 

[Jacob Skaria]

For values..

Range("V3").Resize(Range("U1").Value, 2).Copy
Range("A3").PasteSpecial xlPasteValues
Application.CutCopyMode = False

 

[Eric]

Value only without formula
Thank everyone very much for suggestions
Eric

 

[Eric]

It works now, thank everyone very much for suggestions
Eric