Worksheet_change simple question

DUI

Board Regular
Joined
Jul 3, 2006
Messages
109
How do I get this to work?
I only want it to work on cell H13 & K13

Private Sub Worksheet_Change(ByVal Target As Range)


Range("A13:A400").AutoFilter Field:=1, Criteria1:="1"

End Sub

Thanks Guys.
 

Some videos you may like

Excel Facts

What does custom number format of ;;; mean?
Three semi-colons will hide the value in the cell. Although most people use white font instead.

Andrew Poulsom

MrExcel MVP
Joined
Jul 21, 2002
Messages
73,092
One way:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$13" Or Target.Address = "$K$13" Then
        Range("A13:A400").AutoFilter Field:=1, Criteria1:="1"
    End If
End Sub
 

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
Try

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H13,K13")) Is Nothing Then Exit Sub
Range("A13:A400").AutoFilter Field:=1, Criteria1:="1"
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,122,370
Messages
5,595,770
Members
414,017
Latest member
surajks

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top