Excel Tombala Uygulaması

Excel Tombala (Lotto) Şablonu

         Excel'de yapılmış bir tombala sayı çekme örneği.Butonha basıldıkça rastgele 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üş ve hazırlanmış bir uygulama .

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

Read more ...

Excel Özet Tablo Oluşturma

Excel Kodlarla Ö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.

Read more ...

EXCEL ADDRESS BOOK WITHOUT USERFORM

             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 .

The rows coloring was done with code.

Read more ...

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ı.

Read more ...

Excel Invoice Template - Invoice Number Generator

Excel Invoice Number Generator

        When the invoice template is opened, it automatically creates a .txt file named" invoicenr.txt" in the folder it is in. In the created .txt file, 2000 number is entered as an example. Then, when Excel workbook is closed and opened, it can be seen that this number is 2001 on the invoice number cell (G3 cell).

       If  user wants , can enter a different number in the .txt file . When the workbook is closed and opened, the entered number will appear it increased one by one .

VBA function codes that enable the creation of the .txt file:

Public Function GetInvoiceNr() As Long
Dim WholeLine As String, fName As String
Dim InvNr As Long
Dim CommandButton2 As CommandButton
Dim sor

Application.DisplayAlerts = False
On Error GoTo NewFile
fName = ActiveWorkbook.Path & "\invoicenr.txt"
...

...
End Function

➡️ Read More & Download Sample File

Read more ...

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

Read more ...

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.

Read more ...