Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
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
|Dropbox in Windows Server 2008||4||28|
|Excel Formula to check both condition's and return values||2||27|
|Excel 2016 vba task to have certain column appear in certain rows||20||23|
|Excel VBA Find Lowest Column number in any range selection||5||19|