Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change criteria for worksheet change code.
Code works to :
List all unique values from column A in Column B, starting with row 12. I need to know how to change the criteria in the code to do the following: List all unique values from column L, in column Q, starting with row 12. (I tried changing the obvious letters.... but must be a little more to it!). Private Sub Worksheet_Change(ByVal Target As Range) Dim myRow As Long If Target.Cells.Count 1 Then Exit Sub If Target.Column < 1 Then Exit Sub Application.EnableEvents = False If Application.CountIf(Range("B:B"), Target.Value) = 0 Then rw = Range("B65536").End(xlUp)(2).Row If rw < 12 Then rw = 12 Cells(rw, 2).Value = Target.Value End If For myRow = Range("B65536").End(xlUp).Row To 12 Step -1 If IsError(Application.Match(Cells(myRow, 2).Value, Range("A:A"), False)) Then Cells(myRow, 2).ClearContents End If Next myRow Application.EnableEvents = True End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Run VBA code only worksheet change, but don't trigger worksheet_change event based on what the code does | Excel Programming | |||
Worksheet change doesn't look at code | Excel Programming | |||
Change Code from a Worksheet | Excel Programming | |||
Worksheet change code | Excel Programming | |||
Change Criteria in Code | Excel Programming |