Wednesday, December 31, 2014

Excel Tombala Uygulaması

          Excelde yapılmış bir tombala örneğimiz var.Butona bastıkça rasgele sayılar geliyor ve seçtiğiniz kartla karşılaştırılıyor.Numara kartta varsa arka planı gri renk haline geliyor. Güzel düşünülmüş bir uygulama gerçekten.



cherkesh.sitemynet.com a teşekkürler.

Wednesday, December 24, 2014

Özet Tablo Oluşturma

           Excel örneklerine devam ediyoruz.Bu çalışmayı faturaları aylara göre kayıt ettikten sonra yaptım.Ay içinde süzme özelliği sayesinde bir firmaya ne kadar fatura kesildiği hesaplanabilmekte.

           İlk sayfadaki butona basıldığında ise ,bütün sayfalardaki firmaları tek sayfada toplar ve gruplandırır.Aynı zamanda grupların altında miktar toplamlarını hesaplar .

           En altta da bütün firma gruplarının toplamını verir.



Daha önce yazmıştım yukardaki linke tıklayınca sağ üst köşede 5 den geriye sayan bir sayac çıkmakta.Sıfırdan sonra Reklamı Geç butonu çıkıyor.Ona basınca dosyayı yüklediğim alana ulaşıyorsunuz.

Görüşmek üzere ,yorumlarınızı bekliyorum bu arada.

Sunday, December 21, 2014

EXCEL ADDRESS BOOK

             Simple and Colorful Address Book , At The Same Tıme Easy-to-Use Fihrist.
– There are search features by name and by firm .
– There is “go to the last row buton” to add a new person .
Rows coloring was done with code.

EXCEL TELEFON FİHRİSTİ

           Form açılmadan direkt excel sayfasına kayıt yapıp ,bilgileri girebileceğiniz basit bir fihrist uygulaması.Fihrist harici başka uygulamalar için de veri tabanı olarak kullanılabilir.

- Sol tarafı dondurdum ,kolaylık olması açısından.
- Rehberde arama yapabilme özelliği var.
- Yeni kayıt yapmak için boş satıra gitme özelliği de var.
- Satır renklendirmesi Vba kodlar ile yapıldı.



Tuesday, July 1, 2014

Excel Invoice Template - Invoice Number Generator

New my auto invoice number example :
This is auto invoice generator.
Auto numbering with txt
Auto total
Price List


Tuesday, June 3, 2014

Protect Formulas in Cells

To protect formulas in cells:
When we create a spreadsheet, most of us need to use formulas of some sort. Sometimes, however, you might not want other users to tamper/delete/overtype any formulas you included on your spreadsheet. The easy way of barring people from playing with your formulas is to protect your formulas with vba.
You can use the Worksheet Change function to protect the formulas in the cells.


Example code :    Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$21" Then
Target.Formula = "=E21*F21"
ElseIf Target.Address = "$G$22" Then
Target.Formula = "=E22*F22"
ElseIf Target.Address = "$G$23" Then
Target.Formula = "=E23*F23"

End If
End Sub

or

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("K11")) Is Nothing Then
Target.Formula = "=G11*H11"
ElseIf Not Intersect(Target, Range("k12")) Is Nothing Then
Target.Formula = "=G12*H12"
ElseIf Not Intersect(Target, Range("k13")) Is Nothing Then
Target.Formula = "=G13*H13"
ElseIf Not Intersect(Target, Range("k14")) Is Nothing Then
Target.Formula = "=G14*H14"
ElseIf Not Intersect(Target, Range("k15")) Is Nothing Then
Target.Formula = "=G15*H15"
ElseIf Not Intersect(Target, Range("k16")) Is Nothing Then
Target.Formula = "=G16*H16"

End If
End Sub

Wednesday, May 28, 2014

FORMÜL KORUMA

Formül içeren hücrelerin içeriği silindiğinde formül de silinir. Bu da özellikle fatura vs. uygulamalarda bayağı bir sıkıntı oluşturur.
Hücrenin formülü vardır , hücrenin değerini sileyim derken formülü de siliveririz.
Bu konuda Worksheet_change özelliğini kullanarak hücrenin formülünü koruma altına alabiliriz.
Örneğin ;  

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("K11")) Is Nothing Then
Target.Formula = "=G11*H11"
ElseIf Not Intersect(Target, Range("k12")) Is Nothing Then
Target.Formula = "=G12*H12"
ElseIf Not Intersect(Target, Range("k13")) Is Nothing Then
Target.Formula = "=G13*H13"
ElseIf Not Intersect(Target, Range("k14")) Is Nothing Then
Target.Formula = "=G14*H14"
ElseIf Not Intersect(Target, Range("k15")) Is Nothing Then
Target.Formula = "=G15*H15"
ElseIf Not Intersect(Target, Range("k16")) Is Nothing Then
Target.Formula = "=G16*H16"
ElseIf Not Intersect(Target, Range("k35")) Is Nothing Then
Target.Formula = "=G35*H35"
ElseIf Not Intersect(Target, Range("k36")) Is Nothing Then
Target.Formula = "=G36*H36"
ElseIf Not Intersect(Target, Range("k37")) Is Nothing Then
Target.Formula = "=G37*H37"
ElseIf Not Intersect(Target, Range("k38")) Is Nothing Then
Target.Formula = "=G38*H38"
ElseIf Not Intersect(Target, Range("k39")) Is Nothing Then
Target.Formula = "=G39*H39"
ElseIf Not Intersect(Target, Range("k40")) Is Nothing Then
Target.Formula = "=G40*H40"
End If
End Sub

şeklinde olabilir.Yukarıdaki örnekte K11-K40 gibi hücrelerin değeri G,H sutunlarının çarpımı ile edilmiş ve bu formülün değişmesi engellenmiş .
Değişmesini istemediğiniz formüllerin olduğu sayfanın kod kısmına yukarıdaki şekilde ekleyebilirsiniz.

Tuesday, May 27, 2014

YENİ STOKLU FATURA ŞEKLİ

Bu yeni fatura formatı daha fonksiyonel oldu.

Firma ismini yazarken açılan kutu sayesinde önceden kaydettiğiniz firmayı Firmalar sayfasından seçebiliyorsunuz,seçilen firmanın adresi ve vergi dairesi otomatik olarak yükleniyor.Yine aynı şekilde ürün veya hizmet kısmına yazacak iken açılan kutudan ürünü seçtiğinizde birim fiyatını Ürünler sayfasından otomatik almaktadır.

Ben örnek olsun diye sembolik firma isimleri ve ürün fiyatları girdim.Sizin yapmanız gereken Firmalar sayfasına gelir faturası kestiğiniz müşterilerinizin adını ,adresini ve vergi dairesini ,Ürünler sayfasına da sizin ürünlerinizin ve hizmetlerinizin fiyatlarını girmeniz.
Her iki sayfa da ürün giriş için üzerinde artı işaretli resme tıklarsanız sizi yeni kayıt için boş hücreye götürecektir.Kayıt için disket şeklindeki resme tıklayabilirsiniz, kayıtları harf sırasına göre düzenleyip kaydeder.

Font büyüklüğünü kendinize göre ayarlayabilirsiniz.
Link Yenilendi :

Buradan İndirebilirsiniz

Linkde önce sağ üst tarafta saniyeler saymaya başlıyor bitince Reklamı Geç e tıklayıp dosyayı yüklediğim upload sitesine gidiyorsunuz.

Umarım işinize yarar.

Görüşmek dileğiyle...


EXCEL FATURA ÖRNEKLERİ

       Firmanın basılı faturalarına göre hücrelerin yeri ayarlanabilir.Eski işyerim için hazırlamıştım bu taslağı.

Dosya , çalıştığı bilgisayardan tarih ve saat (bildiğim kadarı ile şirket faturalarında saat bilgisi de istenmektedir)  bilgilerini bilgisayardan otomatik alır.

Girilen miktarı altta toplar ve KDV 'sini hesaplayarak genel toplamı verir.
Toplam miktarını sayıdan TL ‘ye yazı olarak kendisi çevirir.

Dosyanın çalışması için Excel Makro’nun güvenlik seviyesi düşükte olması gerekir.Yani Araçlar_Makro kısmında Güvenlik ‘e girilip orada ki Düşük seçeneği seçili olmalıdır.

Aşağıdaki linkten indirebilirsiniz :
Link Yenilendi :

Buradan İndirebilirsiniz 

Not : Linkde önce sağ üst tarafta kırmızı çarpı işareti çıkar, çarpı işaretine tıkladığınızda dosyayı yüklediğim Dropbox sitesine gidiyorsunuz.Dropbox a kayıt olmanız gerekmiyor ,üstte Download linkine bastığınızda direkt indirebilirsiniz.