Makro hk

[resolve45]

Arkadaşlar EK teki dosyada yapmak istediğim şudur; Sayfa1' e menü isimlerini yazdım. Diğer Sayfalara da köprü oluşturdum isimlerini ve aynı zamanda gizle komutunu ekledim gizliyor yalnız menü yazıların karşısına yazdır butonu eklediğim zaman hata veriyor yazdırdığımda sayfa gizli diye hata veriyor sanırımn bunu nasıl çözerim :

KISACASI BU :


Yani demek istediğim ben Tek 1 sayfaya menü şeklinde dosya isimleri yazdım. Ve yanına yazdır butonu ekledim. Yazdır dediğimde yanındaki dosya ismini yazdırsın ve aynı zamanda dosyalarda gizli kalsın. tşkler

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub Personel_Özlük_Dosyası_Yazdır()
Application.ScreenUpdating = False
Sheets("PersoneL Ö.Dos.").Visible = True
    Sheets("PersoneL Ö.Dos.").PrintOut Copies:=1
Sheets("PersoneL Ö.Dos.").Visible = False
Application.ScreenUpdating = True
End Sub

 

[resolve45]

merhaba

bu işinizi görür mü?

Sub Personel_Özlük_Dosyası_Yazdır()
Application.ScreenUpdating = False
Sheets("PersoneL Ö.Dos.").Visible = True
    Sheets("PersoneL Ö.Dos.").PrintOut Copies:=1
Sheets("PersoneL Ö.Dos.").Visible = False
Application.ScreenUpdating = True
End Sub

Evet komutu 1 sayafaya işeyebildim size ekte yolladıgım dosyaya uyarlayabilirseniz cok sevinirim ben çözemedim çnkü tşkler

http://www.upload.gen.tr/d.php/s14/d4rrf76z/S__zle__me___rnekler.xls.html

 

[uzmanamele]

merhaba

dosyalarınızı siteye ekleyiniz, bir çok arkadaşımız upload sitelerine erişemiyor olabilir.
benim erişimim kısıtlı, kaldı ki başka bir arkadaş sorunuza çözüm üretmek istese elinden bişey gelmeyebilir.