Kirk Walker

Remote Desktop: Ctrl + Alt + Delete equivalent

2014-02-04T10:53:00.005-06:00

Ctrl + Alt + End

Adding Months To A Date In Excel

2012-09-14T17:24:00.000-05:00

=IF(DAY(DateReference) > DAY(DATE(YEAR(DateReference),MONTH(DateReference)+MonthsToAdd+1,1)-1),DATE(YEAR(DateReference),MONTH(DateReference)+MonthsToAdd+1,1)-1,DATE(YEAR(DateReference),MONTH(DateReference)+MonthsToAdd,DAY(DateReference)))

2012-04-27T12:05:00.000-05:00

For Visio diagam complaining when trying to edit the text on a shape:
"This UML shape exists on a drawing page which is not part of a UML model diagram. This shape is designed to work in drawings"

I was able to strip out the UML double-click call it didn't like for all the shapes.

Public Sub kirks_fix_for_UML_Shape_error ()

    Dim o As Visio.Shape
    For Each o In Application.ActivePage.Shapes
        Debug.Print o.Name
        If o.CellsSRC(visSectionObject, visRowEvent, visEvtCellDblClick).FormulaU = "RUNADDONWARGS(""UML Background Add-on"",""/CMD=1001"")" Then
            o.CellsSRC(visSectionObject, visRowEvent, visEvtCellDblClick).FormulaU = "=DEFAULTEVENT()"
        End If
    Next o    MsgBox "done"
End Sub