Need help at VB Code To enter variables

[vineelag (vineetha)]

Hi All,

Sub DynamicRangeMacro(startRow As Integer, endRow As Integer)

  Sheets("AL Details (for Retail and V&M)").Range("A" & startRow & ":J" & startRow).AutoFill Destination:=Sheets("AL Details (for Retail and V&M)").Range("A" & startRow & ":J" & endRow), Type:=xlFillDefault

End Sub

Where i am passing variables as

But Getting This Error

Invoke VBA: Parameter not optional. (Exception from HRESULT: 0x8002000F (DISP_E_PARAMNOTOPTIONAL))

Suggest Me!!!

Thank You!!!

[Parvathy (PS Parvathy)]

Hi @vineelag

Try this code:

Sub DynamicRangeMacro(startRow As Integer, endRow As Integer)
    Sheets("AL Details (for Retail and V&M)").Range("A" & startRow & ":J" & startRow).AutoFill Destination:=Sheets("AL Details (for Retail and V&M)").Range("A" & startRow & ":J" & endRow), Type:=xlFillDefault
End Sub

Hope it helps!!

[Yoichi]

Hi,

Did you set EntryMethodParameter property of InvokeVBA activity?
If not, please set as the following, for example.

new object(){1,10}

Regards,

[vineelag (vineetha)]

@Parvathy

Still Getting the same issue

[Parvathy (PS Parvathy)]

@vineelag

Try setting this property in EntryMethodParameters od Invoke VBA activity

new object(){25,45}

Hope it helps!!

[vineelag (vineetha)]

Hi @Yoichi

By using this code i am not getting as excepted

i want to drag drop the row from 25 to 45 row but its drag and drop the rows from 1 to 10

can you suggest me on this please.

Thank You!!!

[Yoichi]

Hi,

Sorry 1,10 is just sample.

Can you try as the following?

New Object() {25,45}

Or.

New Object() {startRow, endRow}

Regards,

[vineelag (vineetha)]

Thank You @Yoichi
Your the Best !!!