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.