Error code : Application-defined or object-defined error ?

[adamasmay]

Now I have macro as below.

Please Login or Register  to view this content.

But after run , it show error Application-defined or object-defined error in line Cells(2, 6).Resize(UBound(a)) = a


Please guide me about it.

[chocolate_kitten]

Not sure what you want to do, but the error is because you assign Cells(2,6).Resize(Ubound(a)) to a.
If you change that line to a = Cells(2,6).Resize(Ubound(a)), the error will disappear, but not sure that the code will work as what you want or not.

[adamasmay]

I want to calculate value by column FPP divide value column Case.

[chocolate_kitten]

I've revised your code as below:

Please Login or Register  to view this content.

[adamasmay]

I want output show number after cal only.
Now Show formula in tab function.

Please guide me more about it.

[chocolate_kitten]

You can change a.Cells(i, 6).FormulaR1C1 = "=RC[-1]/RC[-2]" to a.Cells(i, 6) = a.Cells(i, 5) / a.Cells(i, 4) in order to get a static value.
This code may cause slowness on large data (50k rows+) due to the loop that inputs a value directly on each cell.

Please Login or Register  to view this content.

[chocolate_kitten]

This one is the faster version if your data size is large:

Please Login or Register  to view this content.

[AB33]

Why do you need a code for this simple task which could be done by a formula?

Please Login or Register  to view this content.

[adamasmay]

After run your code , I found error overflow in line vFYP(i, 1) = vFPP(i, 1) / vCase(i, 1)

Please Login or Register  to view this content.

I think some value in vFPP and vCase = o

How to solve it?

[AB33]

It is due to bottom has zero or error value. Have you tried my code?

[adamasmay]

It is due to bottom has zero or error value. Have you tried my code?

If​ I​ want​ edit​ your​ code​ from​ =IF(RC[-2]=0,0,RC[-1]/RC[-2]) to​ use​ index​ column​ (column​ a=1,column​ c=3)

How​ to​ edit​ it

[AB33]

Please Login or Register  to view this content.

OR your code

Please Login or Register  to view this content.

[chocolate_kitten]

Hi adamasmay,

It is dividing by zero error, please amend as below

Please Login or Register  to view this content.

[jindon]

Please Login or Register  to view this content.

Please Login or Register  to view this content.