Dim a As Long
a = range("A617:A737").Copy
s = range("A739:A" & EndLine + 2).PasteSpecial

Dim FinalLine As Long
FinalLine = Cells(Rows.Count, "A").End(xlUp).Row
range("B739").AutoFill Destination:=range("B739:B" & FinalLine - 2)

Cells(FinalLine + 10, 2).Formula = "= 5"

Cells("B" & FinalLine + 3).FormulaArray = _
 "= Min(If(B739:B" & FinalLine - 2 = FinalLine + 10 & " , A$739:A$" & EndLine + 2))"

El error es resaltar la coma después del 10.

-2
Daisy 26 ago. 2016 a las 01:55

2 respuestas

La mejor respuesta
Cells(FinalLine + 3, "B").FormulaArray = _
"= MIN(IF(B739:B" & (FinalLine - 2) & "=5 , A$739:A$" & (EndLine + 2) & ", """"))"
1
Tim Williams 25 ago. 2016 a las 23:26

Código corregido ...

 Cells( FinalLine + 3,"B").FormulaArray = "= Min(If(B739:B" & FinalLine - 2 = FinalLine + 10 & " , A$739:A$" & EndLine + 2 & ", """"))"
0
Techie 25 ago. 2016 a las 23:28