multiple Insert Shift:=xlDown
hi all !!!
i just need to write down my code so to make 300 times the next command.. or to insert 300 times a void line ( dimension e80:l80 ) in e 82 : aWS.Range("E80:L80").Copy aWS.Range("E82").Insert Shift:=xlDown let me know pls if you have any idea !! byy! |
multiple Insert Shift:=xlDown
I think this is what you mean
aWS.Range("E80:L80").Copy aWS.Range("E82").Resize(100).Insert Shift:=xlDown -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "N+" wrote in message ... hi all !!! i just need to write down my code so to make 300 times the next command.. or to insert 300 times a void line ( dimension e80:l80 ) in e 82 : aWS.Range("E80:L80").Copy aWS.Range("E82").Insert Shift:=xlDown let me know pls if you have any idea !! byy! |
multiple Insert Shift:=xlDown
If you really need to shift existing content downward, then this should do
what you asked... Range("E80:L80").Copy Range("E82").resize(300).Insert Shift:=xlDown However, if there is no existing data that needs to be preserved in the target area, then you could do this instead... Range("E80:L80").Copy Range("E82").Resize(300) Rick "N+" wrote in message ... hi all !!! i just need to write down my code so to make 300 times the next command.. or to insert 300 times a void line ( dimension e80:l80 ) in e 82 : aWS.Range("E80:L80").Copy aWS.Range("E82").Insert Shift:=xlDown let me know pls if you have any idea !! byy! |
multiple Insert Shift:=xlDown
YES TY AGAIN BOB !!
if i will have any result i will not forget you for the timer sub !! byy "Bob Phillips" wrote: I think this is what you mean aWS.Range("E80:L80").Copy aWS.Range("E82").Resize(100).Insert Shift:=xlDown -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "N+" wrote in message ... hi all !!! i just need to write down my code so to make 300 times the next command.. or to insert 300 times a void line ( dimension e80:l80 ) in e 82 : aWS.Range("E80:L80").Copy aWS.Range("E82").Insert Shift:=xlDown let me know pls if you have any idea !! byy! |
multiple Insert Shift:=xlDown
hi rick i need the content to be "stored " down there !!
ty for the example "Rick Rothstein (MVP - VB)" wrote: If you really need to shift existing content downward, then this should do what you asked... Range("E80:L80").Copy Range("E82").resize(300).Insert Shift:=xlDown However, if there is no existing data that needs to be preserved in the target area, then you could do this instead... Range("E80:L80").Copy Range("E82").Resize(300) Rick "N+" wrote in message ... hi all !!! i just need to write down my code so to make 300 times the next command.. or to insert 300 times a void line ( dimension e80:l80 ) in e 82 : aWS.Range("E80:L80").Copy aWS.Range("E82").Insert Shift:=xlDown let me know pls if you have any idea !! byy! |
multiple Insert Shift:=xlDown
Rick, how would I apply the resize property in my following situation?
I have sets of data in blocks of three vertical cells (A1:A3, B1:B3, C1:C3, A4:A6, B4:B6...................). I need to shift them as many blocks as the user indicated starting from left to right and then when column C is reched downbelow to the nex available row, something like this 123 456 789 would look like this if shifted two blocks 1 234 567 89 Thanks in advance "Rick Rothstein (MVP - VB)" wrote: If you really need to shift existing content downward, then this should do what you asked... Range("E80:L80").Copy Range("E82").resize(300).Insert Shift:=xlDown However, if there is no existing data that needs to be preserved in the target area, then you could do this instead... Range("E80:L80").Copy Range("E82").Resize(300) Rick "N+" wrote in message ... hi all !!! i just need to write down my code so to make 300 times the next command.. or to insert 300 times a void line ( dimension e80:l80 ) in e 82 : aWS.Range("E80:L80").Copy aWS.Range("E82").Insert Shift:=xlDown let me know pls if you have any idea !! byy! |
All times are GMT +1. The time now is 06:45 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com