copy-paste-selected-cell-range-another-sheet

**KK1234** · 04-24-2013, 06:05 AM

Hi,
I have sheet1.
In this I have columns A to N ( Rows A2 to N45) having data in it such as text, date, formula, numbers etc.

I want to just copy the data ( value only) from Sheet1 A2:I45 , L2:L45 & M2:M45 ( skipping the column J & K)
And paste it to sheet2 in C14:J56 , L14:L56 & M14:M56.

In short I want the following:
Copy from sheet1 Paste to sheet2
A2:I45 C14:J56

L2:L45 L14:L56

M2:M45 M14:M56

I tried everything. It does not work. If I copy and paste manually it takes few min, but this book is used by many and I want to avoid errors by others in doing so.
Sorry bit confused. Please help
Regards

**:) Sixthsense :)** · 04-24-2013, 06:19 AM

Try this...

Sub test()

 'Turn off screen flashing for speed
Application.ScreenUpdating = False
 
With Worksheets("sheet1")
    .Range("A2:I45").Copy Sheets("sheet2").Range("C14")
    .Range("L2:L45").Copy Sheets("sheet2").Range("L14")
    .Range("M2:M45").Copy Sheets("sheet2").Range("M14")
End With

 'Resume screen updates
Application.ScreenUpdating = True
End Sub

**KK1234** · 04-24-2013, 06:36 AM

Actually, I have clicked on each of the cell in column L of sheet 2 and it actually has copied the formula instead of a result a word ' Overdue'
e.g. in L14 in sheet2 is has a formula

=IF(A14="","",IF(I14<AS14,"Overdue",""))

**:) Sixthsense :)** · 04-24-2013, 06:42 AM

Try this...

Sub test()
 
 'Turn off screen flashing for speed
Application.ScreenUpdating = False
 
With Worksheets("sheet1")
    Sheets("sheet2").Range("C14").Value = .Range("A2:I45").Value
    Sheets("sheet2").Range("L14").Value = .Range("L2:L45").Value
    Sheets("sheet2").Range("M14").Value = .Range("M2:M45").Value
End With

 'Resume screen updates
Application.ScreenUpdating = True

End Sub