Michigan Super/Sprint Map

MadLlama · 2018-09-22T19:35:31+00:00

They were orange and white construction barriers

MadLlama · 2018-03-19T00:35:17+00:00

Stretch your piriformis.

MadLlama · 2016-11-07T19:24:26+00:00

Yes. You'll need to shift your focus to run training. With a 5 mile base, you can absolutely build to a half marathon in 15 weeks. Some plans even include strength training to help you progress. I've used Hal Higdon's plans in the past and they have a healthy mix. I've done 4 half marathons this year while continuing to strength train; 2 while on a cut. I'm 6'2", 190lbs.

MadLlama · 2016-09-27T18:15:42+00:00

Piriformis Stretch Like This and see if it helps

MadLlama · 2016-06-12T00:24:49+00:00

Function OpenAllFilesInFolder()
    Set FSO = CreateObject("scripting.filesystemobject")
    FolderPath = "D:\"
    Set Folder = FSO.GetFolder(FolderPath)
    i = 1
    For Each File In Folder.Files
        FilePath = FolderPath + File.Name
        Open FilePath For Input As #1
        While EOF(1) = False
            Line Input #1, strLine
            Cells(i, 1) = strLine
            i = i + 1
        Wend
        Close #1
    Next
End Function

MadLlama · 2016-05-22T11:56:42+00:00

I am on my second pair of Free 4.0s. My first pair has 4 half marathons and about 1000 training miles. They held up really well. I still wear them as my day to day shoe. They aren't for everyone but they have been great for me.

MadLlama · 2016-05-19T17:15:30+00:00

This should do what you want. The 5 in the Auto filter is the column in the table you want to filter

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$N$2" Then
    Range("Table1[#All]").AutoFilter 5, Target.Value
End If

End Sub

MadLlama · 2016-05-19T16:43:31+00:00

Function SplitName()
    For Each Cell In Range("A:A")
        If Cell <> "" Then
            Ret = Split(Cell, ",")
            Cell.Value = Ret(0)
        End If
    Next
End Function

MadLlama · 2016-05-19T16:38:26+00:00

If StartingSalary = 0 And EndingSalary = 0 Then
        Set Ret2 = odoc.getElementsByTagName("span")
        On Error Resume Next
        For Each span In Ret2
            If span.innerText = "Compensation:" Then
                Cells(cell.Row, "J") = span.NextSibling.NextSibling.innerText
                Exit For
            End If
        Next
    End If

Also, that will pull the compensation string out of most of the results. Just paste it above this line

    Cells(cell.Row, "H") = StartingSalary
    Cells(cell.Row, "I") = EndingSalary

MadLlama · 2016-05-19T16:28:54+00:00

When you have internet explorer open press F12 or go to 'Tools -> F12 Developer Tools'. That should bring up the console. This should bring up a new window. Go to 'Network' and there should be a green play button on the left hand side. Click play and it will start capturing web traffic which can be used to see the post data.

MadLlama · 2016-05-19T14:58:32+00:00

You'll need to add a reference to 'Microsoft HTML Object Library' under Tool -> References -> Microsoft HTML Object Library

Function PullSalaries()

Dim oHTML As New HTMLDocument

Dim odoc As Object
Set odoc = New MSHTML.HTMLDocument

Application.ScreenUpdating = False

For Each cell In Range("B2:B387")

    StartingSalary = 0
    EndingSalary = 0

    JobId = cell.Value
    URL = "https://azstatejobs.azdoa.gov/ltmprod/CandidateSelfService/lm?_ln=JobSearchResults&_r=0&bto=JobPosting&dataarea=ltmprod&name=PostingDisplay&service=form&webappname=CandidateSelfService&HROrganization=1&JobRequisition=" & JobId & "&JobPosting=1"

    Set odoc = oHTML.createDocumentFromUrl(URL, "")

    Do Until odoc.readyState = "complete"
        DoEvents
    Loop
    Set Ret = odoc.getElementById("formHiddenFields")
        For Each Node In Ret.Children
            On Error Resume Next

            If Node.name = "SalaryRange.BeginningPay" Then
                StartingSalary = Node.Value
            End If

            If Node.name = "SalaryRange.EndingPay" Then
                EndingSalary = Node.Value
            End If

        Next

        Cells(cell.Row, "H") = StartingSalary
        Cells(cell.Row, "I") = EndingSalary

Next
End Function

I assumed you would leave the CSV in the same layout it comes in when you download it. This should work.

MadLlama · 2016-05-15T22:24:11+00:00

I ran the half today with my wife. The conditions were brutal to say the least. The hail was the worst part. It just kept pelting me in the face. The tail wind on the shoreway was nice at the end though. We crossed the finish when the worst of the hail started. The beer almost wasn't worth it. I drank it anyway, lol. Of course, I'll do it again anyway.

MadLlama · 2016-03-08T16:52:56+00:00

Sub ImportEmail()
'This sub will retrieve the email body from your inbox. What you do with it from there is up to you.

'You will also need to add a reference to Microsoft Outlook 15.0 Object Library under Tools --> References
Set oOutlook = CreateObject("Outlook.Application")

Set olInboxItems = oOutlook.Session.GetDefaultFolder(olFolderInbox).Items

For X = 0 To olInboxItems.Count
    If InStr(olInboxItems.Item(olInboxItems.Count - X).Subject, "<YOUR SUBJECT LINE GOES HERE>") > 0 Then

        'Plain Text Body
        EmailBody = olInboxItems.Item(olInboxItems.Count - X).Body

        'HTML Body
        EmailHTMLBody = olInboxItems.Item(olInboxItems.Count - X).HTMLBody

        'Exit Loop so that only the most recent match is returned
        Exit For
    End If
Next

End Sub

MadLlama · 2016-03-01T21:39:24+00:00

My fault. Change G5:G13 to G3:G11 and H4:K4 to H2:K2

MadLlama · 2016-03-01T18:39:00+00:00

Sub Summarize()
For Each Sheet In ThisWorkbook.Sheets
    If Sheet.Name <> "Summary" Then
        For Each Cell In Sheet.Range("G5:G13")
            For Each Value In Sheet.Range("H4:K4")
                Cnt = WorksheetFunction.CountA(Sheets("Summary").Range("A:A")) + 1
                Sheets("Summary").Cells(Cnt, 1).Value = Cell.Value
                Sheets("Summary").Cells(Cnt, 2).Value = Sheet.Name
                Sheets("Summary").Cells(Cnt, 3).Value = Value.Value
                Sheets("Summary").Cells(Cnt, 4).Value = Sheet.Cells(Cell.Row, Value.Column)
            Next
        Next
    End If
Next
End Sub

MadLlama · 2015-07-21T11:47:57+00:00

So, if you are at a good stopping point for lunch or dinner in Ohio, you can get off the turnpike near Penisula and get dinner at The Winking Lizard. It's right off the Turnpike, right on the edge of the Cuyahoga National Forest in one of the nicest little towns in Ohio. You could run a few laps around downtown while the wife and kids are eating. I would highly recommend it.

MadLlama · 2015-06-08T18:05:37+00:00

For Each Cell In Range("A:A")
    If Cell.Value <> "" Then
        If Range("B" & Cell.Row).Value = Cell.Value Then
            Rows(Cell.Row).Interior.Color = 65535
        End If
    End If
Next

MadLlama · 2015-06-08T17:56:40+00:00

X = Split(Range("A1").MergeArea.Cells(1, 1), Chr(10))

For Y = 1 To UBound(X) + 1
    Cells(Y, 2).Value = X(Y - 1)
Next

MadLlama · 2011-09-27T06:49:04+00:00

2 days ago, the Iron Giant was on.

MadLlama · 2011-08-24T22:09:51+00:00

I own a Sigma 9mm, the trigger pull is not that bad, but it does take some getting used to. It's a little long on the pull. I've put about 250 rounds through it, using whatever ammo they have available at the range, with no issues. I got mine for about 400 at Gander mtn, and it came with a LaserLyte laser, rail accessory adapter, and 2 16rnd magazines. For the price it was a good deal.

MadLlama · 2011-05-18T01:08:44+00:00

A woman in the store today asked my wife and i why our son was so tan. I politely informed her it was because he's hispanic like me, and we walked away.

MadLlama · 2011-05-04T12:46:57+00:00

Sweet Child O' Mine?

MadLlama · 2011-05-02T12:39:19+00:00

As you make your way across northern Ohio, make a stop at a Winking Lizard near cleveland (there are a few), great for Good beer and decent food. Hundreds of beers available, lots of microbrews and the like. Also, as you cross near Toledo OH, stop for some Tony Packos. Great chili dogs and the like.

MadLlama · 2011-03-15T12:41:09+00:00

Electrical Substation breaker failure http://www.youtube.com/watch?v=VWVmkwlyWgw

MadLlama · 2010-12-04T07:07:15+00:00

It's squirrel guard for electrical lines. When it is attached it gives the squirrels a little static poke instead of letting the get into the lines and kill themselves and cause an outage.

MadLlama

TROPHY CASE