Need some macro help!

[Ron99]

Hello,

I have recorded macro, the task which the code has to perform is as below:

I have data in sheet1, I cut the data from sheet1 and paste it in sheet 4, then I delete sheet1, when I delete I get a msg or pop up " Data may exist in sheet selected for deletion, to permanently delete the data, press delete" I press delete.

Now when I am running the data for the second time, I again get the same message,

All that I need is I do not want that message to come up, rather the code should delete it automatically without me pressing the button delete manually

my recorded code:

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Sheets("Sheet4").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
Range("A1").Select



Regards,
Ron

 

[VoG]

Try

With Sheets("Sheet1")
    .UsedRange.Copy Destination:=Sheets("Sheet4").Range("A1")
    Application.DisplayAlerts = False
    .Delete
    Application.DisplayAlerts = True
End With
Application.CutCopyMode = False

 

[JackDanIce]

Try:

Application.DisplayAlerts = False
Sheets("Sheet1").select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Cut
Sheets("Sheet4").Select
ActiveSheet.Range("A1").Paste
Sheets("Sheet1").Delete
Range("A1").Select
Application.DisplayAlerts = True

 

[Ron99]

That's awesome!..thanx mate

 

[Ron99]

Hi,

One more query,

The task is I am inserting a worksheet by using macro recorder, the problem is when I had inserted a worksheet it was sheet7, then I renamed it as summary, when I executed the code, it dint work as it couldnt insert sheet7 again.

my recorded code:

Sheets("Sheet4").Select
Sheets.Add
Sheets("Sheet7").Select
Sheets("Sheet7").Name = "Summary"
Range("A1").Select


regards,
Ron

 

[VoG]

Try

Sheets.Add
ActiveSheet.Name = "Summary"

 

[Ron99]

Thank you