Makro ve Süzme işlemi Hk

[ckarabacak]

Merhabalar

Ekteki dosya genel sayfasındaki firma ismini seçtiğimde sayfa 1 de sadece seçtiğim firmanın gelmesini istiyorum ( nakit ve harç sütunları hariç.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Genel sasyfasında firma ismine çift tıklayınız.
Dosyanız ektedir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sh As Worksheet, sonsat As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
If sonsat < 5 Then Exit Sub
If Intersect(Target, Range("B5:B" & sonsat)) Is Nothing Then Exit Sub
Set sh = Sheets("Sayfa1")
sh.Range("B2").AutoFilter
sh.Range("B2").AutoFilter field:=1, Criteria1:=Target.Value
sh.Select
Set sh = Nothing
End Sub

 

[ckarabacak]

Üstad eline emeğine sağlık. Teşekkür ederim .

 

[Orion1]

Üstad eline emeğine sağlık. Teşekkür ederim .

Rica ederim.
İyi çalışmalar.