Answered

Expected: end of statement error in EXCEL MACRO

(0) Share

Report

Posted on by Rampage

this is my MACRO CODE

Sub PrintDate(from As String)
 Sheets("Date").Select
 Range("A1").Select
 ActiveCell.Formula2R1C1 = "=SEQUENCE(7,1,"from")"
End Sub

I am trying to passing this date into this code but its not working properly

Categories:

Power Automate Desktop

I have the same question (0)

All responses (5)

Answers (1)

VJR 7,635 on at

Like (1)

Report

Clearly the string parameter is showing up the error in the macro

Change the line as below after removing the quotes-

ActiveCell.Formula2R1C1 = "=SEQUENCE(7,1,from)"

After doing this, fix the macro first in the Excel and only then call from PAD.

See how the Sequence formula function is used

How to use the Excel SEQUENCE function | Exceljet

Was this reply helpful? Yes No
Rampage 45 on at

Like (0)

Report

Yeah i try with this.....
giving input like this,

not getting expected output

Was this reply helpful? Yes No
VJR 7,635 on at

Like (0)

Report

Hi @Rampage

That means the formula is incorrect.

So, at first correct the formula in Excel and only then call it from PAD in order for it to work.

What are you trying to achieve with the formula?

Please provide as much details as possible.

Was this reply helpful? Yes No
VJR 7,635 on at

Like (0)

Report

Working when you change the macro line to

ActiveCell.Formula2R1C1 = "=SEQUENCE(7,1," & """" & from & """" & ")"

Was this reply helpful? Yes No
Verified answer

VJR 7,635 on at

Like (0)

Report

You can add below if you would like to format the date column:

Sub PrintDate(from As String)
Dim lastrow As Integer

Sheets("Date").Select
Range("A1").Select
ActiveCell.Formula2R1C1 = "=SEQUENCE(7,1," & """" & from & """" & ")"

lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & lastrow).NumberFormat = "m/d/yyyy"
Range("A1").Select

End Sub

Was this reply helpful? Yes No