hi,
i want to add this code to my worksheet_change Event
If Target.Cells.count = 1 Then
If Not Intersect(Target, Range("F11:F2000")) Is Nothing Then
Application.EnableEvents = False
Range("A11:E11").Copy Destination:=Range("A" & Target.Row)
Range("I11:Y11").Copy Destination:=Range("I" & Target.Row)
Application.EnableEvents = True
End If
End If
End If
this code please add above event to work automatically when i type in range("F11:F2000")
Sub GetUnique_OL_BC()
Dim i As Long
Dim LastRow As Long
Dim LASROS As Long
Application.ScreenUpdating = False
LASROS = Sheets("OL BC").Range("Z" & Rows.count).End(xlUp).Row + 10
Range("Z10:Z" & LASROS).ClearContents
LastRow = Sheets("OL BC").Range("B" & Rows.count).End(xlUp).Row
For i = 10 To LastRow
If Application.WorksheetFunction.CountIf(Range("B10:B" & i), Range("B" & i).Text) = 1 Then
Range("Z65536").End(xlUp).Offset(1, 0).Value = Range("B" & i).Text
End If
Next i
Application.ScreenUpdating = True
End Sub
Bookmarks