| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy cells
Great. That did the job. Thank you.
"Norman Jones" wrote: Hi Erik, If you want the receiving range on Sheet2 to be (say) C11:D30, you could replace your code with: Private Sub Worksheet_Change(ByVal Target As Range) Dim copyRng As Range Set copyRng = Range("A1:B20") '<<<<<< CHANGE If Not Intersect(Target, copyRng) Is Nothing Then With Worksheets("Sheet2"). _ Range(Target.Address).Offset(10, 2) '<<<<< CHANGE .Value = Target.Value End With End If End Sub You can alter the receiving range on Sheet2 by altering the Offset co-ordinates above. Set the copy range and receiving ranges to suit your personal requirements. --- Regards, Norman |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Copy Visible Cells in Sheet with Merged and Hidden Cells | Excel Discussion (Misc queries) | |||
| How can I copy big ranges of cells without drag or copy/paste? | Excel Discussion (Misc queries) | |||
| Copy Source Cells to Destination Cells Only when a Change Occurs | Excel Discussion (Misc queries) | |||
| Copy and paste versus copy and insert copied cells | New Users to Excel | |||
| Copy/Paste how to avoid the copy of formula cells w/o calc values | Excel Discussion (Misc queries) | |||
Threaded Mode
