Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Public Sub DeleteAllAppended() If MsgBox("Are you sure? This will delete every report you have added.", vbOKCancel) = vbCancel Then Exit Sub End If Dim nRow As Long Dim nStart As Long, nEnd As Long 'Figure out where Appened Reports starts. For nRow = 1 To 1048576 If Range("A" & nRow).Value = "Created by:" Then nStart = nRow Exit For End If Next nRow nStart = nStart + 2 ' Figure out where Appened Reports end. For nRow = nStart To 1048576 If Range("A" & nRow).Value = "Totals" Then nEnd = nRow Exit For End If Next nRow nEnd = nEnd - 1 Range("A" & nStart & ":I" & nEnd).Delete End Sub
|How do I get back values from vlookup's N/A cells?||4||16|
|Transposing this formula ...||5||11|
|simple excel formula||4||11|
|EXCEL FORMULA - first three characters in a cell||2||20|