Bir butona tıklandığında belirtilen sayfaya gitmesi ve yazıcı çıktısı alınması

[ikHouVanJe_68]

Arkadaslar merhaba hazirlanan bu dosyada ana sayfa diye açtiğim sheet'e butonlar ekledim ve bu butonlara tıklandığında belirtilen sayfaya gitmesini istiyorum..Sonuç butonuna tıkladığımda ise sonuç sayfasının çıkması ve o sayfada bulunan yazdır butonuna tıklandığında yazıcıdan çıktı alınmasını istiyorum.
Yardımlarını için şimdiden teşekkür ediyorum
saygılarımla

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre Ana isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayınız.

Private Sub CommandButton1_Click()
    Sheets("Bilgi_Giriş").Select
End Sub

Private Sub CommandButton2_Click()
    Sheets("Aboneler").Select
End Sub

Private Sub CommandButton3_Click()
    Sheets("Sonuç").Select
End Sub

Sonuç isimli sayfanıza da bir CommandButton ekleyip bu sayfanın kod bölümünede aşağıdaki kodu uygulayınız.

Private Sub CommandButton1_Click()
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[ikHouVanJe_68]

peki usta bunu aylık olarak kaydedebilirmiyiz yani belgeyi her ay kullanılan tonaj bilgisi olarak...nasıl yapabiliriz

 

[Korhan Ayhan]

Selamlar,

Tam olarak ne demek istediğinizi anlayamadım. Sorunuzu biraz daha detaylı açıklarmısınız.

 

[ikHouVanJe_68]

şimdi buna girilen değerler aylık giriliyor yani ilk endeks son endeks olayı..girilen değerleri yani sayfayı her ay olarak kaydedebilirmiyiz..mesela mart ayında girilen değerleri mart ayı olarak kaydetmek vs

 

[Korhan Ayhan]

Selamlar,

Tabiki kaydedebilirsiniz. Fakat hangi sayfadaki bilgileri hangi düzende nereye kaydetmek istiyorsunuz. Bu tür bilgileri verirseniz cevap almanız kolaylaşacaktır.

 

[ikHouVanJe_68]

sonuç bölümündeki verileri..yani sonuç bölümünü tamamen kaydedebiliriz..ay ay olabilirçacaba nasıl yaparız usta

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Kod Sonuç isimli sayfadaki bilgileri D1 hücresindeki tarih bilgisi ile yeni bir dosyaya kaydeder.

Koddaki "DOSYA_YOLU = "C:\Documents and Settings\Belgelerim\" bölümünü kendinize göre değiştiriniz.

Sub AYLIK_BİLGİLERİ_KAYDET()
    Application.ScreenUpdating = False
    Sheets("Sonuç").Select
    DOSYA_YOLU = "C:\Documents and Settings\Belgelerim\"
    DOSYA_İSMİ = Format(Sheets("Sonuç").[D1], "mmmm yyyy")
    Workbooks.Add
    Windows("abone(1).xls").Activate
    Cells.Copy
    ActiveWindow.ActivateNext
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.PasteSpecial Paste:=xlPasteFormats
    Range("A1:C1").Select
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=DOSYA_YOLU & DOSYA_İSMİ & ".xls", FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Application.DisplayAlerts = True
    ActiveWindow.Close
    Range("A1:C1").Select
    Application.ScreenUpdating = True
    MsgBox "BİLGİLER AKTARILMIŞTIR.", vbInformation
End Sub

 

[ikHouVanJe_68]

usta hepsini yaptim ama bu kaydet butonuna nasil giricem kodlari girdigimde calistiramadim..bi bakarmisin kaydet butonunu sonuc sayfasina koydum

 

[ikHouVanJe_68]

usta son msjimi kontrol ettinmi

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

 

[ikHouVanJe_68]

usta çok saol ellerin dert görmesin