Can I run the filter for Column A off the drop down menu in Cell D9?

[jeskel]

Any Help would be appreciated. I had one issue solved on here today if I can get this one I would be ecstatic!

Thank you!

- Jessy

 

[My Aswer Is This]

Any Help would be appreciated. I had one issue solved on here today if I can get this one I would be ecstatic!

Thank you!

- Jessy

Are you wanting the filter script to automatically run when you change a value in D9?

Or are you saying you want to filter the range according to the value in D9

Or both.

Show us the script which will do the filtering's.

 

[Fluff]

This will automatically filter col A, whenever D9 is changed.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Target.Address(0, 0) = "D9" Then Exit Sub
   If Target = "" Then
      Range("A10:C10").AutoFilter 1
   Else
      Range("A10:C10").AutoFilter 1, Target.Value
   End If
End Sub

This needs to go in the sheet module containing the D9 drop & assumes the data to filter is on the same sheet.

 

[jeskel]

Are you wanting the filter script to automatically run when you change a value in D9?

Or are you saying you want to filter the range according to the value in D9

Or both.

Show us the script which will do the filtering's.

I want the Filter Script to automatically run when I change the value using the drop down menu in cell D9. Cells D10:D13 Change already based on value in D9 so does cell H8
But I want when I switch the selection in cell d9 for column A to display only the info as shown below:

Cell D9: ASA Alloys Inc
D10: Name
D11: Address
D12: Address


Column A
Castle
ASA
RASCO
EMJ
ASA
Castle
EMJ
ASA

 

[jeskel]

Thanks I will try it.

 

[jeskel]

Got it! Thank you guys so much!!!!

 

[Fluff]

Glad we could help & thanks for the feedback

 

[jeskel]

This will automatically filter col A, whenever D9 is changed.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Target.Address(0, 0) = "D9" Then Exit Sub
   If Target = "" Then
      Range("A10:C10").AutoFilter 1
   Else
      Range("A10:C10").AutoFilter 1, Target.Value
   End If
End Sub

This needs to go in the sheet module containing the D9 drop & assumes the data to filter is on the same sheet.

Good Morning the code above worked however I have been finding that after w while of having the spreadsheet open it decides not to work and i have to close and re-open to make it work again.
Any Ideas on how to make it work constantly without this issue?

Thanks again!

- Jessy

 

[Fluff]

When you say it stops working, do you get any errors, does Xl crash, or is it simply that the sheet no longer filters?

 

[jeskel]

1. When you say it stops working, do you get any errors, does Xl crash, or is it simply that the sheet no longer filters?

The Sheet just no longer Filters.

- Jessy