Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
If Range("B" & Target.Row).Value = "" Or _
Range("C" & Target.Row).Value = "" Or _
Range("D" & Target.Row).Value = "" Then
MsgBox " You must have entries in columns B, C and D for row " & Range.Row
End If
ElseIf Not Intersect(Target, Columns(14)) Is Nothing Then
If Target.Value = "YES" And Range("O" & Target.Row).Value = "" Then
MsgBox " You must have entries in column O for row " & Range.Row
ElseIf Target.Value = "" And Range("O" & Target.Row).Value <> "" Then
MsgBox "Column O must be empty for row " & Range.Row
End If
End If
End Sub
test.xls
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
If Range("B" & Target.Row).Value = "" Or _
Range("C" & Target.Row).Value = "" Or _
Range("D" & Target.Row).Value = "" Then
MsgBox " You must have entries in columns B, C and D for row " & Target.Row
End If
ElseIf Not Intersect(Target, Columns(14)) Is Nothing Then
If Target.Value = "YES" And Range("O" & Target.Row).Value = "" Then
MsgBox " You must have entries in column O for row " & Target.Row
ElseIf Target.Value = "" And Range("O" & Target.Row).Value <> "" Then
MsgBox "Column O must be empty for row " & Target.Row
End If
End If
End Sub
test.xls
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing And Target.Row <> 1 Then
If Range("B" & Target.Row).Value = "" Or _
Range("C" & Target.Row).Value = "" Or _
Range("D" & Target.Row).Value = "" Then
MsgBox " You must have entries in columns B, C and D for row " & Target.Row
End If
ElseIf Not Intersect(Target, Columns(14)) Is Nothing And Target.Row <> 1 Then
If Target.Value = "YES" And Range("O" & Target.Row).Value = "" Then
MsgBox " You must have entries in column O for row " & Target.Row
ElseIf Target.Value = "" And Range("O" & Target.Row).Value <> "" Then
MsgBox "Column O must be empty for row " & Target.Row
End If
End If
End Sub
test.xls
If you are experiencing a similar issue, please ask a related question
Title | # Comments | Views | Activity |
---|---|---|---|
Rename multiple files in folder from list in table/excel. | 4 | 37 | |
Extract Unique List when in Two Columns in Excel | 20 | 27 | |
Delete all empty columns using VBA | 7 | 42 | |
Importing contacts into Office 365 Outlook | 12 | 33 |
Join the community of 500,000 technology professionals and ask your questions.