Soru Kasa Programı ile ilgili USERFORM hakkında yardım

[veysikulte1]

merhaba kasa giriş çıkış programı hazırladım kendi çapımda ancak takıldığım konular var userform üzerinde label ile açıklamasını yazmışım. siz değerli hocalarımdan yardımlarınızı bekliyorum. Lütfen bu konuda bana yardımcı olun. şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Dünden devir ve bugünkü bakiye için hesaplama nasıl yapılacak?

İki tarih arası rapor için formunuzda tarih gireceğiniz kutucukları göremedim.

 

[veysikulte1]

Merhaba,

Dünden devir ve bugünkü bakiye için hesaplama nasıl yapılacak?

İki tarih arası rapor için formunuzda tarih gireceğiniz kutucukları göremedim.

Hocam dünki devir bugünü hariç tutup toplamını göstersin diğeride bugünki bakiyeyi göstersin eğer olmazsa toplam borç toplam alacak ve ikisini birbirinden çıkarıp bakiye işlemini yapmak istiyorum ancak seçili firma üzerindeyken görünsün firma seçili değilken görünmesin onu yapamadım.

iki tarih arası rapor kutucuklarını eklemeyi unutmuşum kusura bakma tarih aralığı rapor pdf olarak alınır mı

 

[Korhan Ayhan]

Dosyanızla sanırım yarın ilgilenebilirim..

 

[veysikulte1]

Dosyanızla sanırım yarın ilgilenebilirim..

Çok teşekkür ederim

 

[Korhan Ayhan]

Versiyon bilginizde "2007" yazıyor. Bu versiyonda PDF olarak kayıt işleminde desteklemediği için sorun yaşayabilirsiniz.

 

[veysikulte1]

Versiyon bilginizde "2007" yazıyor. Bu versiyonda PDF olarak kayıt işleminde desteklemediği için sorun yaşayabilirsiniz.

çok teşekkür ederim hocam

Pdf formatı tam istediğim gibi oldu ancak filitreledikten sonra öyle kalıyor filitreleme filitrelemeyi sıfırlamayı ve kategoriye göre veya tümünü göster olarak nasıl yapabiliriz.

 

[Korhan Ayhan]

PDF kaydet butonundaki kodu aşağıdaki gibi değiştirirseniz uygulanan filtre otomatik olarak temizlenir.

Private Sub CommandButton18_Click()
    Dim Yol As String, Dosya As String, S1 As Worksheet
    Set S1 = ActiveSheet
    Yol = ThisWorkbook.Path & Application.PathSeparator
    Dosya = Yol & Range("B1") & " - Cari Hesap Ekstresi.pdf"
    S1.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=Dosya, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
        On Error Resume Next
        If S1.AutoFilterMode Then S1.ShowAllData
        On Error GoTo 0
    MsgBox "İlgili hesap pdf formatında kayıt edilmiştir.", vbInformation
End Sub

 

[veysikulte1]

Versiyon bilginizde "2007" yazıyor. Bu versiyonda PDF olarak kayıt işleminde desteklemediği için sorun yaşayabilirsiniz.

hocam dosyayı biraz düzenledim zahmet olmasa incelerseniz çok sevinirim

 

[Korhan Ayhan]

Siz filtre uyguladığınızda ilgili sayfadaki bakiye bilgileri aynı mı kalacak, yoksa filtre edilen verilere göre yeniden mi hesaplanacak?

Benim en son eklediğim dosyada E1 ve E2 hücrelerine ALTTOPLAM fonksiyonu uygulamıştım. Eğer dediğim şekilde olacaksa ALTTOPLAM fonksiyonunu kullanmanız pratiklik kazandıracaktır.

Ekli dosyayı inceleyin. (ALTTOPLAM fonksiyonunu uygulamadım. Dilerseniz siz uygulayabilirsiniz.)

 

[veysikulte1]

Siz filtre uyguladığınızda ilgili sayfadaki bakiye bilgileri aynı mı kalacak, yoksa filtre edilen verilere göre yeniden mi hesaplanacak?

Benim en son eklediğim dosyada E1 ve E2 hücrelerine ALTTOPLAM fonksiyonu uygulamıştım. Eğer dediğim şekilde olacaksa ALTTOPLAM fonksiyonunu kullanmanız pratiklik kazandıracaktır.

Ekli dosyayı inceleyin. (ALTTOPLAM fonksiyonunu uygulamadım. Dilerseniz siz uygulayabilirsiniz.)

Verilere göre toplamını raporlasın kategoride örneğin araç gideri seçildiğinde hepsini ordaki listbox a aktarıp oradaki listede toplam harcayı gösterir

 

[veysikulte1]

Firmalar kısmına tıklandığında bir kere gösteriyor ama başka bişey eklendiğinde güncellenmiyor çıkıp girmek gerekiyor

 

[Korhan Ayhan]

Başka birşey eklemeyi nasıl yapıyor sunuz?

 

[veysikulte1]

Başka birşey eklemeyi nasıl yapıyor sunuz?

başka bişey eklemeyi derken borç veya alacak eklemeden bahsetmiştim o mesajı yazarken sizin yaptığınız dosyaya daha bakmamıştım olmuş elinize sağlık rapor al butonuna tıkladığımda error diyor

 

[Korhan Ayhan]

Sizin dosyanızdaki nesneler bende hata verdiği için deneme şansım olmadı.

DEBUG dediğinizde hangi satır sarı renk oluyor. Belirtirseniz yardımcı olmaya çalışırım.

 

[veysikulte1]

Rapor butonuna tıkladığımda Userform5.Show sarı renkte hata veriyor açılmıyor rapor kısmı.

Bir de rapor alırken listbox a aktarsın ordan pdf ye aktarsın nasıl yapabiliriz

 

[Korhan Ayhan]

Calendar nesnesi var ilgili userformda bu sebeple bende hata veriyor. Formu siz hazırlamadınız mı? Sizde neden hata veriyor.

 

[veysikulte1]

Calendar nesnesi var ilgili userformda bu sebeple bende hata veriyor. Formu siz hazırlamadınız mı? Sizde neden hata veriyor.

Formu ben hazırladım ancak eklediğim dosyada hata vermiyordu hocam

 

[Korhan Ayhan]

O zaman eklediğim dosyadaki kodları alıp kendi dosyanıza aktarıp deneyin.

 

[veysikulte1]

Hocam sorunda orda öyle yaptığımda çalışmıyor