Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Merge Cells run-time error '1004'
Could anyone help me about the problem with this line of Macro?
Worksheets("DIFF").Range(Cells(CommonRowInd, CommonColInd), Cells(CommonRowInd + 1, CommonColInd)).Select Selection.Merge When I debug, CommonRowInd is 1 and CommonColInd is 25 (as expected). I try to merge two cells, but I have this problem. Any suggestions? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Merge Cells run-time error '1004'
darxoul napisal(a): Could anyone help me about the problem with this line of Macro? Worksheets("DIFF").Range(Cells(CommonRowInd, CommonColInd), Cells(CommonRowInd + 1, CommonColInd)).Select Selection.Merge When I debug, CommonRowInd is 1 and CommonColInd is 25 (as expected). I try to merge two cells, but I have this problem. Any suggestions? is Worksheets("DIFF") active worksheet? it should be active to select if its active u can ...... RowInd, CommonColInd), Cells(CommonRowInd + 1, CommonColInd)).Merge without selecting it mcg |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Merge Cells run-time error '1004'
Sub abc()
CommonRowInd = 1 CommonColInd = 25 With Worksheets("DIFF") .Range(.Cells(CommonRowInd, CommonColInd), _ .Cells(CommonRowInd + 1, CommonColInd)).Merge End With End Sub worked fine for me on a new sheet. It didn't require the the sheet DIFF be active. -- Regards, Tom Ogilvy "darxoul" wrote: Could anyone help me about the problem with this line of Macro? Worksheets("DIFF").Range(Cells(CommonRowInd, CommonColInd), Cells(CommonRowInd + 1, CommonColInd)).Select Selection.Merge When I debug, CommonRowInd is 1 and CommonColInd is 25 (as expected). I try to merge two cells, but I have this problem. Any suggestions? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Merge Cells run-time error '1004'
Yes, it works this way.
Thanks a lot. But why? "Tom Ogilvy" wrote: Sub abc() CommonRowInd = 1 CommonColInd = 25 With Worksheets("DIFF") .Range(.Cells(CommonRowInd, CommonColInd), _ .Cells(CommonRowInd + 1, CommonColInd)).Merge End With End Sub worked fine for me on a new sheet. It didn't require the the sheet DIFF be active. -- Regards, Tom Ogilvy "darxoul" wrote: Could anyone help me about the problem with this line of Macro? Worksheets("DIFF").Range(Cells(CommonRowInd, CommonColInd), Cells(CommonRowInd + 1, CommonColInd)).Select Selection.Merge When I debug, CommonRowInd is 1 and CommonColInd is 25 (as expected). I try to merge two cells, but I have this problem. Any suggestions? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Run-time error '1004': Method 'Cells' of object _Global failed | Excel Programming | |||
Run-time error 1004: Cannot shift nonblank cells off the worksheet | Excel Discussion (Misc queries) | |||
Microsoft Visual Basic Run-time error '1004' No cells were found | Excel Programming | |||
Run-time error '1004': No cells were found | Excel Programming | |||
Run-time error '1004': No cells were found | Excel Programming |