makro, tablodaki filtreyi iptal ediyor

[gedavet]

iyi günler ekdeki dosyada bölgeler ve ürünler sayfasındaki taplonun filitrelerini iptal ediyor makro etmese bunun çözümü varmıdır diğer kodlardaki işlemler bozulmadan
yardımlarınız için teşekkür ederim

 

[gedavet]

dosyayı ekledim

 

[gedavet]

bölgeler ve ürünler sayfalarındaki filitreleri alış ve satış sayfalarındaki veri doğrulamaları kullanınca iptal ediyor
örnek alış sayfasından kasayı satış sayfasındaki bölgedeki veridoğrulamaları kullanınca

 

[Korhan Ayhan]

Selamlar,

Kullandığınız makroları denedim fakat bende filtreler iptal olmadı. Sanıyorum siz farklı bir uygulama yapıyorsunuz.

Aşağıdaki kodu ThisWorkbook bölümüne eklerseniz bahsettiğiniz iki sayfa açılınca filtre yeniden otomatik eklenir. Bu şekilde sanırım sorununuz ortadan kalkar.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
        Case Is = "BÖLGELER"
            If Sh.AutoFilterMode = False Then
                Sh.Range("B4:D4").AutoFilter
            End If
        Case Is = "ÜRÜNLER"
            If Sh.AutoFilterMode = False Then
                Sh.Range("B4:F4").AutoFilter
            End If
    End Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Kodların arasına ilgili sayfalara filtreyi tekrar ekleyen kodlar yazdım. Sanırım bu şekilde işinizi görür.