Code to insert functions not working anymore
 

Oh Wise Ones,
I added some new code to my workbook last week, that
before I left was working fine. Today its returning an error. No one else
in my group messes with the code, just me. A routine inserts a row(at row 4)
and populates various columns. I added some code in additional columns
(semi-hidden with white font) to
filter by last 2 weeks, year to date, and total. Debug is now popping up on
my first line of new code. Not sure what to do since it did work last week.
Any thoughts?
My new code is from to

Mike

snippet from botton of routine:
RedDate = InputBox(Message, Title, Default)
Message = "Enter the pallet ID number"
Title = "Inventory Number"
Default = "NOI"
InvNum = InputBox(Message, Title, Default)
Worksheets("Red Tag").Range("H19,H45") = InvNum
Worksheets("Open Red Tags").Range("K4") = InvNum
Worksheets("Red Tag").Range("H40,H14") = Squares
Worksheets("Open Red Tags").Range("H4") = Squares
Worksheets("Red Tag").Range("H8,H34") = RedDate
Worksheets("Open Red Tags").Range("B4") = RedDate
Worksheets("Red Tag").Range("H20,H46") = Date
Worksheets("Open Red Tags").Range("J4") = Date
Worksheets("Open Red Tags").Range("N4").Formula = "=IF(J4(TODAY()-
14),H4,"")"
Worksheets("Open Red Tags").Range("N4").Font.ColorIndex = 2
Worksheets("Open Red Tags").Range("O4").Formula = "=IF(J4$O$2,H4,"")"
Worksheets("Open Red Tags").Range("O4").Font.ColorIndex = 2
Worksheets("Open Red Tags").Range("P4").Formula = "=IF(J4$I$1,J4,"")"
Worksheets("Open Red Tags").Range("P4").Font.ColorIndex = 2
TagNumber = Worksheets("Data").Range("G2")
TagNumber = TagNumber + 1
Worksheets("Data").Range("G2") = TagNumber
Worksheets("Red Tag").Range("H18,H44") =
Worksheets("Data").Range("G2")
Worksheets("Open Red Tags").Range("A4") =
Worksheets("Data").Range("G2")
Hide
UserForm2.Show

Code to insert functions not working anymore
 

You must double the double-quotes within a string literal:
Worksheets("Open Red Tags").Range("N4").Formula =
"=IF(J4(TODAY()-14),H4,"""")"

HTH
--
AP

"Mike K" a écrit dans le message de news:
...
Oh Wise Ones,
I added some new code to my workbook last week, that
before I left was working fine. Today its returning an error. No one
else
in my group messes with the code, just me. A routine inserts a row(at row
4)
and populates various columns. I added some code in additional columns
(semi-hidden with white font) to
filter by last 2 weeks, year to date, and total. Debug is now popping up
on
my first line of new code. Not sure what to do since it did work last
week.
Any thoughts?
My new code is from to

Mike

snippet from botton of routine:
RedDate = InputBox(Message, Title, Default)
Message = "Enter the pallet ID number"
Title = "Inventory Number"
Default = "NOI"
InvNum = InputBox(Message, Title, Default)
Worksheets("Red Tag").Range("H19,H45") = InvNum
Worksheets("Open Red Tags").Range("K4") = InvNum
Worksheets("Red Tag").Range("H40,H14") = Squares
Worksheets("Open Red Tags").Range("H4") = Squares
Worksheets("Red Tag").Range("H8,H34") = RedDate
Worksheets("Open Red Tags").Range("B4") = RedDate
Worksheets("Red Tag").Range("H20,H46") = Date
Worksheets("Open Red Tags").Range("J4") = Date
Worksheets("Open Red Tags").Range("N4").Formula = "=IF(J4(TODAY()-
14),H4,"")"
Worksheets("Open Red Tags").Range("N4").Font.ColorIndex = 2
Worksheets("Open Red Tags").Range("O4").Formula =
"=IF(J4$O$2,H4,"")"
Worksheets("Open Red Tags").Range("O4").Font.ColorIndex = 2
Worksheets("Open Red Tags").Range("P4").Formula =
"=IF(J4$I$1,J4,"")"
Worksheets("Open Red Tags").Range("P4").Font.ColorIndex = 2
TagNumber = Worksheets("Data").Range("G2")
TagNumber = TagNumber + 1
Worksheets("Data").Range("G2") = TagNumber
Worksheets("Red Tag").Range("H18,H44") =
Worksheets("Data").Range("G2")
Worksheets("Open Red Tags").Range("A4") =
Worksheets("Data").Range("G2")
Hide
UserForm2.Show

Code to insert functions not working anymore
 

Huh...Works perfectly. Thanks a bunch. Not sure why it worked that way last
week, but hey I'll take it. I love this group, I learn so much by working
with real problems.

Thanks again,
Mike

"Ardus Petus" wrote:

You must double the double-quotes within a string literal:
Worksheets("Open Red Tags").Range("N4").Formula =
"=IF(J4(TODAY()-14),H4,"""")"

HTH
--
AP

"Mike K" a écrit dans le message de news:
...
Oh Wise Ones,
I added some new code to my workbook last week, that
before I left was working fine. Today its returning an error. No one
else
in my group messes with the code, just me. A routine inserts a row(at row
4)
and populates various columns. I added some code in additional columns
(semi-hidden with white font) to
filter by last 2 weeks, year to date, and total. Debug is now popping up
on
my first line of new code. Not sure what to do since it did work last
week.
Any thoughts?
My new code is from to

Mike

snippet from botton of routine:
RedDate = InputBox(Message, Title, Default)
Message = "Enter the pallet ID number"
Title = "Inventory Number"
Default = "NOI"
InvNum = InputBox(Message, Title, Default)
Worksheets("Red Tag").Range("H19,H45") = InvNum
Worksheets("Open Red Tags").Range("K4") = InvNum
Worksheets("Red Tag").Range("H40,H14") = Squares
Worksheets("Open Red Tags").Range("H4") = Squares
Worksheets("Red Tag").Range("H8,H34") = RedDate
Worksheets("Open Red Tags").Range("B4") = RedDate
Worksheets("Red Tag").Range("H20,H46") = Date
Worksheets("Open Red Tags").Range("J4") = Date
Worksheets("Open Red Tags").Range("N4").Formula = "=IF(J4(TODAY()-
14),H4,"")"
Worksheets("Open Red Tags").Range("N4").Font.ColorIndex = 2
Worksheets("Open Red Tags").Range("O4").Formula =
"=IF(J4$O$2,H4,"")"
Worksheets("Open Red Tags").Range("O4").Font.ColorIndex = 2
Worksheets("Open Red Tags").Range("P4").Formula =
"=IF(J4$I$1,J4,"")"
Worksheets("Open Red Tags").Range("P4").Font.ColorIndex = 2
TagNumber = Worksheets("Data").Range("G2")
TagNumber = TagNumber + 1
Worksheets("Data").Range("G2") = TagNumber
Worksheets("Red Tag").Range("H18,H44") =
Worksheets("Data").Range("G2")
Worksheets("Open Red Tags").Range("A4") =
Worksheets("Data").Range("G2")
Hide
UserForm2.Show