run-time error
The code is working perfectly on my computer.
But, on the one user computer it's generate an error message: "Rin-time error '1004'. This operation requires the merged cells to be identically sized' Worksheets("Sheet").Range("B4").Sort _ Key1:=Worksheets("Initiatives").Columns("B"), Order1:=xlAscending, _ Header:=xlGuess Could anybody help me on it? Thanks |
run-time error
Your range and the key to sort by have to be on the same sheet. In fact, the
key has to be part of the range. Are you positve it worked on any pc? Alex wrote: The code is working perfectly on my computer. But, on the one user computer it's generate an error message: "Rin-time error '1004'. This operation requires the merged cells to be identically sized' Worksheets("Sheet").Range("B4").Sort _ Key1:=Worksheets("Initiatives").Columns("B"), Order1:=xlAscending, _ Header:=xlGuess Could anybody help me on it? Thanks -- Dave Peterson |
run-time error
Thanks, Dave.
Sorry, for the confusion. Of course, there is the same sheet name. I just didn't change it in my posting properly. Worksheets("Sheet1").Range("B4").Sort _ Key1:=Worksheets("Sheet1").Columns("B"), Order1:=xlAscending, _ Header:=xlGuess So, the Key is on the same sheet but I have the error. "Dave Peterson" wrote: Your range and the key to sort by have to be on the same sheet. In fact, the key has to be part of the range. Are you positve it worked on any pc? Alex wrote: The code is working perfectly on my computer. But, on the one user computer it's generate an error message: "Rin-time error '1004'. This operation requires the merged cells to be identically sized' Worksheets("Sheet").Range("B4").Sort _ Key1:=Worksheets("Initiatives").Columns("B"), Order1:=xlAscending, _ Header:=xlGuess Could anybody help me on it? Thanks -- Dave Peterson |
run-time error
Working with merged cells is a pain. I do my best to avoid them.
Can you remove the merge, sort the data and then reapply the merge? (Or do your best to just drop those merged cells completely.) And did you have merged cells in the range that was being sorted on both workbooks (on both pcs)? Alex wrote: Thanks, Dave. Sorry, for the confusion. Of course, there is the same sheet name. I just didn't change it in my posting properly. Worksheets("Sheet1").Range("B4").Sort _ Key1:=Worksheets("Sheet1").Columns("B"), Order1:=xlAscending, _ Header:=xlGuess So, the Key is on the same sheet but I have the error. "Dave Peterson" wrote: Your range and the key to sort by have to be on the same sheet. In fact, the key has to be part of the range. Are you positve it worked on any pc? Alex wrote: The code is working perfectly on my computer. But, on the one user computer it's generate an error message: "Rin-time error '1004'. This operation requires the merged cells to be identically sized' Worksheets("Sheet").Range("B4").Sort _ Key1:=Worksheets("Initiatives").Columns("B"), Order1:=xlAscending, _ Header:=xlGuess Could anybody help me on it? Thanks -- Dave Peterson -- Dave Peterson |
run-time error
Thanks, Dave again.
I've taken off the merging. This user is already gone. We'll see on Monday how it'll work. Best Regards, Alex "Dave Peterson" wrote: Working with merged cells is a pain. I do my best to avoid them. Can you remove the merge, sort the data and then reapply the merge? (Or do your best to just drop those merged cells completely.) And did you have merged cells in the range that was being sorted on both workbooks (on both pcs)? Alex wrote: Thanks, Dave. Sorry, for the confusion. Of course, there is the same sheet name. I just didn't change it in my posting properly. Worksheets("Sheet1").Range("B4").Sort _ Key1:=Worksheets("Sheet1").Columns("B"), Order1:=xlAscending, _ Header:=xlGuess So, the Key is on the same sheet but I have the error. "Dave Peterson" wrote: Your range and the key to sort by have to be on the same sheet. In fact, the key has to be part of the range. Are you positve it worked on any pc? Alex wrote: The code is working perfectly on my computer. But, on the one user computer it's generate an error message: "Rin-time error '1004'. This operation requires the merged cells to be identically sized' Worksheets("Sheet").Range("B4").Sort _ Key1:=Worksheets("Initiatives").Columns("B"), Order1:=xlAscending, _ Header:=xlGuess Could anybody help me on it? Thanks -- Dave Peterson -- Dave Peterson |
All times are GMT +1. The time now is 08:59 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com