Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
|
|||
|
|||
VBA and insert question
Hello
I hve some code that inserts 4 lines into a spreadsheet one at a time Is there a line of code that would permit me to put in 4 lines in one go? Many thanks With Sheets("sheet1").Range("BL1:BX1") .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With With Sheets("sheet1").Range("BL1:BX1") .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With With Sheets("sheet1").Range("BL1:BX1") .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With With Sheets("sheet1P").Range("BL1:BX1") .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With |
#2
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
|
|||
|
|||
VBA and insert question
Hi
Expand the range to be 4 rows: With Sheets("Sheet1").range("BL1:BX4") .... Regards, Per On 2 Jan., 01:16, "teepee" wrote: Hello I hve some code that inserts 4 lines into a spreadsheet one at a time Is there a line of code that would permit me to put in 4 lines in one go? Many thanks With Sheets("sheet1").Range("BL1:BX1") * * .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove * * End With * * With Sheets("sheet1").Range("BL1:BX1") * * .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove * * End With * * With Sheets("sheet1").Range("BL1:BX1") * * .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove * * End With * * With Sheets("sheet1P").Range("BL1:BX1") * * .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove * * End With |
#3
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
|
|||
|
|||
VBA and insert question
"Per Jessen" wrote . Hi Expand the range to be 4 rows: D'oh thanks |
#4
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
|
|||
|
|||
VBA and insert question
Sub insert4rows()
Sheets("sheet1").Range("BL1").Resize(4).EntireRow. Insert End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "teepee" wrote in message ... Hello I hve some code that inserts 4 lines into a spreadsheet one at a time Is there a line of code that would permit me to put in 4 lines in one go? Many thanks With Sheets("sheet1").Range("BL1:BX1") .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With With Sheets("sheet1").Range("BL1:BX1") .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With With Sheets("sheet1").Range("BL1:BX1") .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With With Sheets("sheet1P").Range("BL1:BX1") .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA and insert question | Excel Discussion (Misc queries) | |||
An 'Insert' question | Excel Discussion (Misc queries) | |||
An 'Insert' question | Excel Programming | |||
Excel insert question | Excel Worksheet Functions | |||
Chart question insert | Excel Worksheet Functions |