Posts

Showing posts from September, 2017

Excel keynoting editor:

This is a super basic keynote editor in Excel. https://drive.google.com/file/d/0B3kxZYz7z9XSNWVnVDQ1S0FZSUk/view?usp=sharing Unlimited Open license provided with no guarantees made, use at your own risk and provided: Post back suggestions, adaptations, comments and changes here with attributions to Ron.Allen Apsis0215 at gmail dot com so we can learn together and make it better! The macros are exposed : ) and it is the base revit keynotes file with headers for a lot of disciplines user notes. The column on the right must be a value from a column on the left for nesting. Insert or delete entire rows at will. The button generates 3 files in the same folder. Watch for prompts to overwrite and resave. The Text file which Revit uses. An XLS file (Without MAcros) for end users to copy locally to assist in looking up and filtering results in Revit And finally it Saves itself  back to the XLSM file you are editing- overwriting the file.

Outlook VBA add reminder to message code

Attribute VB_Name = "Reminders" Option Explicit Const olTaskDateNone = "4501-01-01" Public Sub AddReminder ( objMsg As Object , Optional dateTime As Date , Optional TaskDueInDays As Double ) ' Dim objMsg As Object ' GetCurrent Item function is athttp://slipstick.me/e8mio 'Set objMsg = GetCurrentItem() If IsMissing ( dateTime ) Then dateTime = Int ( Now ) + 16 / 24 With objMsg ' due this week flag . MarkAsTask olMarkThisWeek ''.TaskStartDate = olTaskDateNone . TaskDueDate = olTaskDateNone ' sets a specific due date If TaskDueInDays > 0 Then . TaskDueInDays = Now + TaskDueInDays . TaskDueDate = TaskDueInDays + Int ( Now ) . FlagRequest = "REMINDER FOR: " & objMsg.SenderName End If . ReminderSet = True . ReminderTime = dateTime