CRTL+SHIFT Condrum: How MS dicked power users in Vista/Win7 with Regional/Language settings

After how many months work has finally upgraded my computer from XP to Win7 ('bout fucking time in my opinion, and the upgrade only came after a system crash resulting in loss of data).

Now I have Win7 on my personal computer, but quite frankly I don't use XL on it that much, namely because Dell poorly executed the keyboard layout for their XPS series, but I digress (oh, and fuck you Dell for your shitty keyboard layout.  You have to try to fuck a keyboard up.  Seriously.)

Any who, while trying to unhide columns in a worksheet one day at work I noticed the unhide columns shortcut combo no longer worked (for the novice: CTRL+SHIFT+) )  I assumed either: 1) my keyboard was FUBAR'd, which is entirely possible given how much coffee and other shit I spill on it, or 2) my AutoHotKey scripts were overriding Excel.  Closed AHK, and double checked the keyboard.  Shortcut combo still didn't work.  Fuck.  Time to hit the GOOG.

After a period of searching I stumbled upon this post at SuperUser, which references this MS KB article re the "Input method editor keyboard shortcut (CTRL+SHIFT+0)".  Essentially any program that relies on the CTRL+SHIFT keyboard combo for shortcuts gets fucked, and overridden by MS's default implementation of their shitty language switching feature.  To correct this, and allow you to run shortcut combos as normal across ALL programs (not only MSOffice programs), go through the following steps:

1. Click Start, and then click Control Panel.
2. Double-click Regional and Language Options.
3. Click Keyboards and Languages, and then click Change keyboards.
4. Click Advanced Key Settings, and select Between input languages.
5. Click change Key Sequence.
6. For Switch Keyboard Layout, select Not Assigned.
7. Click OK to close each dialog box.

Now you're back to normal.  Why MS activated this feature by default is beyond me.  Sometimes I wonder if they're all mouth breathers in Redmond.  That is all.

Learn something new everyday - why one blank cell causes a count in pivot tables (Excel)

Picked this up from Pivot Table Data Crunching Microsoft Excel 2010 (pg. 63):

If all cells in a column contain numeric data, Excel chooses to sum.  If just one cells is either blank or contains text, Excel chooses to count.

I have definitely encountered this before when building pivot tables, and just shrugged it off a quirk of Excel.  Interesting! Now I know why Excel Pivot Tables would default to a Count of Values instead of Sum.  Next time I'll ensure my base data doesn't contain any blanks. 

Any other pivot table tips out there waiting to be discovered?

Finding home - Synchronizing all sheets in a workbook [Exel VBA]

I often work in large workbooks of 50+ sheets, and I typically set every worksheet to cell A1 before I distribute the file to other bears.

Problem: Needless to say the last thing I want to do before I close out of my file is to manually sync each and every sheet.

Solution: Macro that goes through every sheet and sets the view to your activeview (e.g. cell L29 is the Top-Left cell visible in your worksheet) and sets the activecell on every worksheet to your current activecell (e.g. cell N51).

I use the ScrollRow and ScrollColumn properties to determine the Top-Left most visible cell, and the Goto method to set the activeview.

To prevent errors if there's a ChartSheet in the workbook, there's a custom function in the code below that traps this condition.

'---------------------------------------------------------------------------------------
' Procedure : Synchronize_Worksheets
' Author    : Business Bear
' Date      : 2/24/2012
' Purpose   : Synchronizes all visible worksheets to selected cell.  Note, does not
'             sync hidden worksheets and chart sheets.  If range of multiple cells is
'             selected at run time, syncs to activecell
'---------------------------------------------------------------------------------------
'
Sub Synchronize_Worksheets()
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim sSetCell As String
    Dim wsStart As Worksheet
    Dim sShtName As String
    Dim sGotoCellAddy As String
    Dim lCounter As Long
    Dim lScrRow As Long
    Dim lScrCol As Long

    Application.ScreenUpdating = False
    
    'Prevent errors if a workbook's not open
    On Error GoTo End_Sub
    Set wb = ActiveWorkbook
    sShtName = ActiveSheet.Name
    On Error GoTo 0
    
    'Use custom function to check if sheet is Chart sheet
    'Prevents the code from adjusting chart sheet / throwing errors
    If IsChartSheet(sShtName) Then
        Exit Sub
    End If
    Set wsStart = wb.ActiveSheet
    
    'Find visible area of activewindow; this will align each worksheet
    lScrRow = ActiveWindow.ScrollRow
    lScrCol = ActiveWindow.ScrollColumn
    'Top-Left most cell in the visible range
    sGotoCellAddy = Cells(lScrRow, lScrCol).Address(False, False, xlA1)
        
    'Activecell from users selection
    sSetCell = ActiveCell.Address(Rowabsolute:=False, Columnabsolute:=False)
    
    lCounter = 0
    'Loop through each worksheet in the active workbook
    For Each ws In wb.Worksheets
        'Check is sheet is visible, if not skip; prevents errors
        If ws.Visible Then
            'Sets the visible range
            Application.Goto Reference:=ws.Range(sGotoCellAddy), Scroll:=True
            'Selects the cell the user wanted to sync
            ws.Range(sSetCell).Select
            'For the dialog box at end of code; counts sheets synced
            lCounter = lCounter + 1
        End If
    Next ws
    wsStart.Select
    'Display dialog box
    MsgBox Prompt:=lCounter & " worksheets syncronized to cell " & sSetCell, _
        Title:="Process Complete"

End_Sub:
    Application.ScreenUpdating = True

End Sub

'---------------------------------------------------------------------------------------
' Procedure : IsChartSheet
' Author    : Business Bear
' Date      : 2/24/2012
' Purpose   : Boolean; Tests if sheet is a chart sheet, returns true if true
'---------------------------------------------------------------------------------------
'
Public Function IsChartSheet(ChtName As String) As Boolean
    Dim chrtTest As Chart

    On Error Resume Next
    Set chrtTest = Charts(ChtName)
    On Error GoTo 0
    IsChartSheet = IIf(Not chrtTest Is Nothing, True, False)
End Function

Fun with Mnemonics...$ is for...

A little birdie told me the following today:

If you have trouble remembering what the $ symbol means in the address bar (e.g. $A$1), just remember that $ is for stay.

That is, the $ symbol indicates an absolute reference and the reference won't move when copied.

Bring 2003 and earlier docs up to the newest format [Excel VBA]

I often work with data exports from Oracle SAP, Business Warehouse, and Discoverer Plus.  The front-ends for each of these save, when selecting the option to export to a spreadsheet, the data to ".xls".

When opening these ".xls" files in Excel 2007 or later, you're still restricted to the row/column limitations of older versions of Excel (read: < 2003) as Excel enables compatibility mode.  Compatibility mode also limits some of the functions available to newer versions of Excel (I often get mad when structured references from tables are not available...grr).  

What did I do to solve this?  Save to a newer Excel format (typically ".xlsx" since no macros were in the original data files), close the file (to exit compatibility mode), delete the old ".xls" file, and finally reopen my new ".xlsx" file.  Get's tedious when you're pulling a metric ton of data daily.

What do I do know?  I use the code below.  It takes your file, saves it with the same file name but with a ".xlsx" extension to the directory the files currently in, closes the old file, deletes the file, and then reopens the new file.  All in a split second.  

It's the little things.

P.S. Make sure you turn on the reference to the "Windows Script Host Object Model"

'---------------------------------------------------------------------------------------
' Procedure : Save_To_XSLX_File
' Author    : Business Bear
' Date      : 1/20/2012
' Purpose   : Saves file to an XLSX file.  Good for updating 2003 files to later formats.
'---------------------------------------------------------------------------------------
'
Sub Save_To_XSLX_File()
Dim sFilename As String
Dim ws As Workbook
Dim Pos As Long
Dim sDir As String
Dim FSO As FileSystemObject
Dim sOldFileName As String

Const ext As String = ".xlsx"

DisplayAlerts = False
EnableEvents = False
Set wb = ActiveWorkbook
'Save directory and file names for future use
sDir = wb.FullName
sFilename = wb.Name
'Trim dir name to remove file name
sDir = Left(sDir, Len(sDir) - Len(sFilename))
sOldFileName = sDir & sFilename
Pos = InStrRev(wb.Name, ".") - 1
'Remove old extension from name
sFilename = Left(sFilename, Pos)
sFilename = sFilename & ext
'Simple solution in case user tries to save over a newer file
'and decides not to complete the process
On Error GoTo Exit_Me
'Save new file
wb.SaveAs Filename:=sDir & sFilename, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'Close old workbook
wb.Close
Set FSO = New FileSystemObject
'Warning - DELETES OLD FILE
FSO.DeleteFile FileSpec:=sOldFileName
'Opens workbook in new format
Workbooks.Open (sDir & sFilename)
Exit_Me:
DisplayAlerts = True
EnableEvents = True
End Sub

Finding the last row/column in a worksheet [Excel VBA]

I often stumble across blog posts where people are trying to discover the last cell in a column or row. Typically the example at hand is filled with non-contiguous data.  Often bloggers/commenters/arctic creatures other than polar bears will present the following solution:

Note: The following examples assumes the data range starts in Cell "A1" or Cell(1,1).

For Rows:

Set MyRng = Range("A1", Range("A65536").End(xlUp))

Or 

Set MyRng = Range(Cells(1,1), Cells(65536,1).End(xlUp))

For Columns:

Set MyRng = Range("A1", Range("IV1").End(xlToLeft))

Or 

Set MyRng = Range(Cells(1,1), Cells(1,256).End(xlToLeft))

I don't know why people hard code the last row/column values; the practice makes for code that can be difficult to edit/troubleshoot later on. Plus, it's not really backwards compatible. Sure the above examples work for Excel 2003 and earlier, but if you're working with Excel 2007 or later you potentially miss capturing a large amount of data.  (1,048,576 Rows and 16,384 Columns are available in Excel 2007 and late).

To avoid hardcoding values, and making the code compatible with Excel 03 and later, I do this:

Dim lMaxRows as Long
Dim lMaxCols as Long

lMaxRows = Rows.Count
lMaxCols = Columns.Count

So defining your range now looks like this:
For Rows:

Set MyRng = Range("A1", Range("A" & lMaxRows).End(xlUp))

Or 

Set MyRng = Range(Cells(1,1), Cells(lMaxRows,1).End(xlUp))

For Columns:

Set MyRng = Range(Cells(1,1), Cells(1,lMaxCols).End(xlToLeft))

Non-sequitur: Some people don't like using the "Cells" property to reference ranges or cells, but I say poo on that (admittedly it does make reading code more difficult). Using the Cells property makes coding loops easier. So there.

Takeaway: Avoid hardcoding - it makes debugging more difficult.

Mitigating % Complete and Duration Headaches (Project VBA)

Most of our projects are setup as Fixed Unit, non-effort driven tasks in MSP (Note: We also setup our schedules with the Updating task status updates resource status, located under the Calculation tab, checked).

When entering status for a task, we update (primarily) two fields: % Complete and/or Duration.  Changing the Duration field will affect the % Complete field in 2 ways:

1. Decreasing the Duration will increase the % Complete field;
2. Increasing the Duration will decrease the % Complete field.

Often we do not want to change % Complete, but adjust the Duration and maintain our current % Complete. We track performance using % Complete (for better or for worse, and yes I'm aware of using % Work Complete to track actual track progress...), so we are extra cautious with any negative changes in % Complete.  Why?  Well, let's just say reporting negative performance to the customer is not a positive experience.

Although we take extra steps to ensure we don't inadvertently decrease performance (though we do make the downward adjustment if appropriate, god forbid), we all have a habit of falling into the debacle that is colloquially known as "month end swirl".  Only the strong survive, and those that do are permanently scarred. 

I wrote the code below to speed up entering status and reduce schedule rework.  I have the macro set to my Ctrl-A shortcut in MSP.  To run the code select your task you want to update, and run the macro.  The code will pop-up an input box asking for the task's new duration.  The code will adjust your the task to your new duration while maintaining the previous % Complete.

Option Explicit
'---------------------------------------------------------------------------------------
' Procedure : NewDuration
' Author    : Business Bear
' Date      : 1/23/2012
' Purpose   : http://www.yunolikeexcel.com
'             This code will adjust your the task to your new duration
'             while maintaining the previous % Complete.
'             Setting the finish date to a date prior to the start date
'             will turn the task into a milestone.
'---------------------------------------------------------------------------------------
'
Sub NewDuration()

    Dim dCurStart As Date
    Dim vFinishDate As Variant
    Dim dNewFinish As Date
    Dim dCurFinish As Date
    Dim pj As Project
    Dim lNewDuration As Long
    Dim ac As Cell
    Dim lPctCompl As Long
    Dim vMsgBoxResp As Variant
   
    'Adjust conlMinutesInDay constant to reflect the number of minutes/day
    'in your schedule.  We use 8hrs/day so 8Hrs*60min = 480min/day
    Const conlMinutesInDay As Long = 480
    Const convMsgBoxButtons As Variant = vbYesNo + vbSystemModal + vbExclamation
    Const consMsgBoxTitle As String = "Warning"
    Const consDateFormat As String = "mm/dd/yyyy"
    Const consInputBxTitle As String = "New Finish Date?"
   
    'prevent code from running if no active project
    On Error GoTo EndMacro
    Set pj = ActiveProject
    On Error GoTo 0
    Set ac = ActiveCell
    Set t = ac.Task

    'prevent code from running if no task selected
    If t Is Nothing Then GoTo EndMacro
    dCurStart = t.Start
    dCurFinish = t.Finish
    lPctCompl = t.PercentComplete

    'loop until user enters a valid date
    'if user enters nothing exit procedure
    Do
        vFinishDate = InputBox(consInputBxTitle)
        If vFinishDate = vbNullString Then
            GoTo EndMacro
            Exit Do
        End If
    Loop Until IsDate(vFinishDate)

    '=== DateDifference returns minutes; divide by 480 for days
    lNewDuration = Application.DateDifference(StartDate:=dCurStart, _
            FinishDate:=vFinishDate) / conlMinutesInDay
    dNewFinish = Application.DateAdd(StartDate:=dCurStart, _
            Duration:=lNewDuration * conlMinutesInDay)
    If Format(dNewFinish, consDateFormat) <> vFinishDate Then
        If dNewFinish < vFinishDate Then
            lNewDuration = lNewDuration + 1
        ElseIf dNewFinish > dCurFinish Then
            lNewDuration = lNewDuration - 1
        End If
    End If

    '=== Set New finish date for testing against old finish date
    dNewFinish = Application.DateAdd(StartDate:=dCurStart, _
            Duration:=lNewDuration * conlMinutesInDay)
    If dCurFinish > dNewFinish Then
        vMsgBoxResp = MsgBox(Prompt:="Old finish date (" & Format(dCurFinish, _
                consDateFormat) & ") is after selected Finish Date (" & Format(dNewFinish, _
                consDateFormat) & ")." & vbCrLf & vbCrLf & "Continue?", _
                Buttons:=convMsgBoxButtons, Title:=consMsgBoxTitle)
        If vMsgBoxResp = vbYes Then
            'User wants to update even though date is in past
            GoTo Continue
        Else
            'User opted to exit
            GoTo EndMacro
        End If
    End If

Continue:
    t.Duration = lNewDuration * conlMinutesInDay
    t.PercentComplete = lPctCompl

EndMacro:
    Set pj = Nothing
    Set vFinishDate = Nothing
End Sub

Tracking/Documenting Defined Names [Excel VBA]

If you've ever developed large models in workbooks, there's a high probability you've ran into a scenario where you're working with a fairly large number of defined names.  Tracking these defined names, where they link to, and what data they represent can be cumbersome at best.  Especially if you're tracking down bugs or errors.  If you're working with hidden defined names the debugging process can become a nightmare.

To document all of the defined names (hidden or visible) in a workbook I use the procedure below.

The code creates a new Worksheet in the Active Workbook labeled "Defined_Names".  Looping through each name in the workbook, the code creates columns for the following information:

1. Name: The name of the defined Range/cell;
2. Visible: Is the name visible to the user through the Name Manager (ALT-I, N, D or Formulas>Name Manager)
3. RefersTo: The address of the linked range or cell.  Sometimes this can also be a value that's been set to a defined name.
4. Value: The value of the range the defined name references.

Option Explicit
'Code created by Business Bear for yunolikeexcel.com
Sub ListNames()
    Dim x As Long
    Dim i As Long
    Dim wb As Workbook
    Dim Name As Name
    Const WSName = "Defined_Names"

    'Turn off alerts; prevents user from having to select yes if sheet
    'to delete exists
    Application.DisplayAlerts = False
    Set wb = ActiveWorkbook
    'Dirty way to check and delete if sheet exists
    On Error Resume Next
    wb.Worksheets(WSName).Delete
    On Error GoTo 0
    wb.Worksheets.Add
    ActiveSheet.Name = WSName

    'Set columns to read as text only; 
    'prevents links to ranges and arrays displaying an error
    Range(Columns(1), Columns(4)).EntireColumn.NumberFormat = "@"
    Cells(1, 1) = "Name"
    Cells(1, 2) = "Visible"
    Cells(1, 3) = "RefersTo"
    Cells(1, 4) = "Value"

    i = 0
    'Loop through each name in workbook
    For Each Name In wb.Names
        i = i + 1
        Cells(i + 1, 1) = Names(i).NameLocal
        Cells(i + 1, 2) = Names(i).Visible
        Cells(i + 1, 3) = Names(i).RefersTo
        'Prevents error if name references value only
        On Error Resume Next
        Cells(i + 1, 4) = Names(i).RefersToRange.Value
        On Error GoTo 0
    Next Name
    Cells(1, 1).CurrentRegion.EntireColumn.AutoFit
    'Turn on alerts again for user
    Application.DisplayAlerts = True
End Sub

15 Spreadsheet Formatting Tips

Over on PowerPivotPro, Dan lists 15 great formatting tips for spreadsheet design. 
What does design boil down too? Less is more; no 3d charts; color sparingly; and don't user Column or Row 1.

Using "Center Across" was another one listed. I guess not too many people know about this text formatting option?

Guest Post: 15 Spreadsheet Formatting Tips [via Excel Blog]

Two of My Favorite Development Tools [VBA]

Tedious Coding Tasks Be Gone

Looking to save time coding and designing all while improving the quality of your code?  Let me introduce my two favorite VBA development add-ons (each work in both Excel and Project VBA editor):

• Smart Indenter [v3.5 Mirror]
• MZTools

Note: Both tools are freeware.

What They Do

Smart Indenter: Rebuilds (or builds) indentation for procedure, modules, or an entire project.  The utility allows you to set your own indentation preferences in a dialog box, and allows you to view the sample output before applying the formatting to your project.  

If you hate formatting code (like I do) this is your solution.  Also, your co-workers will love you: indenting your code in a consistent manner helps improve readability.

MZTools: If you want to: 

• Find code faster
• Code faster
• Design faster
• Generate documentation for your projects
• Ensure the quality of your work
• Enhance your VB / VBA experience

Then this tool is for you.  Some of my favorite features include:

• Code Templates - Save procedures you use frequently and access them on the fly.
• Add Procedure/Module Headers: Insert procedure/module headers based on your preferences.  Options to include variables exist as well (e.g. inserts date procedure created, procedure author, etc. in header)
• Line Numbering - Inserts line numbers along the gutter of your code.  Great for integrating with error handling.
• Error Handler -  Add an error handler to a procedure with a customizable template. If the procedure body is not empty the tool merges the error handler with the procedure code.
• Select Case/Msgbox Assistant - 2 great features that let you quickly build Message Boxes and Case statements.

Enable Developer Tab and Create Personal Workbook (Excel)

To enable the Developer tab in Excel:

To create your personal workbook (if you have a fresh copy of Excel):

Generating a list of shortcuts unique to your version of MS Project [VBA]

I often get tired of searching Google for obscure shortcuts in Project (or Excel for that matter).  Solution?  VBA to the rescue.

Drop the code below in a module and setup a command to the macro List_Shortcut_Keys.

The code is 2 procedures:

1. List_Shortcut_Keys: Opens a new Excel workbook, then initializes the actual meat of the code.
2. ListCtrls: This is a recursive procedure that lists all the shortcuts from Project's Command Bar.  The code scans each toolbar in the commandbar and produces a list of shortcuts specific to the version of MSP you're running.   

If you have version/country specific shortcuts this will generate a list of shortcuts that will work for you.

I originally found the code at Chip Pearson's site and modified it for use in MS Project.  Given how MSP is comparatively undocumented the world of VBA, I figured this would help others who struggle finding resources for Project.

UPDATE: The code works with MSP 2003, 2007, and 2010.  Before running make sure you've selected Excel from the References dialog box.

Option Explicit
'Code modified by yunolikeexcel.com, Business Bear
'Original code found at http://www.cpearson.com/excel/ShortCuts.aspx

Sub List_Shortcut_Keys()
    Dim r As Range
    Dim xlApp As Excel.Application
    Dim wb As Workbook
    Dim ws As Worksheet

    Set xlApp = CreateObject("Excel.Application")
    Set wb = xlApp.Workbooks.Add
    Set ws = wb.ActiveSheet
    Set r = ws.Range("A3")
    ListCtrls Application.CommandBars.ActiveMenuBar, r, wb

    MsgBox "Process Complete.", vbSystemModal + vbOKOnly
    xlApp.WindowState = xlMaximized
    wb.Activate
    xlApp.Visible = True
    
    Set ws = Nothing
    Set wb = Nothing
    Set r = Nothing
    Set xlApp = Nothing

End Sub

Private Sub ListCtrls(ByRef Ctrl As Object, ByRef Rng As Range, ByRef wb As Workbook)

    Dim c As Office.CommandBarControl
    Static S As String
    Dim Pos As Integer

    If TypeOf Ctrl Is CommandBar Then
        S = "ALT"
    End If

    If Not TypeOf Ctrl Is Office.CommandBarButton Then
        For Each c In Ctrl.Controls
            Rng.Value = c.Caption
            Pos = InStr(1, c.Caption, "&")
            If Pos Then
                S = S & " " & Mid(c.Caption, Pos   1, 1)
                Rng.EntireRow.Cells(1, "H").Value = UCase(S)
            End If
            Set Rng = Rng(2, 2)
            ListCtrls c, Rng, wb
            Set Rng = Rng(1, 0)
            If Len(S) > 3 Then
                S = Left(S, Len(S) - 2)
            End If
        Next c
    End If

End Sub

Bears get angry when other analysts don't use Excel Tables

For those who don't want to read:

Use Tables in Excel.  

They will make your life easier and save you time.

Is there a large contingency of  daily, heavy-use Excel jockeys that do not know about - or purposefully do not use (even worse!) - Excel Tables (aka Excel Lists for those still running 2003) when creating datasets in Excel workbooks?

If you don't know what a Table is in Excel let me help you:

1. Open a workbook with a data table in it, preferably with the data organized in columns.
2. Select the data including the header.
3. Hit Ctrl-N, T (alternatively Insert>Table).  Make sure the "My table has headers" checkbox is checked.
4. Hit OK
5. Congrats, you just created an Excel table.

Excel Tables make life as an analyst a breeze.  Want to add data to the table?  No sweat just start typing in the row or column next to the table.  Excel will auto-expand the table dimensions to incorporate the new data.    

If you have a Pivot Table linked to a data table, just hit refresh and your PivotTable will capture new data.  No need to manually update the data range that links to the pivot table.

Pretty table

Excel tables make lookup formulas a breeze as well.  The structured references may be intimidating at first, but take the plunge - you'll enjoy it!  No longer will you have to adjust ranges in formulas after additional rows/columns have been added to the set - the Table will auto-update for you!  Boom, time Saver! 

Another added perk of tables is the auto fill down feature.  When you create a formula in the first row of the data table (that is, the first row below the header), the table will auto-fill down the formula for the entire column in the range.  

E.g. Let's say you create a formula in Cell B2, which pulls the first 2 letters of the Cell in A2.  You've already created a table from your data set called, "Table.Data", with the first column labeled, "FirstCol" (original, I know).

To create your formula you would write it as you normally would:

=Left(A1,2)

Now Excel, depending on how your options are set, should create a formula like so (for Excel 2010):

=LEFT([@FirstCol],2)

The "@" tells the formula to find the data in This Row (this row being row 2), and FirstCol tells the formula to find the data in the "FirstCol" column of the data set.

Now depending on the number of rows you have in your Table "Table.Data", the formula you just created will auto fill down.  Pretty slick.

There's also a laundry list of formatting options available as well, plus the ability to create your formatting templates for future use.

I could go on and on, but I gotta go eat a seal or 3.  Here's the file used in the above example.

Export Hanging Dependencies in MS Project [Project - VBA]

Working with Microsoft Project and looking for ways to discover poor network logic?  Below is a little procedure I wrote that scans the relationships in your project schedule in search of tasks with only Start-To-Start (SS) successors.

If the procedure finds any tasks that meet this criteria it exports information about the task to an Excel workbook for further analysis.

Why are SS-only successors bad?  They create poor network logic: Without at least one FS successor the Task will not accurately push schedule milestones and tasks further down the path.

What's an easy way to fix SS-only successor relationships?  Link the offending task to a milestone (or another task) further down the path with a Finish-To-Start (FS) relationship.

Quick notes:

1. You'll want to change the Constant consMinInDay depending on how many hours you have scheduled in your workday (in the example code consMinInDay is set to 480 minutes.  I have 8hr days X 60min = 480min/d).  
2. Despite how you may view the data in the Project, the application stores the data (or at least VBA exports the data) in minutes.
3. If your Project file is not already referenced to Excel, you'll need to set this reference in the VBA editor.  
1. To set the Excel reference: Open up the VBA Editor, Alt-F11>Tools>References>Check Microsoft Excel X.0.  The "X" will be the version number of Excel installed on your computer.  E.g. Excel 2007 = 12.0; Excel 2010 = 14.0.
4. I haven't tested the procedure in Project 2010, but running it in MSP2003 and MSP2007 should work without a problem.

Sub Hanging_Deps()
    Dim TaskDep As TaskDependency
    Dim ts As Tasks
    Dim t As Task
    Dim y As Long
    Dim xlApp As Excel.Application
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim bTaskDepSucc As Boolean

    Const consMinInDay As Long = 480
    
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Workbooks.Add
    Set wb = xlApp.ActiveWorkbook
    Set ws = wb.ActiveSheet
    xlApp.Visible = True
    ws.Cells(1, 1) = "Task UID"
    ws.Cells(1, 2) = "Task ID"
    ws.Cells(1, 3) = "Task Name"
    ws.Cells(1, 4) = "Task Pct Complete"
    ws.Cells(1, 5) = "Task Succs"
    ws.Cells(1, 6) = "Task Finish"
    ws.Cells(1, 7) = "Succ UID"
    ws.Cells(1, 8) = "Succ ID"
    ws.Cells(1, 9) = "Succ Name"
    ws.Cells(1, 10) = "Succ Type"
    ws.Cells(1, 11) = "Succ Lag"
    ws.Cells(1, 12) = "Succ Pct Complete"
    ws.Cells(1, 13) = "Succ Start"
    y = 2
    
    WindowActivate TopPane:=True
    FilterApply Name:="All tasks"
    GroupApply Name:="No Group"
    SelectSheet
    Set ts = ActiveSelection.Tasks
    For Each t In ts
        If (Not t Is Nothing) And (Not t.ExternalTask) And (Not t.Summary) _
                And t.ActualFinish = "NA" And InStr(1, t.UniqueIDSuccessors, "SS") > 0 Then
            bTaskDepSucc = False
            For Each TaskDep In t.TaskDependencies
                If t.UniqueID = TaskDep.From Then
                    If TaskDep.Type = 3 Then
                        bTaskDepSucc = True
                    Else
                        bTaskDepSucc = False
                        Exit For
                    End If
                End If
            Next TaskDep
            If bTaskDepSucc Then
                For Each TaskDep In t.TaskDependencies
                    If t.UniqueID = TaskDep.From Then
                        ws.Cells(y, 1) = t.UniqueID
                        ws.Cells(y, 2) = t.id
                        ws.Cells(y, 3) = t.Name
                        ws.Cells(y, 4) = t.PercentComplete
                        ws.Cells(y, 5).NumberFormat = "@"
                        ws.Cells(y, 5) = t.UniqueIDSuccessors
                        ws.Cells(y, 6) = Format(t.Finish, "mm/dd/yyyy")
                        ws.Cells(y, 7) = TaskDep.To.UniqueID
                        ws.Cells(y, 8) = TaskDep.To.id
                        ws.Cells(y, 9) = TaskDep.To.Name
                        Select Case TaskDep.Type
                            Case 0
                                ws.Cells(y, 10) = "FF"
                            Case 1
                                ws.Cells(y, 10) = "FS"
                            Case 2
                                ws.Cells(y, 10) = "SF"
                            Case 3
                                ws.Cells(y, 10) = "SS"
                        End Select
                        ws.Cells(y, 11) = TaskDep.lag / consMinInDay
                        ws.Cells(y, 12) = TaskDep.To.PercentComplete
                        ws.Cells(y, 13) = Format(TaskDep.To.Start, "mm/dd/yyyy")
                        y = y   1
                    End If
                Next TaskDep
            End If
        End If
    Next t
End Sub

Bear out.

My Thoughts on Meetings

I Hate Page Break Previews (Part Deux)

Following through on last night's post, below is the VBA code I mentioned.  I'll assume you already know how to create procedures in your personal Excel workbook (maybe a future post will detail setting up Excel for development/advanced use...), and you know how/where to insert the code below.


Toggle Page Breaks On/Off:
Toggles page breaks on or off for the active sheet (currently selected sheet).

Sub PageBreaksOnOff()
    ActiveSheet.DisplayPageBreaks = Not ActiveSheet.DisplayPageBreaks
End Sub

Remove Page Breaks:
Removes page breaks for the active sheet (currently selected sheet).

Sub PageBreaksOff()
    ActiveSheet.DisplayPageBreaks = False
End Sub

Toggle Page Breaks On/Off for All worksheets in workbook:
Toggles page breaks on or off for ALL worksheets in active workbook.

Sub AllPageBreaksOnOff()
    Dim ws as Worksheet
    Dim wb as Workbook

    Set wb = ActiveWorkbook
    For each ws in wb.Worksheets
        ws.DisplayPageBreaks = Not ws.DisplayPageBreaks
    Next ws
    Set wb = Nothing
End Sub

Remove Page Breaks on All worksheets in workbook
Removes page breaks for ALL worksheets in active workbook.

Sub AllPageBreaksOff()
    Dim ws as Worksheet
    Dim wb as Workbook

    Set wb = ActiveWorkbook
    For each ws in wb.Worksheets
        ws.DisplayPageBreaks = False
    Next ws
    Set wb = Nothing
End Sub

Stay polar my furry friends.

I Hate Page Break Previews (Part 1)

No, seriously.  I really, really hate page break previews in Excel.

You know what page breaks are - those damn dotted lines that appear in a worksheet after you print.  Or sometimes page breaks appear randomly, at the whim of some preternatural Excel superbeing.  Call it an irrational hatred (at least that's what I chalk it up to).

Example of  a page break in Excel

To turn off page breaks In Excel 2010 is 4 to 5 clicks.  Seriously, 4 to 5 clicks to turn off these damn lines.  Microsoft, GTFO.

First up, you need to click 3 times (File>Options>Advanced), then scroll 75% of the way  down the Advanced Options dialog to Display Options for this worksheet.  Make sure you select the worksheet you want to turn off page breaks for from the dropdown box.  Finally deselect Show Page Breaks. God help you if you have a large workbook with 100+ sheets.

Moar seals, less page breaks!

VBA solution to follow in a future post...
UPDATE: VBA solutions here

Don't forget to include Finance...

I'll kick off this blog with a bit of humor.

If Scott Adams had the panel space to include a few more support functions, this strip would be spot on.

Original strip found here: Dilbert, January 18, 2010.