auto copy only selected cells
 

Hi Guys,

I have a spreadsheet that is basically a time sheet,
I have to put a customer name and number into
cell D24 to D59 and a quantity of hours into U24 to D59
monday covers D24 to D28
Tuesday covers D29 to D32
etc.
The same for the time

I then have to further down the sheet repeat this information in I93
to I20(ish)

my problem is that
A, I dont want to have to manually type in the same info twice
B, I may only do one job a day so I'm left with 3 blank cells before I start
tuesday, what i need to do is to have the info repeated from cell d24 into
I93 but I94 could need to contain data from one of the following cells d25,
d26, d27,d28 or d29, depends on how many jobs i do.


many thanks in advance, hope this is clear..

keith

auto copy only selected cells
 

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then

Range("A1:G4").Copy Destination:=ActiveCell
End If
Cancel = True

End Sub

Paste this code in a worksheet module
For this example, when ever you are in column A and right click;
you will paste range A1:G4 to the active cell