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 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.
|EXCEL VBA Code to get API Data and output to excel table||6||106|
|why PtrSafe before Function on 64bit does not fix the APIs?||2||28|
|drag and drop (but keep all) lines||11||46|
|Changing a formula to reference a cell instead of a static pivot table reference||12||25|
Join the community of 500,000 technology professionals and ask your questions.