Expected: end of statement error in EXCEL MACRO

Like (0) Share

Report

Posted on 6 Mar 2022 10:42:49 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

All responses (5)

Answers (1)

Verified answer

VJR 7,635 on 07 Mar 2022 at 06:19:00

Like (0)

Report

Re: Expected: end of statement error in EXCEL MACRO

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
VJR 7,635 on 07 Mar 2022 at 03:15:44

Like (0)

Report

Re: Expected: end of statement error in EXCEL MACRO

Working when you change the macro line to

ActiveCell.Formula2R1C1 = "=SEQUENCE(7,1," & """" & from & """" & ")"
VJR 7,635 on 07 Mar 2022 at 02:51:49

Like (0)

Report

Re: Expected: end of statement error in EXCEL MACRO

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.
Rampage 45 on 06 Mar 2022 at 11:02:37

Like (0)

Report

Re: Expected: end of statement error in EXCEL MACRO

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

not getting expected output
VJR 7,635 on 06 Mar 2022 at 10:58:07

Like (1)

Report

Re: Expected: end of statement error in EXCEL MACRO

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