Ross Goodman

Author: Ross Goodman

  • Aug(De)Mented Reality 4 – YouTube

  • Outlook Meeting Attendees In The Invite Body

    Personally I do not like the way that Microsoft Outlook prints out meetings especially the fact that attendees are a comma separated list.
    I prefer to see all the attendees as a tabular list – with their acceptance response so that I can tick them off as they join the meeting.

    The following macro will do this for you.
    NOTE 1 : this macro is amending the text of the body of the meeting invite, if you save this and send an update – everyone will see this. I prefer to just run the macro, print the meeting and then close without saving.
    NOTE 2 : this is a one off snapshot of the attendee status, if further responses or updates are received you will have to delete the old text then re-run the macro.

    (more…)

  • Excel – Split one cell to multiple rows

    There are times when you have an excel sheet which has multiple lines of text in a single cell, which has been split using a carriage return. NOTE: I’m not talking about text which has wrapped due to the size or formatting of the cell.

    If you need to separate the contents of this single cell, into one row per line then this is the macro for you. NOTE: This macro will insert rows into your sheet so you may have to “fix” the layout afterwards. Save your sheet before you run this just in case.

    The first function processes the current cell – use this if you only have one cell which you want to split.

    Public Sub SplitCellToRows()
    arrValues = Split(ActiveCell.Value, vbLf)
    For i = UBound(arrValues) To LBound(arrValues) Step -1
        'MsgBox i & " " & arrValues(i)
        If i > 0 Then
            ActiveCell.Offset(1).Resize(1).EntireRow.Insert (1)
        End If
        ActiveCell.Offset(Sgn(i)).Value = arrValues(i)
    Next i
End Sub

    If you have multiple cells which you want to split out then there is a wrapper macro which will call this multiple times.

    Public Sub SplitCellToRows_Multiple()
    For Each cell In ActiveCell.CurrentRegion.Cells
        cell.Select
        SplitCellToRows
    Next cell
End Sub

    To use, simply highlight one or more cells and then run the appropriate macro.

  • Excel – Unfilter all sheets

    There are times when you are using an Excel workbook and you simply want to search for some content but on one of the tables on one of the sheets the table which contains the data has been filtered. You can spend more time looking for and then removing the filter than you do in running the actual search.

    This macro will remove all filters from your current workbook.

    (more…)

  • Automatically file Outlook Sent Items to a folder

    A commenter on one of my other macros requested this functionality.

    Whenever you send an e-mail in Outlook have it prompt you if you want it filed in a folder other than the default Sent Items folder.
    Here it is.

    Two caveats:
    I’m assuming that you are using the default Sent Items folder.
    You will have to edit the code to point it to the folder you wish to use.

    First you have to define the event handler to monitor your sent items folder.

    Private WithEvents SentItems As Outlook.Items

Private Sub Application_Startup()

 Dim NS As Outlook.NameSpace
 Set NS = Application.GetNamespace("MAPI")
 Set SentItems = NS.GetDefaultFolder(olFolderSentMail).Items

End Sub

    Now you have to add a routine to handle it.

    Private Sub SentItems_ItemAdd(ByVal item As Object)
 
 Dim objMailItem As mailItem
 Set objMailItem = item
 Dim arcFolder As Outlook.MAPIFolder
 Set arcFolder = Outlook.Application.Session.Folders.item("Personal Folders (C)").Folders.item("___ToDo")
 If MsgBox("Move To ToDo?", vbYesNo) = vbYes Then
 objMailItem.Move arcFolder
 End If
 
End Sub

    I have a “ToDo” folder in my Personal Folders mailbox (the leading underscores are simply to “help” the sorting in the default view.

    It’s this arcFolder location that you will have to adjust to your own required location.

     

  • Someone Calculated How Much Money We’ve Fictionally Wasted Saving Matt Damon

    I think it’s time to let Matt Damon die, y’all.

    According to Quora user Kynan Eng‘s calculations, if all of Matt Damon’s characters were real, we would have already spent nearly a trillion dollars trying to save him:


    Courage Under Fire (Gulf War 1 helicopter rescue): $300k
    Saving Private Ryan (WW2 Europe search party): $100k
    Titan AE (Earth evacuation spaceship): $200B
    Syriana (Middle East private security return flight): $50k
    Green Zone (US Army transport from Middle East): $50k
    Elysium (Space station security deployment and damages): $100m
    Interstellar (Interstellar spaceship): $500B
    The Martian (Mars mission): $200B
    TOTAL: $900B plus change

    What is it about Matt Damon’s face that makes people want to keep him safe? Apparently his movies have only grossed $2.7B, so he’s not even close to pulling his own fake weight.

    matt damon leave him there

    from FAIL Blog http://ift.tt/NWaN4W
    via IFTTT

  • All I Wanted For Christmas Was The Internet

    That’s seven days now with no internet connection. Phone is working fine but no broadband. 🙁

    I waited in for two days last week for an OpenReach engineer to visit but no one turned up – apparently it was not necessary. Now they tell me it IS necessary but it will be next Wednesday (a full week after their original appointment) before they can come.

    On the plus side – my mobile is also with Talk Talk and I can get the internet on that – but ….. I have just used my monthly allowance in the last seven days. Strangely Talk Talk “are not able to” offer me unlimited data or waive any addition data fees that I incur whilst I have no fixed line connection.

    On the plus side Talk Talk have promised me compensation for every day without service. I’m wondering what price they will put on:

    • My children’s Christmas gifts not working.
    • No music.
    • No films.

    I know that this is very much a first world problem – but you don’t realise how dependant you are on the internet until you don’t have it.

  • Search “Bubble Level” On Google On Your Phone to Get a Working Level

    Search "Bubble Level" On Google On Your Phone to Get a Working Level

    Google has recently added yet another occasionally handy tool to its search box, if you’re searching from a phone. Just type in “bubble level” and you can get a box that uses your phone’s accelerometer to determine if something’s level or not.

    While it’s obviously possible that a digital representation of a bubble level could be incorrectly calibrated and thus slightly off, this tool still does the job in a pinch. In my tests it was accurate to at least within one degree. If you need reliability in your everyday work, you’re probably already carrying a real bubble level with you, but for those one-off times when you can’t find your level, your phone can do in a pinch.

    Reddit via Android Police

    from Lifehacker http://lifehacker.com
    via IFTTT

  • No Internet

    Up to 48 hours before an engineer can visit.
    May have to resort to having a conversation (he posted on the internet) !

  • Daddy longlegs spider nest: man puts hand in hole, grabs a fist full of spiders – YouTube

    https://www.youtube.com/watch?v=ddt6kesD3SU