DO NOT REPLY TO THIS EMAIL, BUT PLEASE POST YOUR BUG· RELATED COMMENTS THROUGH THE WEB INTERFACE AVAILABLE AT <http://issues.apache.org/bugzilla/show_bug.cgi?id=26610>. ANY REPLY MADE TO THIS MESSAGE WILL NOT BE COLLECTED AND· INSERTED IN THE BUG DATABASE.
http://issues.apache.org/bugzilla/show_bug.cgi?id=26610 ------- Additional Comments From [EMAIL PROTECTED] 2005-09-19 13:13 ------- Having AND in the eval part of a If in a formula results in #Value err too. If user goes to the output cell and presses F2 in Excel then presses enter ( makes Excel re evaluate it) the formula shows up ok. Using Calc now in Excel menu does not work Automated work around - placing a loop macro that touches all formula . 'In workbook Private Sub Workbook_Open() If Sheets(1).Range("iv1001").Value = "0" Then Sheets(1).Range("iv1001").Value = "1" Sheets(1).touchFormlas End If End Sub 'in sheet Sub touchFormlas() On Local Error GoTo errH Dim wkBk As Workbook Dim sht As Worksheet Dim i As Long Dim colFrom As Long Dim colTo As Long Dim rwFrm As Long Dim rwTo As Long Set wkBk = Workbooks(ActiveSheet.Cells(1, 2).Value) Set sht = wkBk.Sheets(ActiveSheet.Cells(2, 2).Value) rwFrm = ActiveSheet.Cells(3, 2).Value rwTo = ActiveSheet.Cells(4, 2).Value colFrom = ActiveSheet.Cells(5, 2).Value colTo = ActiveSheet.Cells(6, 2).Value If rwTo < 0 Then rwTo = rwFrm Do While Len(sht.Cells(rwTo, colFrom).Value) > 0 rwTo = rwTo + 1 Loop End If 'touch all cells formulas - workaround for #value POI bug 'run this macro in workbook open ( keep a flag in cell BI5000 so it does not run everytime u open - only first time) For i = rwFrm To rwTo For j = colFrom To colTo If sht.Cells(i, j).Formula <> "" Then z = sht.Cells(i, j).Formula sht.Cells(i, j).Formula = "" sht.Cells(i, j).Value = "=3" sht.Cells(i, j).Formula = z 'sht.Cells(i, j).Formula End If 'sht.Cells(i, j).Refresh Next Next Err.Clear If Err.Number <> 0 Then errH: Debug.Print Err.Number, Err.Description Resume Next End If End Sub -- Configure bugmail: http://issues.apache.org/bugzilla/userprefs.cgi?tab=email ------- You are receiving this mail because: ------- You are the assignee for the bug, or are watching the assignee. --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] Mailing List: http://jakarta.apache.org/site/mail2.html#poi The Apache Jakarta POI Project: http://jakarta.apache.org/poi/
