Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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 Worksheet_SelectionChange(ByVal target As Range) If Intersect(target, Range("A1:X400")) Is Nothing Then Exit Sub If target.Count > 1 Then Exit Sub Dim DataSheet As Range Dim TargetFound As Range Dim xRow As Integer Dim MessageString Dim exampleDate As Date Dim target1 As Range Set target1 = Range("B7:H400") 'This is where my data is coming from? Set DataSheet = Worksheets("Detail").Range("A2:X400") Set TargetFound = DataSheet.Find(ActiveCell.Value) If Not TargetFound Is Nothing Then xRow = TargetFound.Row Set DataSheet1 = Worksheets("Detail").Range("A2:A1400") Set TargetFound1 = DataSheet1.Find(ActiveCell.Value) If TargetFound1 Is Nothing Then Exit 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.