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.
Private Sub cmbDelete_Click() Dim msgResponse As String 'confirm delete Application.ScreenUpdating = False 'get user confirmation msgResponse = MsgBox("Do you really want to delete this record?", _ vbCritical + vbYesNo, "Delete Entry") Select Case msgResponse 'action dependent on response Case vbYes 'c has been selected by Find button Set c = ActiveCell c.EntireRow.Delete 'remove entry by deleting row 'restore form settings With Me .cmbAmend.Enabled = False 'prevent accidental use .cmbDelete.Enabled = False 'prevent accidental use .cmbAdd.Enabled = True 'restore use 'clear form ClearControls End With Case vbNo Exit Sub 'cancelled End Select Application.ScreenUpdating = True End Sub
|Macro to change number to Month in Excel?||10||45|
|Stop display of alerts in Word via Excel||12||18|
|formula to count the number of capital letters in an excel formula||3||12|
|Extract Unique Based on Criteria in Another Column in Excel||15||6|