View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.newusers
A.R.J Allan Jefferys
 
Posts: n/a
Default Active Cell Copy And Paste Sheet to Sheet

Hello Mudraker

and thanks for the reply.

This works well, but if possible i need it to run activecell by cell, See
this is a bookin sheet, so when a guest books in today and he wants to book
another night in a12. So i select a12 on sheet2 and the form selects a12 on
sheet 1 and copies only the contents of that cell or row. This form will have
31 sheets ,but will only ever look at the sheet before it.

Does this make sense
thanks again Allan

"mudraker" wrote:


Allen

Try

Option Explicit

Sub CopyRows()
If ActiveCell.Row 60 Then Exit Sub
Sheets("sheet1").Rows(ActiveCell.Row & ":60").Copy
ActiveSheet.Paste
End Sub


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread...hreadid=537994