VBA ile filtreleme ve yazdırma

[SELIMT]

Kıymetli forum üyeleri bu forum sayesinde çalıştığım işyerine çok faydalı olacak zamandan tasarruf edilmesini sağlayacak çalışma tablomu oluşturdum. Ama bu tablomu sizler sayesinde dahada zenginleştireceğim. Ekli dosyada filtrele ve yazdırma ile ilgili bir sorunum var siz değerli forum üyelerinin yardımına ihtiyacım var. Excel de daha yeni olduğum vba kodlarından pek bir şey anlamıyorum.

 

[Murat OSMA]

Yazdırma Sayfasındaki Açıklamayı okumadım ama, Döküm sayfasındaki B1 hücresine yazacağınız T.KOD ile filtreleme yapıp, filtrelenen alanı Yazdırma sayfasına kopyalamak için şu kodları kullanabilirsiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address(0, 0) = "B1" Then
        Application.ScreenUpdating = False
        Range("B5:Q5").Select
        Selection.AutoFilter
        ActiveSheet.Range("$B$5:$R$40").AutoFilter Field:=5, Criteria1:=Target.Value
    End If
    If Target.Value = "" Then ActiveSheet.ShowAllData: Sayfa2.Range("B6:R40").ClearContents: Exit Sub
    Sheets("DÖKÜM").Range("B6:R40").SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("YAZDIRMA").Range("B6")
    Application.ScreenUpdating = True
End Sub