macro to select and copy adjucent cells

[kshitij_dch]

hi all i have some selected cells in Column F , i want a macro code which will select cells in column A adjucent to select cells in column F ... both select column cells than gets copied and gets pasted in column H and column I......

 

[JackDanIce]

Ignore

 

[JackDanIce]

Try:

Sub MoveContent()
Dim cell As range
Application.ScreenUpdating = False
If ActiveCell.Column <> 6 Then
  MsgBox "Please select cells from Column F"
  Exit Sub
End If
For Each cell In Selection
    With cell
        .Offset(, -5).Copy
        .Offset(, 2).PasteSpecial xlPasteValues
        .Copy
        .Offset(, 3).PasteSpecial xlPasteValues
    End With
Next cell
With Application
    .CutCopyMode = False
    .ScreenUpdating = True
End With
End Sub

 

[kshitij_dch]

hi thanks for the reply , error is comming in 4th line .copy.... sub function not defiled ???

 

[JackDanIce]

Works for me:

	A	B	C	D	E	F	G	H	I
1	D					A		D	A
2	1					3		1	3
3	2					4		2	4
4	B					B		B	B

<COLGROUP><COL style="WIDTH: 30px; FONT-WEIGHT: bold"><COL style="WIDTH: 64px"><COL style="WIDTH: 35px"><COL style="WIDTH: 35px"><COL style="WIDTH: 35px"><COL style="WIDTH: 35px"><COL style="WIDTH: 64px"><COL style="WIDTH: 35px"><COL style="WIDTH: 64px"><COL style="WIDTH: 64px"></COLGROUP><TBODY>
</TBODY>

 

[kshitij_dch]

its not workin for me ??