Grafik verileri süzme

[vivaayew_ts]

arkadaşlar ekteki dosyada, ilk sekmede verilerim var, bu verilere ait grafiğimde ikinci sekmede
firma isim değer
a x 125
a y 254
a x 214
b c 258
b d 654
b f 745
c g 82
c h 214
c j 369
d k 21
d l 47
d m 557
e n 52
e q 45

veriler örneğin bu şekilde. Ben grafikte isim ve değerleri görüntülüyorum ama tamamını, grafiğin yanında da firma ismine göre süzmek için sarı dolgulu hücrem var, ben o hücreyi ne yaparsam grafikte sadece o firmanın verileri olsun istiyorum.
Yardımcı olabilir misiniz?

 

[vivaayew_ts]

Mesela

Sub Makro1()

Sheets("veri").Select
ActiveSheet.Range("$C$3:$E$17").AutoFilter Field:=1, Criteria1:="a"
Sheets("grafik").Select
End Sub

bu kod ile firma ismi a olanları süzen makro yazılabiliyor ben ordaki a değerine göre değilde 08 hücresindeki değişken değere göre süzsün istiyorum.

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

.

 

[vivaayew_ts]

Sayın yurttaş teşekkür ederim ama özet tablo da başka şekillerle de yaptım oluyor fakat bu dosya ortak bir alanda 20 faklı pc den açılabilecek ve versiyon farklılıkları mevcut bu yüzden her pc de özet tablo süzmesi yapılamadı.
Bu yüzden makro ile bir çözüm bulmaya çalıştım başka öneriniz var mıdır acaba?

 

[Merhum İdris SERDAR]

.

Bir de buna bakın.

.

 

[vivaayew_ts]

Evet çok teşekkür ediyorum sayın yurttaş, şimdi harika oldu, emeğinize sağlık.