Vba Yardım

[0nur38]

Merhaba Arkadaşlar Bir listem var bu lıstede makro yaptım lakın yaptıgım makro da sorun var ben bu lıstenın soyle olmasını ıstıyorum lakın beceremedım.
Özet Tablo kısmında 32li dugme kapsulu dılımleyıcıden sececek A sutunundakı en son dolu hucreyı bulup 9. satırındaki en son dolu hucreyı bulup yazdırma alanı belırleyıp o bolgenın cıktısını almak ıstıyorum.sonra dılımleyıcıden çengellıyı secıp onunda aynı sekılde a satırında en son dolu hucreyı bulup 9 satırdakı en son dolu hucreyı bularak yazdırma alanı belırleyıp cıktı alma bu sekılde sırayla beceremedım yardımcı olurmusunuz. Şimdiden Teşşekkur ederim.

https://www.dosyaupload.com/dlL0

 

[Merhum İdris SERDAR]

.

Aşağıdaki kodları kullanabilirsiniz.

Sub Çalıştır()


    With ActiveWorkbook.SlicerCaches("Dilimleyici_Malzeme_kısa_metni2")
        .SlicerItems("Düğme Kapsülü 32Lik").Selected = True
        .SlicerItems("Düğme Kapsülü 32Lik Çengelli").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Delikli").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Tırtırlı Çivili").Selected = False
        .SlicerItems("Düğme Kapsülü 36Lik Tırtırlı Çivili").Selected = False
        .SlicerItems("Düğme Kapsülü 60lık").Selected = False
        .SlicerItems("Liona Düğme Ø44mm").Selected = False
        .SlicerItems("Sementa Çektirmeli Düğme").Selected = False
       
    End With
    Range("Print_Area").PrintPreview

    With ActiveWorkbook.SlicerCaches("Dilimleyici_Malzeme_kısa_metni2")
        .SlicerItems("Düğme Kapsülü 32Lik Çengelli").Selected = True
        .SlicerItems("Düğme Kapsülü 32Lik").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Delikli").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Tırtırlı Çivili").Selected = False
        .SlicerItems("Düğme Kapsülü 36Lik Tırtırlı Çivili").Selected = False
        .SlicerItems("Düğme Kapsülü 60lık").Selected = False
        .SlicerItems("Liona Düğme Ø44mm").Selected = False
        .SlicerItems("Sementa Çektirmeli Düğme").Selected = False
        
    End With
    
    ActiveSheet.PivotTables("PivotTable6").PivotSelect "'Ürün Adı'[All]", _
        xlLabelOnly, True
    
    Range("Print_Area").PrintPreview
    
    With ActiveWorkbook.SlicerCaches("Dilimleyici_Malzeme_kısa_metni2")
        .SlicerItems("Düğme Kapsülü 32Lik Delikli").Selected = True
        .SlicerItems("Düğme Kapsülü 32Lik").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Çengelli").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Tırtırlı Çivili").Selected = False
        .SlicerItems("Düğme Kapsülü 36Lik Tırtırlı Çivili").Selected = False
        .SlicerItems("Düğme Kapsülü 60lık").Selected = False
        .SlicerItems("Liona Düğme Ø44mm").Selected = False
        .SlicerItems("Sementa Çektirmeli Düğme").Selected = False
        
    Range("Print_Area").PrintPreview
    
    With ActiveWorkbook.SlicerCaches("Dilimleyici_Malzeme_kısa_metni2")
        .SlicerItems("Düğme Kapsülü 32Lik Tırtırlı Çivili").Selected = True
        .SlicerItems("Düğme Kapsülü 32Lik").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Çengelli").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Delikli").Selected = False
        .SlicerItems("Düğme Kapsülü 36Lik Tırtırlı Çivili").Selected = False
        .SlicerItems("Düğme Kapsülü 60lık").Selected = False
        .SlicerItems("Liona Düğme Ø44mm").Selected = False
        .SlicerItems("Sementa Çektirmeli Düğme").Selected = False
       
    End With
    Range("Print_Area").PrintPreview
    
    With ActiveWorkbook.SlicerCaches("Dilimleyici_Malzeme_kısa_metni2")
        .SlicerItems("Düğme Kapsülü 36Lik Tırtırlı Çivili").Selected = True
        .SlicerItems("Düğme Kapsülü 32Lik").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Çengelli").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Delikli").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Tırtırlı Çivili").Selected = False
        .SlicerItems("Düğme Kapsülü 60lık").Selected = False
        .SlicerItems("Liona Düğme Ø44mm").Selected = False
        .SlicerItems("Sementa Çektirmeli Düğme").Selected = False
        
       End With
    Range("Print_Area").PrintPreview
    
    With ActiveWorkbook.SlicerCaches("Dilimleyici_Malzeme_kısa_metni2")
        .SlicerItems("Düğme Kapsülü 60lık").Selected = True
        .SlicerItems("Düğme Kapsülü 32Lik").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Çengelli").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Delikli").Selected = False
        .SlicerItems("Düğme Kapsülü 32Lik Tırtırlı Çivili").Selected = False
        .SlicerItems("Düğme Kapsülü 36Lik Tırtırlı Çivili").Selected = False
        .SlicerItems("Liona Düğme Ø44mm").Selected = False
        .SlicerItems("Sementa Çektirmeli Düğme").Selected = False
        
        End With
   Range("Print_Area").PrintPreview
   End With
End Sub

Ben durumu görmek için PrintPreview kullandım. İsterseniz bunları PrintOut olarak değiştirebilirsiniz.


.