Nader
12-05-2011, 04:15 AM
I tried this way to insert the seleted cells value and offset of selected cells vlaue to another cells in another sheet, but didn't success.
Sheets(2).Cells(2,4).Value=Sheets(1).Cells.Select .Offset(3, 2).Value
Sheets(2).Cells(1,3).Value=Sheets(1).Cells.Select .Offset(2, 1).Value
Sheets(2).Cells(2,4).Value=Sheets(1).Cells.Select .Offset(3, 2).Value
Sheets(2).Cells(1,3).Value=Sheets(1).Cells.Select .Offset(2, 1).Value