MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
|Excel Lookup - True if return at least one match||9||44|
|Problem with Excel 2016 changing cell format type on its own||4||23|
|Help with Excel formula to look up text in multiple columns then retrieve a value with a formula from another column.||9||31|
|HELP WITH INDEX MATCH to look from LEFT TO RIGTH||4||10|