To enable port 80 on Windows Server 2008 R2:

To enable port 80 on Windows Server 2008 R2:

NOTE: This assumes that IIS is not installed. I added this firewall rule to enable Apache to accept connections on port 80.

  1. Click Start->Control Panel->Windows Firewall
  2. Click “Advanced Settings” in the left panel of Windows Firewall
  3. Click “Inbound rules” in the left panel of Advanced Settings
  4. Click “New Rule…” in right “Actions” panel
  5. Select “Port” and click “Next>”
  6. Select “TCP”, then “Specific local ports:” (should already be selected)
  7. Type 80 in the box (just the number) and click “Next>”
  8. Select “Allow the connection” and click “Next>”
  9. Leave all profiles checked and click “Next>”
  10. Enter a name and click “Finish”.

Your server should now be able to accept connections on port 80.


How to Automatically Update Another Git Repository After Push

Git hooks are basically glorified shell scripts that execute before or after certain Git operations complete, allowing you to customize the behavior of Git.

The post-receive hook executes when a repository receives changes via a git push from another repository. One clever use of this hook is to automatically update another repository when the origin repository receives changes…


Excel – Creating a List of Formulas

Most users have discovered that Excel has an option that lets you display formulas directly in their cells: Choose Tools Options, click the View tab, and select the Formulas checkbox. However, Excel doesn’t provide a way to generate a concise list of all formulas in a worksheet. The VBA macro below inserts a new worksheet, then creates a list of all formulas and their current values.

To use this subroutine:

  1. Copy the code below to a VBA module. You can also store it in your Personal Macro Workbook, or create an add-in.
  2. Activate the worksheet that contains the formulas you want to list.
  3. Execute the ListFormulas subroutine. The subroutine will insert a new worksheet that contains a list of the formulas and their values.

The ListFormulas Subroutine

Sub ListFormulas()
Dim FormulaCells As Range, Cell As Range
Dim FormulaSheet As Worksheet
Dim Row As Integer

' Create a Range object for all formula cells
On Error Resume Next
Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)

' Exit if no formulas are found
If FormulaCells Is Nothing Then
MsgBox "No Formulas."
Exit Sub
End If

' Add a new worksheet
Application.ScreenUpdating = False
Set FormulaSheet = ActiveWorkbook.Worksheets.Add
FormulaSheet.Name = "Formulas in " & FormulaCells.Parent.Name

' Set up the column headings
With FormulaSheet
Range("A1") = "Address"
Range("B1") = "Formula"
Range("C1") = "Value"
Range("A1:C1").Font.Bold = True
End With

' Process each formula
Row = 2
For Each Cell In FormulaCells
Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")
With FormulaSheet
Cells(Row, 1) = Cell.Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
Cells(Row, 2) = " " & Cell.Formula
Cells(Row, 3) = Cell.Value
Row = Row + 1
End With
Next Cell

' Adjust column widths
Application.StatusBar = False
End Sub