|
Runtime error 1004 when trying to insert formula in cells
I have a sheet with some numbers in some cells, while other celles are empty. Now I try to replace the numbers with a certain formula, but it returns a runtime error 1004, Application-defines og obeject-defined error.
The macro looks like this: Sub FyldUdfyldte() Dim Indhold As String Indhold = InputBox("Type needed formula"") For Each c In Selection.Cells If Not IsEmpty(c) Then c.Value = Indhold Next c End Sub The formula looks like this =IF(VLOOKUP($A31,Opslag!$A:$M,F$1,FALSE)0,VLOOKUP ($A31,Opslag!$A:$M,F$1,FALSE),"") "Opslag" is another sheet, from where to get new numbers. Any ideas? Jan |
Runtime error 1004 when trying to insert formula in cells
|
Runtime error 1004 when trying to insert formula in cells
Indhold = InputBox("Type needed formula") For Each c In Selection If Not IsEmpty(c) Then c.Formula = Indhold Next c End Sub Claus - I have aldready tried that, but get the same runtime error. Jan |
Runtime error 1004 when trying to insert formula in cells
Hi Jan,
Am Sun, 5 Oct 2014 04:57:40 -0700 (PDT) schrieb : Claus - I have aldready tried that, but get the same runtime error. I tested it here without any error. Did you select some cells before running the macro? Do you write a "=" in front of the formula into the InputBox? Have you tried it with Formula.Local that you can use your function names and your separators? Regards Claus B. -- Vista Ultimate / Windows7 Office 2007 Ultimate / 2010 Professional |
Runtime error 1004 when trying to insert formula in cells
Den søndag den 5. oktober 2014 14.11.07 UTC+2 skrev Claus Busch:
Thank You. FormulaLocal did the trick. I should have thought of that. Jan Regards Claus B. -- Vista Ultimate / Windows7 Office 2007 Ultimate / 2010 Professional |
Runtime error 1004 when trying to insert formula in cells
Hi Claus
You solution of using FormulaLocal Work nicely when I treid to insert this formula in the inputbox =HVIS(LOPSLAG($A31;Opslag!$A:$M;F$1;FALSK)0;LOPSL AG($A31;Opslag!$A:$M;F$1;FALSK);"") but it fails with an "Application defined or objectdefined error" in this line If Not IsEmpty(c) Then c.FormulaLocal = Indhold when I try with the formula below =HVIS(HVIS(ER.FEJL(LOPSLAG($B1147;'JK-prisfil'!$C:$HG;DV$1;FALSK));LOPSLAG($B1147;'2015p riser'!$B:$HG;DV$1;FALSK);LOPSLAG($B1147;'JK-prisfil'!$C:$HG;DV$1;FALSK))=0;AFRUND(LOPSLAG($B11 47;'2015priser'!$B:$HG;DV$2;FALSK);0);AFRUND(HVIS( ER.FEJL(LOPSLAG($B1147;'JK-prisfil'!$C:$HG;DV$1;FALSK));LOPSLAG($B1147;'2015p riser'!$B:$HG;DV$1;FALSK);LOPSLAG($B1147;'JK-prisfil'!$C:$HG;DV$1;FALSK));0)) is there a lenght restriction on FormulaLocal or what elese can be wrong? Jan |
Runtime error 1004 when trying to insert formula in cells
|
Runtime error 1004 when trying to insert formula in cells
Hi,
Am Sun, 26 Oct 2014 12:21:43 +0100 schrieb Claus Busch: can you offer this formula in English? I guess there is a typo anywhere in this formula or the sheet name differs in spelling. Check for trailing or leading spaces in the sheet names Regards Claus B. -- Vista Ultimate / Windows7 Office 2007 Ultimate / 2010 Professional |
Runtime error 1004 when trying to insert formula in cells
Imn English the formula is
=IF(IF(ISERROR(VLOOKUP($B1147,'JK-prisfil'!$C:$HG,DV$1,FALSE)),VLOOKUP($B1147,'2015p riser'!$B:$HG,DV$1,FALSE),VLOOKUP($B1147,'JK-prisfil'!$C:$HG,DV$1,FALSE))=0,ROUND(VLOOKUP($B114 7,'2015priser'!$B:$HG,DV$2,FALSE),0),ROUND(IF(ISER ROR(VLOOKUP($B1147,'JK-prisfil'!$C:$HG,DV$1,FALSE)),VLOOKUP($B1147,'2015p riser'!$B:$HG,DV$1,FALSE),VLOOKUP($B1147,'JK-prisfil'!$C:$HG,DV$1,FALSE)),0)) I have checked for Spaces, but I may have overlooked some. The names are spelled correct. Jan Den søndag den 26. oktober 2014 12.23.05 UTC+1 skrev Claus Busch: Hi, Am Sun, 26 Oct 2014 12:21:43 +0100 schrieb Claus Busch: can you offer this formula in English? I guess there is a typo anywhere in this formula or the sheet name differs in spelling. Check for trailing or leading spaces in the sheet names Regards Claus B. -- Vista Ultimate / Windows7 Office 2007 Ultimate / 2010 Professional |
Runtime error 1004 when trying to insert formula in cells
|
Runtime error 1004 when trying to insert formula in cells
Sorry to have kept you waiting, suddenly had to Work :-(
The formula Works, when I type it in a cell, but wont be inserted via VBA. I have to sheets, with app. 140.000 cells, from A1 to DU1140. Both sheets has Unique numbers in column A and headers in row 1. The first sheet contains actual prizes, for different items. There are only prizes in some cells, and what cells are empty and filled are not patterned in any way, its almost random. The otherf hseet is updated with new prizes, which can be in same or other cells as in sheet 1. Now I want to insert a lookup formula in the cells, and only the cells in sheet 1, that has already numbers in them. This formula should look up prizes in sheet 2, if such exist and return them to sheet 1, if the corresponding cell in sheet one is not empty. If it is, should not be inserted. As I mentioned the formula works if I type it, but I can'øt see why the VBA code suddenly fails, when it works with other, shorter formulas. Jan Den søndag den 26. oktober 2014 13.11.38 UTC+1 skrev Claus Busch: Hi Jan, Am Sun, 26 Oct 2014 04:45:24 -0700 (PDT) schrieb : =IF(IF(ISERROR(VLOOKUP($B1147,'JK-prisfil'!$C:$HG,DV$1,FALSE)),VLOOKUP($B1147,'2015p riser'!$B:$HG,DV$1,FALSE),VLOOKUP($B1147,'JK-prisfil'!$C:$HG,DV$1,FALSE))=0,ROUND(VLOOKUP($B114 7,'2015priser'!$B:$HG,DV$2,FALSE),0),ROUND(IF(ISER ROR(VLOOKUP($B1147,'JK-prisfil'!$C:$HG,DV$1,FALSE)),VLOOKUP($B1147,'2015p riser'!$B:$HG,DV$1,FALSE),VLOOKUP($B1147,'JK-prisfil'!$C:$HG,DV$1,FALSE)),0)) your formula is wrong. Tell us in words what you want to calculate Regards Claus B. -- Vista Ultimate / Windows7 Office 2007 Ultimate / 2010 Professional |
Runtime error 1004 when trying to insert formula in cells
|
| All times are GMT +1. The time now is 04:52 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com