Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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 DATA_2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If DATA_1.Value = "" Then Dim Msg, Style, Title, Response, MyString Msg = "You have left the previous data cell blank. If you continue the" _ & Chr(10) & "capability chart will reflect a skip in the plotted data." _ & Chr(10) & "" _ & Chr(10) & "" _ & Chr(10) & "Continue anyway?" _ & Chr(10) & "" Style = vbYesNo Title = "DATA CONFIRMATION" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then If DATA_2.Value = "" Then TextBox182.Value = "" Else TextBox182.Value = 2 End If Else DATA_2.Value = "" Cancel = True ' DATA_1.SetFocus ' DATA_2.Value = "" GoTo ENDPROCEDURE End If Else TextBox182.Value = 2 End If ENDPROCEDURE: Me.DATA_1.SetFocus
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.