Showing posts with label Office. Show all posts
Showing posts with label Office. Show all posts
Presenting Office 365 Planner
So, what is Office 365 Planner?
Announced by Office 365 Team, on September 22, 2015, Office
365 Planner (originally codenamed Highlander) is presented as a tool which:
“offers people a simple and highly visual way to organize teamwork. Planner makes it easy for your team to create new plans, organize and assign tasks, share files (using Office 365 Groups), chat about what you’re working on, and get updates on progress.”
- Office 365 Enterprise E1, E3, E4, E5,
- Office 365 Education E3, E4,
- Office 365 Business Essentials
- Office 365 Business Premium
How to remove (blank) values in an Excel Pivot Table
Creating a Work Breakdown Structure in Microsoft Project 2010 with Visio (WBS Modeler add-in for Visio 2010)
As part of the Initiating phase of a project, a Work Breakdown Structure (WBS) should be delivered. I usually prepare a high level planning using Microsoft Project. It’s not really a WBS, but more a milestone and hammock tasks Gantt chart.
I always wanted to present it as a real WBS diagram but never found a good and simple tool to create it. Here is now the solution; the WBS Modeler add-in for Visio 2010 that allows generating the WBS based on a project plan, or the other way, generates a project plan based on a WBS. This add-in has been released end of 2011 by Microsoft (initially developed by David J Parker, Microsoft MVP for Visio).
First, the system requirements:
Windows XP Service Pack 3 or later with Visio Professional 2010; not that there is also a version for 2007 available), Project 2003 SP 1 or later AND Microsoft .NET Framework 4.0.
You can download the add-in from this page. The installation is very simple; it’s a series of “next” buttons.
How to reduce Excel file size using a Macro
I found this VBA script to reduce Excel file size; in my case it reduces the original Excel file from 59.9 MB to 40 KB… What a shrink J
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim myLastRow As Long
Dim myLastCol As Long
Dim wks As Worksheet
Dim dummyRng As Range
Dim myLastCol As Long
Dim wks As Worksheet
Dim dummyRng As Range
For Each wks In ActiveWorkbook.Worksheets
With wks
myLastRow = 0
myLastCol = 0
Set dummyRng = .UsedRange
On Error Resume Next
myLastRow = _
.Cells.Find("*", after:=.Cells(1), _
LookIn:=xlFormulas, lookat:=xlWhole, _
searchdirection:=xlPrevious, _
searchorder:=xlByRows).Row
myLastCol = _
.Cells.Find("*", after:=.Cells(1), _
LookIn:=xlFormulas, lookat:=xlWhole, _
searchdirection:=xlPrevious, _
searchorder:=xlByColumns).Column
On Error GoTo 0
With wks
myLastRow = 0
myLastCol = 0
Set dummyRng = .UsedRange
On Error Resume Next
myLastRow = _
.Cells.Find("*", after:=.Cells(1), _
LookIn:=xlFormulas, lookat:=xlWhole, _
searchdirection:=xlPrevious, _
searchorder:=xlByRows).Row
myLastCol = _
.Cells.Find("*", after:=.Cells(1), _
LookIn:=xlFormulas, lookat:=xlWhole, _
searchdirection:=xlPrevious, _
searchorder:=xlByColumns).Column
On Error GoTo 0
If myLastRow * myLastCol = 0 Then
.Columns.Delete
Else
.Range(.Cells(myLastRow + 1, 1), _
.Cells(.Rows.Count, 1)).EntireRow.Delete
.Range(.Cells(1, myLastCol + 1), _
.Cells(1, .Columns.Count)).EntireColumn.Delete
End If
End With
Next wks
.Columns.Delete
Else
.Range(.Cells(myLastRow + 1, 1), _
.Cells(.Rows.Count, 1)).EntireRow.Delete
.Range(.Cells(1, myLastCol + 1), _
.Cells(1, .Columns.Count)).EntireColumn.Delete
End If
End With
Next wks
End Sub
Subscribe to:
Posts
(
Atom
)
