Istenilen sütunları yazdırmak

[hako88]

Değerli üstadlarım yaptığım tabloda (ekteki tabloyu örnek için yaptım) yazdırmak için çok küçültmem gerekiyor okunmuyacak derecede küçülüyor istediğim ise örnek olarak sadece A D F ve G sütunlarını yazdırmak değerli bilgilerinizi benimle paylaşırsanız çok sevinirim

 

[Ergün Güler]

Selam,
Ekte gönderdiğiniz dosyanın "Sayfa1"in kod sayfasına

Sub Belirle()
    Columns("B:C").Select
    Selection.EntireColumn.Hidden = True
    Columns("E:E").Select
    Selection.EntireColumn.Hidden = True
    Columns("A:G").Select
    ActiveSheet.PageSetup.PrintArea = "$A:$G"
End Sub

giriniz.

daha sonra sayfanıza form'dan bir düğme ekleyiniz. Bu düğmeye yukarıda kodlarını verdiğim "Belirle" Makrosunu atayınız.

 

[hako88]

Merhaba Ergün bey ilginize çok teşekkür ederim tam istediğim gibi oldu fakat bu makroyu uyguladıktan sonra B C ve E sütünları kayboluyor bunu nasıl çözebilirim

 

[hako88]

Merhaba Ergün bey verdiğiniz kodları uyguladım tam istediğim gibi oldu ilginize çok teşekkür ederim fakat B C ve E sütunları bu makroyu uyguladıktan sonra kayboluyor bu durumu nasıl çözebilirim

 

[parametre]

Sub Belirle()
Columns("B:C").Select
Selection.EntireColumn.Hidden = false
Columns("E:E").Select
Selection.EntireColumn.Hidden = false
End Sub

bu değişiklileri yapın duzelir

 

[Ergün Güler]

Merhaba Ergün bey verdiğiniz kodları uyguladım tam istediğim gibi oldu ilginize çok teşekkür ederim fakat B C ve E sütunları bu makroyu uyguladıktan sonra kayboluyor bu durumu nasıl çözebilirim

Selam,
Sayfa1'in kod sayfasına

Sub Temizle()
Cells.Select
    Selection.EntireColumn.Hidden = False
    ActiveSheet.PageSetup.PrintArea = ""
End Sub

kodunu giriniz.
Sayfanıza form'dan bir düğme daha ekleyiniz. Düğmeye yukarıdaki kodu ekleyiniz.
İyi çalışmalar.

 

[hako88]

Ergün bey size çok teşekkür ederim bugün sizden çok şey öğrendim belki size göre basit olabilir ama ben bu söylediklerinizi asla yapamazdım ve çözümlerini bulamazdım.Sorununuzu bilmiyorum ama maddi manevi ne sorununuz varsa umarım geçer tekrar teşekkür ederim

 

[Ergün Güler]

Ergün bey size çok teşekkür ederim bugün sizden çok şey öğrendim belki size göre basit olabilir ama ben bu söylediklerinizi asla yapamazdım ve çözümlerini bulamazdım.Sorununuzu bilmiyorum ama maddi manevi ne sorununuz varsa umarım geçer tekrar teşekkür ederim

rica ederim. Ben de teşekkür ederim.
İyi çalışmalar.