|
macro command
Hi all i had a problem of shifting selected rows one cell to the right, the
data looks like this:- 328 Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 509 Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ALEX Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ALJ Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANCH Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANG Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANSON Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 BEDOK Sales $ 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 As what you have see the qnty column is not same as the sales column and i had hundred thousand of rows to cut and paste. Range("A746:H746").Select Selection.Cut Range("B746").Select ActiveSheet.Paste Range("A748:H748").Select Selection.Cut Range("B748").Select ActiveSheet.Paste Range("C749").Select Is macro command able to solve the problem? like shifting selected multiple rows one cells to the rigth. |
See the response in your other post...
Shifting of Multiple Row to the right wrote: Hi all i had a problem of shifting selected rows one cell to the right, the data looks like this:- 328 Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 509 Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ALEX Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ALJ Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANCH Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANG Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANSON Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 BEDOK Sales $ 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 As what you have see the qnty column is not same as the sales column and i had hundred thousand of rows to cut and paste. Range("A746:H746").Select Selection.Cut Range("B746").Select ActiveSheet.Paste Range("A748:H748").Select Selection.Cut Range("B748").Select ActiveSheet.Paste Range("C749").Select Is macro command able to solve the problem? like shifting selected multiple rows one cells to the rigth. |
Hi Rowan,
A million Thanks for your help. Best Regards, William "Shifting of Multiple Row to the right" wrote: Hi all i had a problem of shifting selected rows one cell to the right, the data looks like this:- 328 Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 509 Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ALEX Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ALJ Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANCH Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANG Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANSON Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 BEDOK Sales $ 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 As what you have see the qnty column is not same as the sales column and i had hundred thousand of rows to cut and paste. Range("A746:H746").Select Selection.Cut Range("B746").Select ActiveSheet.Paste Range("A748:H748").Select Selection.Cut Range("B748").Select ActiveSheet.Paste Range("C749").Select Is macro command able to solve the problem? like shifting selected multiple rows one cells to the rigth. |
you're welcome.
Shifting of Multiple Row to the right wrote: Hi Rowan, A million Thanks for your help. Best Regards, William "Shifting of Multiple Row to the right" wrote: Hi all i had a problem of shifting selected rows one cell to the right, the data looks like this:- 328 Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 509 Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ALEX Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ALJ Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANCH Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANG Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 ANSON Sales $ 0 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 BEDOK Sales $ 0 0 0 0 0 Qnty 0 0 0 0 0 0 0 As what you have see the qnty column is not same as the sales column and i had hundred thousand of rows to cut and paste. Range("A746:H746").Select Selection.Cut Range("B746").Select ActiveSheet.Paste Range("A748:H748").Select Selection.Cut Range("B748").Select ActiveSheet.Paste Range("C749").Select Is macro command able to solve the problem? like shifting selected multiple rows one cells to the rigth. |
| All times are GMT +1. The time now is 11:51 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com