J
jan120253
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
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