Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
delete part of a sheet
how would i delete part of a worksheet. the following deletes a worksheet
and copies new data to A1 but i want to leave the first 5 rows protected & just delete the remaining rows in the sheet then copy source data to C6. 'delete data sheet each time before copy Application.DisplayAlerts = False 'trun off del warning Windows("test.xls").Activate ' Sheets("data").Visible = True 'unhide so can copy to Sheets("data").Select ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True 'trun warning back on Windows("Book1").Activate ' COPY to test workbook , Data sheet, place at beginning ActiveWorkbook.ActiveSheet.Copy Befo=Workbooks("test.xls").Sheets(1) ' Rename first sheet Workbooks("test.xls").Sheets(1).Name = "data" thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
delete part of a sheet
Two scenerios...
either you can first copy the first five rows to book1 like: Rows("1:5").Select Selection.Copy Windows("Book1").Activate sheets("Sheet1").select Range("A1").Select Selection.Insert Shift:=xlDown then paste this sheet after deleting data sheet and your code.... or delete from row 6 onwards in data sheet.. Windows("test.xls").Activate ' Sheets("data").Visible = True 'unhide so can copy to Sheets("data").Select Rows("6:65536").delete ActiveWindow.SelectedSheets.Delete Windows("Book1").Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Copy Windows("test.xls").Activate Range("A6").Select ActiveSheet.Paste ' Rename first sheet Workbooks("test.xls").Sheets(1).Name = "data" Abdul Salam -----Original Message----- how would i delete part of a worksheet. the following deletes a worksheet and copies new data to A1 but i want to leave the first 5 rows protected & just delete the remaining rows in the sheet then copy source data to C6. 'delete data sheet each time before copy Application.DisplayAlerts = False 'trun off del warning Windows("test.xls").Activate ' Sheets("data").Visible = True 'unhide so can copy to Sheets("data").Select ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True 'trun warning back on Windows("Book1").Activate ' COPY to test workbook , Data sheet, place at beginning ActiveWorkbook.ActiveSheet.Copy Befo=Workbooks ("test.xls").Sheets(1) ' Rename first sheet Workbooks("test.xls").Sheets(1).Name = "data" thanks . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel sheet bootom half sheet goes behind top part of sheet | Excel Worksheet Functions | |||
delete a - if it is the last part of a string | Excel Discussion (Misc queries) | |||
Delete part of a cell | Excel Worksheet Functions | |||
delete part of a row based on certain criteria | Excel Worksheet Functions | |||
Delete part of a formula | Excel Discussion (Misc queries) |