Copy data range from one Sheet to Another [Closed]

Report

Shlom

Posts: 1
Registration date: Monday May 11, 2015
Status: Member
Last seen: May 11, 2015

- May 11, 2015 at 05:16 AM

Hi,

i try cope one Range for another Sheet in the Work book but I failed in the Past method and i dont find the problem

Sub CopyClearedDefect()
'
Dim StartCleared
Dim EndCleared
Dim CopeDefects, CopyDest As Range

On Error GoTo ErrorHandler

Sheets("TOtal Rally").Select
'Selection.Range ("A1:A1000")

With Worksheets("TOtal Rally").Range("a1:a500")
Set c = .Find("Start Cleared", LookIn:=xlValues)
If Not c Is Nothing Then
StartCleared = c.Row
End If

Set c = .Find("End Cleared", LookIn:=xlValues)
If Not c Is Nothing Then
EndCleared = c.Row
End If

Set CopeDefects = Worksheets("TOtal Rally").Range("A" & StartCleared, "N" & EndCleared)
CopeDefects.Copy

Sheets("DataCleared").Select
Set CopyDest = Selection.Range("A1:N100")
'Range("A1").Select
CopyDest.ClearContents
CopyDest.Clear
Sheets("DataCleared").Range("A1").Select
Selection.Paste
'CopyDest.Paste
' ActiveSheet.Paste

ErrorHandler:
'Sheets("DataCleared").Range("A1:N100").ClearContents
'Application.ScreenUpdating = True
MsgBox "The Sheet " & ActiveSheet.Name & " Error: " & Err.Number & " - " & Err.Description
Exit Sub
End With

End Sub

Copy data range from one Sheet to Another
How to pull data from one excel sheet into another automatically - How-To - Excel
How to map data in two excel sheets - How-To - Excel
How to get data from one excel sheet to another automatically ✓ - Forum - Excel
Transfer Data From One Excel Sheet to Another - How-To - Excel
Transfer Data From One Excel Sheet to Another Using VBA Code - How-To - Excel

Copy data range from one Sheet to Another [Closed]

Your reply

Subscribe To Our Newsletter!