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
|nested If/and formula needed||12||62|
|what Script langage can i run on Online Excel without having the installed version||3||54|
|incrementing rows containing a string and number by 1 in excel.||3||23|
|how to insert the calendar comtrol for excel cell||10||20|