Açıklama Kendi kurumumda kullandığım excel ve birazda vba kodu kullanılrak hazırladığım Telefon ve Adsl ödemeleri için hazırlanmş excel dosyası.

Özelllikleri;Ödeme listesi sayfasına girilen fatura listeleri otomatik sayılır ve ilgili bölüme yazılır.

Açılır Kutudan ilgili ayı seçebilirsiniz.

Fatura tutarlarını otomatik toplar

Nakit ve üzerindeki tüm bilgiler otomatik oluşturulur

Nakit üzerindeki Açıklama ve ekler bölümündeki bilgiler otomatik yazdırılır.

Soru Arkadaşlar iyi çalışmalar sitenizi yeni buldum ve incelediğim kadarıyla epey faydalı bilgi edinebileceğim bir site benim sorunum ise Sayfaya Eklediğimiz CheckBox ı hücre ile ilişkilendirme yaparak CheckBox a işaret koyduğumuzda ilişkilendirdiğimiz hücrenin içini renklendirmesi bunun gibi yada buna benzer bir makro kodu varmı varsa yardımcı olursanız memnun olurum şimdiden yardımlarınız için teşekkür ederim.

Örnek A:1 hücresinie ilişkilendireceğimiz bir CheckBox’ı işaretlediğim zaman A:1 hücresi kırmızı olacak.

Matematik Fonksiyonları

Avarage(Ortalama)

Tablonuzda seçmiş olduğunuz toplu değerlerin ortalamasını hesaplattırabilirsiniz. Şimdi Mousu sonucun hesaplanacağı hücreye tıklayın. Yukarıdaki adımları izleyeren aşağıdaki pencelerin açılmasını izleyin.

Not: Daha sonraki adımlarda fonsiyonlara sürekli bu adımlarla erişebilirsiniz.

Tamam butonuna tıkladıktan sonra karşınıza aşağıdaki ekran açılacaktır. Buradan gerekli olan değerleri seçin

Bu örnekteki tablomuzda ?Ortalama Not? değerini ?A5? hücresine yazmış olduğumuz

Oluşturacağınız makrolar içerisinde excel hücre değerelerini kullanacak, veya bulmuş olduğunuz bilgileri Excel hücrelerine göndereceksiniz. Şimdi bu işlemleri nasıl gerçekleştireceğinizi örneklerle açıklayalım.

A1 hücresine www.kod.gen.tr yazalım ve Tıkla isimli buton ekleyip aşağıdaki ?okuyucu? isimli makromuzu, oluşturduğumuz butona atayıp, hücre değerini mesaj kutusunda kullanıcıya iletelim.

Aşağıdaki kodu Alt + F11 ile vba yı açalım Insert > Module ile müdül ekleyelim ve aşağıdaki kodu yazalım.

Aşağıdaki ifade, aktif hücreden, aktif hücrenin 2 satır aşağısını ve 5 sütun sağındaki hücreleri seçecektir. Sub aralik()

Dim Aralığım AsRange

Set Aralığım =Range(“A1”)

Aralığım = “www.kod.gen.tr”

Aralığım.Font.Bold = True

Aralığım.Font.Color = vbGreen

Set Aralığım =Nothing

End Sub

Sub withkullan()

Açıklama Ayın ilk gününü otomatik yazar,

– Cumartesi-pazarlara X işareti otomatik yazar mesai günlerine ek dersi otomatik yazar

– İlköğretim Okullarındaki Müdürlere : 4-6-4-6-4 şeklinde otomatik ek ders yazar,

– Branş Öğretmenlerine: 4-3-4-3-4 şeklinde yazar,

– Sınıf Öğretmenlerine : 3-3-3-3- şeklinde otomatik yazar,

– Ayın son günü otomatik yazar,

– Ek ders saatlerini otomatik toplar ve rakamla toplamları yazar,