Merge functions and application

[Hernan_g_f]

Hello all,

I'm writing a macro but I have a trouble

The macro is:

Sub a()

Dim Fecha As Variant
Dim Rango As Variant
Set Rango = Sheets("1").Range("E16:DC1400")


lastrow = Sheets("1").Range("E" & Rows.Count).End(xlUp).Row


For cont = 17 To lastrow

Fecha = Sheets("1").Cells(cont, 114)

O = Application.VLookup(Fecha, Rango, 3, False)


If IsError(O) Then
O = 0
End If

Sheets("1").Cells(cont, 115) = O
Next cont


I need to add a product function, to the "O" equation with a constant

O = ¿? product(consant, application.Vlookup(Fecha, Rango, 3, False)

How can I write it?

Thank you very much for your help!

 

[Joe4]

Welcome to the Board!

Are you just trying to multiply by a single value?
If so, then you do not need the "Product" function.
Just use something like:

Sheets("1").Cells(cont, 115) = O * constant

(Note: That I applied to the place where you are placing the value back on the sheet, as you do not want to try to multiply your errored value by a constant).