|
ShowDataForm of Worksheet class failed
Sub AddProduct()
Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub I can produce the form manually selecting Data|Form. However, when trying to add more items, get "cannot extend list or database". Any ideas? TIA doco |
ShowDataForm of Worksheet class failed
Hello Don, Try this method.... With ActiveSheet .Range("AA1:AB1").Select .ShowDataForm End With ActiveCell.Select Sincerely, Leith Ros -- Leith Ros ----------------------------------------------------------------------- Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846 View this thread: http://www.excelforum.com/showthread.php?threadid=47770 |
ShowDataForm of Worksheet class failed
Try naming the range "Database" like this:
Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Selection.Name = "Database" Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub Mike F "Don Cossitt" wrote in message ... Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub I can produce the form manually selecting Data|Form. However, when trying to add more items, get "cannot extend list or database". Any ideas? TIA doco |
ShowDataForm of Worksheet class failed
That did the trick. I am not sure why that would matter but - it worked
thanks. doco "Mike Fogleman" wrote in message ... Try naming the range "Database" like this: Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Selection.Name = "Database" Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub Mike F "Don Cossitt" wrote in message ... Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub I can produce the form manually selecting Data|Form. However, when trying to add more items, get "cannot extend list or database". Any ideas? TIA doco |
ShowDataForm of Worksheet class failed
Excel tries to determine on its own where the data table is by contiguous
cells, when you call for the DataForm. If you have more than one area of contiguous cells, then Excel is confused as to which table it should use, and therefore errors. You tell Excel which table to use by naming it "Database". I have a workbook with 12 little 'Databases' on one hidden sheet. Each area is separated by blank cells. When I want the DataForm to show a certain area, I activate the upper left cell of the area and tell Excel Activecell.CurrentRegion.Name = "Database". Then the DataForm knows to use that area only. I hope this explains it a little clearer. Mike F "doco" wrote in message ... That did the trick. I am not sure why that would matter but - it worked thanks. doco "Mike Fogleman" wrote in message ... Try naming the range "Database" like this: Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Selection.Name = "Database" Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub Mike F "Don Cossitt" wrote in message ... Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub I can produce the form manually selecting Data|Form. However, when trying to add more items, get "cannot extend list or database". Any ideas? TIA doco |
ShowDataForm of Worksheet class failed
Interestingly, it will only work if the first list is in column A. Placed
in any other column produces and error. Is this a bug or is there a workaround? TIA doco "doco" wrote in message ... That did the trick. I am not sure why that would matter but - it worked thanks. doco "Mike Fogleman" wrote in message ... Try naming the range "Database" like this: Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Selection.Name = "Database" Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub Mike F "Don Cossitt" wrote in message ... Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub I can produce the form manually selecting Data|Form. However, when trying to add more items, get "cannot extend list or database". Any ideas? TIA doco |
ShowDataForm of Worksheet class failed
I can't imagine why not. I tried inserting a blank column A ahead of my
data, once I changed the reference, it still worked as before. Mike F "doco" wrote in message ... Interestingly, it will only work if the first list is in column A. Placed in any other column produces and error. Is this a bug or is there a workaround? TIA doco "doco" wrote in message ... That did the trick. I am not sure why that would matter but - it worked thanks. doco "Mike Fogleman" wrote in message ... Try naming the range "Database" like this: Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Selection.Name = "Database" Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub Mike F "Don Cossitt" wrote in message ... Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub I can produce the form manually selecting Data|Form. However, when trying to add more items, get "cannot extend list or database". Any ideas? TIA doco |
ShowDataForm of Worksheet class failed
A1:B1 contain headers for a list 90 rows deep. D1:F1 contain headers for
list only two deep. When accessing list two @ D1:F1programmatically, data form shows list A1:B1, not D1:F1. If I move 'table' two 19 cols to the right and access programmatically; I get the original worksheet class failure error, but works fine if I manually [Data|Form] select the list. The dataform will only work programatically if the list begins in A1 of any sheet. Its maddening! doco "Mike Fogleman" wrote in message ... I can't imagine why not. I tried inserting a blank column A ahead of my data, once I changed the reference, it still worked as before. Mike F "doco" wrote in message ... Interestingly, it will only work if the first list is in column A. Placed in any other column produces and error. Is this a bug or is there a workaround? TIA doco "doco" wrote in message ... That did the trick. I am not sure why that would matter but - it worked thanks. doco "Mike Fogleman" wrote in message ... Try naming the range "Database" like this: Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Selection.Name = "Database" Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub Mike F "Don Cossitt" wrote in message ... Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub I can produce the form manually selecting Data|Form. However, when trying to add more items, get "cannot extend list or database". Any ideas? TIA doco |
ShowDataForm of Worksheet class failed
I sent you a working to sample to play with.
Mike F "doco" wrote in message ... A1:B1 contain headers for a list 90 rows deep. D1:F1 contain headers for list only two deep. When accessing list two @ D1:F1programmatically, data form shows list A1:B1, not D1:F1. If I move 'table' two 19 cols to the right and access programmatically; I get the original worksheet class failure error, but works fine if I manually [Data|Form] select the list. The dataform will only work programatically if the list begins in A1 of any sheet. Its maddening! doco "Mike Fogleman" wrote in message ... I can't imagine why not. I tried inserting a blank column A ahead of my data, once I changed the reference, it still worked as before. Mike F "doco" wrote in message ... Interestingly, it will only work if the first list is in column A. Placed in any other column produces and error. Is this a bug or is there a workaround? TIA doco "doco" wrote in message ... That did the trick. I am not sure why that would matter but - it worked thanks. doco "Mike Fogleman" wrote in message ... Try naming the range "Database" like this: Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Selection.Name = "Database" Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub Mike F "Don Cossitt" wrote in message ... Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub I can produce the form manually selecting Data|Form. However, when trying to add more items, get "cannot extend list or database". Any ideas? TIA doco |
ShowDataForm of Worksheet class failed
Got it! Thanks
doco "Mike Fogleman" wrote in message ... I sent you a working to sample to play with. Mike F "doco" wrote in message ... A1:B1 contain headers for a list 90 rows deep. D1:F1 contain headers for list only two deep. When accessing list two @ D1:F1programmatically, data form shows list A1:B1, not D1:F1. If I move 'table' two 19 cols to the right and access programmatically; I get the original worksheet class failure error, but works fine if I manually [Data|Form] select the list. The dataform will only work programatically if the list begins in A1 of any sheet. Its maddening! doco "Mike Fogleman" wrote in message ... I can't imagine why not. I tried inserting a blank column A ahead of my data, once I changed the reference, it still worked as before. Mike F "doco" wrote in message ... Interestingly, it will only work if the first list is in column A. Placed in any other column produces and error. Is this a bug or is there a workaround? TIA doco "doco" wrote in message ... That did the trick. I am not sure why that would matter but - it worked thanks. doco "Mike Fogleman" wrote in message ... Try naming the range "Database" like this: Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Selection.Name = "Database" Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub Mike F "Don Cossitt" wrote in message ... Sub AddProduct() Application.ScreenUpdating = False Range("AA1:AB1").Select Range(Selection, Selection.End(xlDown)).Select ' error with or without this line Application.CutCopyMode = False ' error with or without this line ActiveSheet.ShowDataForm ' produces the error Application.ScreenUpdating = True End Sub I can produce the form manually selecting Data|Form. However, when trying to add more items, get "cannot extend list or database". Any ideas? TIA doco |
| All times are GMT +1. The time now is 05:27 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com