Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
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
|Find and Replace Function not working in Excel||13||44|
|Excel Spacing Anomaly||4||23|
|Copy a range from 1..n excel sheets to one destination sheet||2||31|
|VBA Challenge how to code to loop through all files in folder and revise some part of the codes||15||34|