filtrelemede sütun gizleme

[umitumit]

örnek dosyada a sütunundaki isimleri filtre edeceğim.
ama ali ismini filtre ettiğimde b-c-e-h-ı-l sütunları görünsün,
veli ismini filtre ettiğimde d-f-g-j-k-m sütunları görünür olsun.

 

[umitumit]

galiba zor bir soru

 

[ismailmuhcu]

İstediğiniz böyle bişey mi?
Dosya Ekte:

 

[iaydin20]

AŞAĞIDAKİ KODLAR DAHA SAĞLIKLI OLUR DİYE DÜŞÜNÜYORUM


Sub alisüz()
Selection.AutoFilter Field:=1
Cells.Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:="ali"
Range("D,F:F,G:G,J:J,K:K,M:M").Select
Range("M1").Activate
Selection.EntireColumn.Hidden = True
Range("A1").Select
End Sub
Sub velisüz()
Selection.AutoFilter Field:=1
Cells.Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:="veli"
Range("B:B,C:C,E:E,H:H,I:I,L:L").Select
Range("L1").Activate
Selection.EntireColumn.Hidden = True
Range("A1").Select
End Sub
Sub tümünügöster()
Selection.AutoFilter Field:=1
Cells.Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub

 

[umitumit]

teşekkürler,
inceleyip geri döneceğim