Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Dim B As Boolean MsgBox "Please verify Data is correct." B = ThisWorkbook.WaitForUserInput(WaitSeconds:=30, _ WaitCell:=Worksheets(1).Range("K6")) If B = True Then Debug.Print "User Selected: " & Worksheets(1).Range("K6").Value Else Debug.Print "User Select timed out, Transmittal Cancelled" End If
Private WatchCell As Range Private CellChanged As Boolean Public Function WaitForUserInput(WaitSeconds As Long, _ WaitCell As Range) As Boolean Dim TimeStart As Double CellChanged = False Set WatchCell = WaitCell TimeStart = Now Do DoEvents If CellChanged = True Then WaitForUserInput = True Exit Function End If Loop While Now - TimeStart < TimeSerial(0, 0, WaitSeconds) WaitForUserInput = False End Function Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) If Not WatchCell Is Nothing Then If Not Application.Intersect(Target, WatchCell) Is Nothing Then CellChanged = True End If End If End Sub
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.