Copy Row
 

Hi Johno,

I misread your data area; my response
should have read:


To select the row data try:

Selection.Resize(1, 25)

To copy this to (say) cell A10 on Sheet2, try:


Selection.Resize(1, 25).Copy _
Destination:=Sheets("Sheet2").Range("A10")


My comments vis-avis Ron's code, of course,
stand!


---
Regards.
Norman


"Norman Jones" wrote in message news:...
Hi Johno,

To select the row data try:

Selection.Resize(1, 8)

To copy this to (say) cell A10 on Sheet2, try:


Selection.Resize(1, 8).Copy _
Destination:=Sheets("Sheet2").Range("A10")

If you are using Ron's code, you can be
certain that it is excellent. Post the code
you are using so that we can advise how y
our intent might be achieved.



---
Regards.
Norman


"Johno" wrote in message
...
Hello all,
Firstly, this is a great forum for picking up great tips. I am new to
VBA programming and am having (to me) a small problem with my
spreadsheet.

I have my data set out in the format of Col A across to Col Y.
(database)? I am using a macro written by Ron De Bruin to select an ID
number that is always in Col A.

What I need to be able to do is after selecting the required ID
number, select the entire data for the selected row so it can be
copied to another location. I have tried the Selection.End(xltoright)
but all this does is select the very end data.

Would this forum be able to show me the command I need? or maybe a
combined macro that will find the ID number, select the complete data
and copy to another location?

Many thanks.

Les