Makronun sayfa ayarlarını yapmaması

[YUSUF44]

Ekli dosyada Aylık rapor sayfasında sonu Getir olan sağdaki düğmeye basıldığında seçili olan aya ait veriler Veri girişi sayfasından Aylık rapor sayfasına aktarılıp sayfa düzeni ayarlanıyor.

Soldaki Excel dosyasını oluştur düğmesine basıldığında da o sayfa yeni dosya oluşturulup, düğmeler siliniyor ve xlsx dosyası olarak kaydediliyor. Ancak module2'de bulunan sayfayap makrosunda yeni sayfa oluşturma, düğme silme, kaydedip kapatma işlemleri yapılırken sayfa ayarlarıyla ilgili kısımlar çalışmıyor. Halbuki makroda sayfayı yazdırmaya hazır hale getirecek tüm kodlar mevcut. Nedense o kısım çalışmıyor.

Neden olabilir? Nasıl düzeltilir?

Yardımlarınız için şimdiden teşekkürler.

 

[Suskun]

Sayfayap makrosundaki

ActiveWorkbook.SaveAs Filename:= _
            yol & "\Kula " & s1.[G4] & " " & s1.[I4] & " Düşen Küpe Talep Listesi.xlsx", _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Kodunu

ActiveWorkbook.SaveAs Filename:= _
            yol & "\Kula " & s1.[G4] & " " & s1.[I4] & " Düşen Küpe Talep Listesi.xlsm", _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled , CreateBackup:=False

olarak değiştirin,

 

[YUSUF44]

Teşekkürler. Ancak ben dosyanın makrosuz ve düğmesiz xlsx dosyası olmasını istiyorum. Bu durumda istediğim olmayacak anladığım kadarıyla.

Acaba önce sayfa ayarını yapıp sonra mı kaydetmek gerekiyor?

Ya da mevcut sayfayı istediğim şekilde yeni bir dosya olarak kaydetmenin başka yöntemi var mı?

 

[Korhan Ayhan]

Şu satırı ekleyip deneyiniz.

Application.PrintCommunication = True

 

[Suskun]

Kaydettiğiniz sayfa bu sekilde makrosuz ve düğmeleri silinmiş . Sadece rapor var.
Getir makrosundaki İşletme no sütunu ( s2.Range("E7:E" & son))
.WrapText = True olarak yapılmış satır bölünüyor.
sayfa araylarını bozuyor olabilir.

 

[YUSUF44]

Şu satırı ekleyip deneyiniz.

Application.PrintCommunication = True

O satır False olarak vardı, True'ye çevirdim ama değişiklik olmadı. Hatta " .FitToPagesTall = 0" satırında hata verdi. Orayı pasiflediğimde işlemi tamamlasa da sayfa ayarı düzelmemişti. Daha doğrusu diğer ayarları yapıyor ama sütunları bir sayfaya sığdır kısmını yapmıyor.

 

[YUSUF44]

Kaydettiğiniz sayfa bu sekilde makrosuz ve düğmeleri silinmiş . Sadece rapor var.
Getir makrosundaki İşletme no sütunu ( s2.Range("E7:E" & son))
.WrapText = True olarak yapılmış satır bölünüyor.
sayfa araylarını bozuyor olabilir.

Makro ilk haliyle makrosuz ve düğmesiz olarak kaydediyor zaten. Ama sayfa ayarını hiç yapmıyordu.

Korhan Bey'in verdiği çözümle sayfa ayarının da çoğunu yapıyor ama sütunları sığdırmayı yapmıyor.

Sizin verdiğiniz gibi yaparsam dosyayı xlsm olarak kaydedeceğini belirtmek istemiştim. Getir makrosu sonunda sayfa ayarında herhangi bir sıkıntı olmuyor.

 

[Korhan Ayhan]

Yusuf bey ben ekleyin demiştim. Değiştirin demedim.

 

[Suskun]

Makroda şu değişikliği denermisiniz:

.....
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With


ActiveWorkbook.SaveAs Filename:= _
yol & "\Kula " & s1.[G4] & " " & s1.[I4] & " Düşen Küpe Talep Listesi.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.....

 

[YUSUF44]

İlginize teşekkürler. Sayfayı dikeyden yataya çevirdim. iki makroyu birleştirip tek makro yaptım. Yıl ve ay seçimini aylık rapor sayfasından iptal ettim ve userformda işlevsel bazı değişiklikler yaptım. Dosyanın son hali ektedir.