And for the worksheet change event in MISSED INSPECTION ITEMS, try this
Code:Private Sub Worksheet_Change(ByVal Target As Range) Dim lngLastRow As Long, rng As Range lngLastRow = Me.Cells(Rows.Count, 1).End(xlUp).Row Set rng = Me.Range("E7:E" & lngLastRow) If (Not Intersect(Target, rng) Is Nothing) And (Target.Cells.Count = 1) Then For Each c In Sheets("INITIATING DEVICES").Range("A2:A" & Sheets("INITIATING DEVICES").Cells(Rows.Count,1).End(xlUp).Row) If c.Value & c.Offset(, 1).Value & c.Offset(, 2).Value & c.Offset(, 3).Value = _ Me.Cells(Target.Row, 1).Value & Me.Cells(Target.Row, 2).Value & Me.Cells(Target.Row, 3).Value & Me.Cells(Target.Row, 4).Value Then c.Offset(, 4).Value = Target.Value Target.EntireRow.Delete Exit For End If Next End If End Sub




Reply With Quote
Bookmarks