| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Another Simple Error - More Info
Who asked that?
-- Regards, Tom Ogilvy "Jim Cone" wrote in message ... Setting the "Take Focus on Click" property to False, allows the activeX CommandButton to work in XL97. "Jim Cone" wrote in message ... Jim, Your final code doesn't work for me. For one thing, "ScreenUpdating" should be Application.ScreenUpdating. Here is my reponse to your previous message, I think it still applies... In addition to Chip Pearson's recommendation, the following two changes allowed it to work for me... 1. Change the Button to one from the forms toolbar. Why? 2. Change the SourceRange to two rows from one row. Unless you do that you just get the same data repeated. 3. Make sure the i variable is at least 6, or you won't have enough rows in which to place the filled data... '--------------------------------------------- Sub FillTest2() Dim SourceRange As Excel.Range Dim FillRange As Excel.Range Dim response Dim newWO, i, j As Integer response = InputBox("Enter the number of WO's you want to create") Application.ScreenUpdating = False Sheets("Power Units").Activate i = (response - 2) * 0.4 If i < 6 Then i = 6 With Worksheets("Power Units") Set SourceRange = .Range("A3:AV4") Set FillRange = .Range(.Cells(3, 1), .Cells(i, 48)) SourceRange.AutoFill Destination:=FillRange End With Application.ScreenUpdating = True End Sub '------------------------------------------- Regards, Jim Cone San Francisco, USA |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| #VALUE Error should be simple fix | Excel Discussion (Misc queries) | |||
| Extracting info from one col. and combining it with a simple formu | Excel Discussion (Misc queries) | |||
| Another simple error... | Excel Programming | |||
| Simple #DIV/0! error | Excel Worksheet Functions | |||
| Simple INT error? | Excel Programming | |||
Hybrid Mode
