Ev Kitap Takip Programı

[mapman]

Excelde daha yeni olduğum içi bu henüz 2. uygulamam. Excel sitelerindeki arkadaşların takıldığım yerklerdeki yardımları ile yavaş yavaş kendimizi geliştiriyoruz.
Evde ve iş yerinde okuduğum kitapları takip amaçlı oluşturduğum bu uygulama bana da excel adına yeni deneyimler kazandırdı.Özellikle userform ve vba üzerine daha çok düşmeye başladım.Sağ üst kısma eklediğim istatistiki bilgilere dikkat edecek olursak çok fazla kitap okumalıyız.Umarım hepimizin hayatı bir kitabın bilgi yüklü yaprakları gibi geçer.

Aşağıda son şeklini eklediğim uygulama hakkındaki görüş ve yapıcı önerilerinizi bekliyorum.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Özgür Bey, hoş geldiniz.

"Ayağınızın tozuyla" yaptığınız paylaşım için teşekkür ederim. 

Örneği en kısa sürede inceleyip görüşlerimi belirtirim.

Keyifli paylaşımlar.

[mapman]

Teşekkürler  Bülent Bey.Umarım incelemeniz sonucu belirteceğiniz görüşleriniz olumlu olur.Benim gibi kitap okumayı sevenlere de bu uygulama fayda sağlar.Bir yılda  bir Japonun 8,bir İsviçrelinin 10,bir Fransızın 7,bir Almanın 6,bir Amerikalının 4 kitap okuduğu bir ortamda bir Türkün 0,125 kitap okur durumda olduğunun istatistik olarak belirlenmesi üzücü. Görüşlerinize sevinirim.İyi günler.

[Bülent Öztürk]

Teşekkürler  Bülent Bey.Umarım incelemeniz sonucu belirteceğiniz görüşleriniz olumlu olur.

Olumlu görüş zaten epey olacak. Ben size olumsuz olanları söyleyeyim; 

Private Sub UserForm_Activate()
Do
    Label23.Caption = Format(Now, "dd.mm.yyyy  - hh:mm:ss")
DoEvents
Loop
End Sub

- Formda tarih ve saat için sürekli bir döngüye gerek yok bence. İlla göstermek isterseniz, onun yerine StatusBar kullanmanızı tavsiye ederim.

- Form açıldığında ComboBox1'e kitap isimlerini aldırmanız yararlı olabilir.
- Büyük harf - küçük harf duyarlılığı ve "like" tabiri ile arama yapılabilmesine olaranak sağlayan bir arama şekli ilave edilmesi, kullanışlılığını arttıracaktır.

Emeğiniz ve paylaşımınız için teşekkür ederim.

[celikci]

Paylaşımınız için tşk ler elinize emeğinize sağlık

[assenucler]

İyi geceler ve bayramlar...


Sayın Bülent Öztürk'ün önerileri doğrultusunda dosyanın son şeklini sitemize yükleyebilir misiniz, sayın mapman?

[mapman]

Sayın assenucler cevabınızı az önce gördüm.Kamuda  olduğumdan yoğun çalışıyorum.Ancak cevap yazabildim.Excel VBA da oldukça acemiyim.Yeni yeni kendimi geliştiriyorum.Ama oldukça eğlenceli ve zevkli bir olay halini aldı benim için.Ev Kitap Takip Programını yeniliyordum zaman buldukça ki, sizin cevabi yazınızı gördüm.Hem görsel olarak hem de kod kısmını oldukça değiştirdim.Sanırım bir kaç gün içinde son düzenlemesi ile ekleyebilirim.Mesaiye az önce başladığım için herkese iyi çalışmalar dileklerimle yazımı sonlandırayım.

[assenucler]

Sayın mapman;

İnceliğiniz ve yanıtınız için teşekkür ederim.

Güzel bir çalışma her zaman beklemeye değerdir. Çalışmanız bitinceye kadar beklerim..

Başarılar...

[mapman]

Sayın assenucler çalışmamım son halini ekliyorum.Olumlu olumsuz yanıtınız beni sevindirecektir.Biraz geç olmuş olabilir.Ama programlamayı fazla bilmediğim ve örnek çalışmalar üzerinde kendimi geliştirmeye çalıştığım için ancak yayınlayabildim.Bütün kitap kurtlarının işine yaraması dileğiyle.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[celikci]

Eline emeğine sağlık teşekkü ederim.

[mapman]

Eline emeğine sağlık teşekkü ederim.

Ne demek umarım faydalı olmuştur.İlk denemeye göre bu çalışmada 557 adet yayınevi ismi listeye eklendi.Ayrıca 2212 adet dünya çapında tanınmış yazar ismi eklendi.Böylece kolay bir şekilde yazar ve yayınevi listesine ulaşabileceksiniz.İstatistik bölümü ile de hangi kitap türünden ne kadar okuduğunuzun ve kaç sayfa okuduğunuz ile kaç cilt kitap okuduğunuzun bilgilerine erişebileceksiniz.Bir çok yerde fazlaca hatam olabileceğini baştan  kabul ediyorum.Çünkü kodlamada yeni yeni kendimi geliştiriyorum.Ama umarım hepinize faydalı olur.

[1Al2Ver]

Merhaba,

Paylaşım için sayın mapman'a,  programın gelişimi için katkıları olanlara da teşekkür ederim.