Copy target as well as three cells to the left of the target.

[Sonican]

Is there any way that I can copy, on the double click of any cell in column A, the cell that I clicked on as well as the 3 cells to the right of that cell in sheet1, and then paste them in a column on sheet2 in the cells B2:B5.

Alternatively, is there any way when i double click a cell to have excel copy the cell one to the left of the one that i double clicked? My thought is that i could be able to just make a different macro for offsetting the copy one cell then two then three form the one that I selected.

Thanks for your help!

 

[igold]

Hi Sonican,

Does this do what you want.

Copy code to the Sheet1 module.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


    If ActiveCell.Column <> 1 Then End
    Range("A" & Target.Row & ":D" & Target.Row).Copy
    Worksheets("Sheet2").Range("B2").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Application.CutCopyMode = False
    
End Sub

HTH

igold