|
Problem saving file as xls
I just dabble with this programming stuff, I can bet there are lots of ways
to clean up my code below and i would be glad for any help. the big issue is the radgridimport file is saved from a excel web page format by the IT dept. When I save the file after running my code (I am importing this info to mappoint to route out stops) it keeps saving as web page format, i need normal xls file format Thanks Duane Reynolds Sub RadGridImport() Kill ("d:\duane docs\StreetsImportTemplate.xls") Workbooks.Open Filename:="RadGridExport.xls" Worksheets("RadGridExport").Columns("j:q").Delete Worksheets("RadGridExport").Columns("g:h").Delete Worksheets("RadGridExport").Columns("j:q").Delete Worksheets("RadGridExport").Columns("g:h").Insert Range("g1").Value = "City" Range("h1").Value = "State" Range("g2").Select ActiveCell.FormulaR1C1 = "seattle" Range("h2").Select ActiveCell.FormulaR1C1 = "wa" Range("g2:h2").Select Selection.Copy Range("g3:g54").Select ActiveSheet.Paste Application.CutCopyMode = False clearlastrow ActiveWorkbook.SaveAs Filename:="StreetsImportTemplate.xls" End Sub Sub clearlastrow() Range("f2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 1).Select ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete Range("g2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 1).Select ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete End Sub |
Problem saving file as xls
On Jul 5, 1:00 pm, "Duane Reynolds 322310"
wrote: I just dabble with this programming stuff, I can bet there are lots of ways to clean up my code below and i would be glad for any help. the big issue is the radgridimport file is saved from a excel web page format by the IT dept. When I save the file after running my code (I am importing this info to mappoint to route out stops) it keeps saving as web page format, i need normal xls file format Thanks Duane Reynolds Sub RadGridImport() Kill ("d:\duane docs\StreetsImportTemplate.xls") Workbooks.Open Filename:="RadGridExport.xls" Worksheets("RadGridExport").Columns("j:q").Delete Worksheets("RadGridExport").Columns("g:h").Delete Worksheets("RadGridExport").Columns("j:q").Delete Worksheets("RadGridExport").Columns("g:h").Insert Range("g1").Value = "City" Range("h1").Value = "State" Range("g2").Select ActiveCell.FormulaR1C1 = "seattle" Range("h2").Select ActiveCell.FormulaR1C1 = "wa" Range("g2:h2").Select Selection.Copy Range("g3:g54").Select ActiveSheet.Paste Application.CutCopyMode = False clearlastrow ActiveWorkbook.SaveAs Filename:="StreetsImportTemplate.xls" End Sub Sub clearlastrow() Range("f2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 1).Select ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete Range("g2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 1).Select ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete End Sub Here is some code of things that you can look into doing. Be sure to use the VBE Help to see how the properties and methods work as well as the parameter inputs for the corresponding options. Matt Sub test() myary = Array("a:b", "d:f") For a = LBound(myary) To UBound(myary) Columns(myary(a)).Delete Next With Worksheets("RadGridExport") .Columns("a:b").Delete .Columns("e:g").Delete .Rows("1:15").Delete End With ActiveWorkbook.SaveAs Filename:="StreetsImportTemplate", FileFormat:=xlNormal End Sub |
Problem saving file as xls
Thanks the save feature works great.
have not tried the delete rows yet. Basicly what this macro does is import a spreedsheet with addresses - seattle,wa columns, I add this to 40 or so rows not kmowing how many addresses there are from one day to the next. then delete the extra rows with empty addresses. Duane wrote in message oups.com... On Jul 5, 1:00 pm, "Duane Reynolds 322310" wrote: I just dabble with this programming stuff, I can bet there are lots of ways to clean up my code below and i would be glad for any help. the big issue is the radgridimport file is saved from a excel web page format by the IT dept. When I save the file after running my code (I am importing this info to mappoint to route out stops) it keeps saving as web page format, i need normal xls file format Thanks Duane Reynolds Sub RadGridImport() Kill ("d:\duane docs\StreetsImportTemplate.xls") Workbooks.Open Filename:="RadGridExport.xls" Worksheets("RadGridExport").Columns("j:q").Delete Worksheets("RadGridExport").Columns("g:h").Delete Worksheets("RadGridExport").Columns("j:q").Delete Worksheets("RadGridExport").Columns("g:h").Insert Range("g1").Value = "City" Range("h1").Value = "State" Range("g2").Select ActiveCell.FormulaR1C1 = "seattle" Range("h2").Select ActiveCell.FormulaR1C1 = "wa" Range("g2:h2").Select Selection.Copy Range("g3:g54").Select ActiveSheet.Paste Application.CutCopyMode = False clearlastrow ActiveWorkbook.SaveAs Filename:="StreetsImportTemplate.xls" End Sub Sub clearlastrow() Range("f2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 1).Select ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete Range("g2").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 1).Select ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete ActiveCell.Rows.Delete End Sub Here is some code of things that you can look into doing. Be sure to use the VBE Help to see how the properties and methods work as well as the parameter inputs for the corresponding options. Matt Sub test() myary = Array("a:b", "d:f") For a = LBound(myary) To UBound(myary) Columns(myary(a)).Delete Next With Worksheets("RadGridExport") .Columns("a:b").Delete .Columns("e:g").Delete .Rows("1:15").Delete End With ActiveWorkbook.SaveAs Filename:="StreetsImportTemplate", FileFormat:=xlNormal End Sub |
| All times are GMT +1. The time now is 07:19 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com