Macro'yla Borç Alacak Girişi ve Mizanı

Excel Macro kullanarak bir Borç Alacak Girişi ekranı oluşturacağız. 
Bu ekranı bir menüden çağıracağız. 
Bu menü, Excel sayfasındaki dikdörtgen şekle Makro Ata seçeneğiyle atanan prosedürle görüntüleyeceğiz. 
Borç Alacak Girişi ekranından Excel satırlarına yüklenen bilgilerden her bir Ad Soyad'a ilişkin borç ve alacaklar ayrı ayrı toplanacak. Bu borç alacak dengesinden bir Mizan oluşturacağız.  

Bu işlemler ile ilgili ekran görüntüleri ve ilgili Macro program kodları aşağıda verilmiştir. Bu kodları kopyalayıp değişiklik yaparak kullanabilirsiniz. 

Aşağıda önce Macro program kodlarını ve sonra ekran görüntülerini bulabilirsiniz. 

-------------------------------------------------------------------------------------------------------------------------
Excel'deki Dikdörtgen Şekle 'Makro Ata' Seçeneğiyle Atanan Public Prosedür

Public Sub EkraniGoster()
 frmAnaMenu.Show
End Sub

-------------------------------------------------------------------------------------------------------------------------
frmAnaMenu Ekranının Private Prosedürleri


Private Sub btnBorcAlacakGirisi_Click()
frmAnaMenu.Hide
 
Range("D:D").NumberFormat = "General"
Range("E:E").NumberFormat = "General"

LastRow = Cells(Rows.Count, "B").End(xlUp).Row     'B kolonunun satır sayısı bulunmaktadır. 

frmBorcAlacakGirisi.SatirNo = LastRow     'Ekrandaki Satır No alanına, bu satır sayısı atanmaktadır. 

frmBorcAlacakGirisi.Show
End Sub


Private Sub btnCikis_Click()
 c = MsgBox("ÇIKAYIM MI?", vbQuestion + vbYesNo, "DİKKAT.")

 If c = 6 Then
    ThisWorkbook.Save
    ThisWorkbook.Close
 End If
End Sub


Private Sub btnMizanOlustur_Click()
 Range("K:O").ClearContents        'K ve O kolonları arası temizlenmektedir. 
 LastRow1 = Cells(Rows.Count, "B").End(xlUp).Row   'B kolonundaki satır sayısı bulunmaktadır. 

 Range("B1:B" & LastRow1).Copy Range("K1:K" & LastRow1)      'B kolonundan K kolonuna değerler kopyalanmaktadır. 
 Range("K1:K" & LastRow1).RemoveDuplicates 1, xlNo     'Tekrarlı satırlar temizlenmektedir. 
 
 LastRow2 = Cells(Rows.Count, "K").End(xlUp).Row    'K kolonundaki satır sayısı bulunmaktadır. 
 
 Range("K1:K" & LastRow2).Sort key1:=Range("K1:K" & LastRow2), order1:=xlAscending, Header:=xlYes      'K kolonunda ilgili satırlar Artan şekilde ve Başlığı var olarak sıralanmaktadır. 
 
 Range("L1") = "Borç Toplamı"
 Range("M1") = "Alacak Toplamı"
 Range("N1") = "Bakiye"
 Range("O1") = "Borç/Alacak"
 Range("K1:O1").Select
 With Selection
  .Font.Bold = True
  .ColumnWidth = 15
 End With
 Range("A1").Select
 
 For r = 2 To LastRow2   'K kolonundaki 2. satırdan son satıra kadar döngü çalıştırılmaktadır. 
  Cells(r, 12) = WorksheetFunction.SumIf(Range("B1:B" & LastRow1), Cells(r, 11), Range("D1:D" & LastRow1))      'ETopla fonksiyonu kullanılarak B kolonunda Cells(r, 11) hücresindeki değer araştırılıp D kolonunda toplama yapılmaktadır.  
  Cells(r, 13) = WorksheetFunction.SumIf(Range("B1:B" & LastRow1), Cells(r, 11), Range("E1:E" & LastRow1))      'ETopla fonksiyonu kullanılarak B kolonunda Cells(r, 11) hücresindeki değer araştırılıp E kolonunda toplama yapılmaktadır.  
  
  If Cells(r, 12) > Cells(r, 13) Then         'Borç alacaktan büyükse
       Cells(r, 14) = Cells(r, 12) - Cells(r, 13)      'Borç toplamından alacak toplamı çıkarılmaktadır ve Bakiye hesaplanmaktadır. 
       Cells(r, 15) = "Borçlu"      'B/A = Borçlu atanmaktadır.
  ElseIf Cells(r, 12) < Cells(r, 13) Then      'Alacak borçtan büyükse 
       Cells(r, 14) = Cells(r, 13) - Cells(r, 12)       'Alacak toplamından borç toplamı çıkarılmaktadır ve Bakiye hesaplanmaktadır. 
       Cells(r, 15) = "Alacaklı"    'B/A = Alacaklı atanmaktadır.
      Else    'Hiçbiri değilse 
       Cells(r, 14) = 0       'Bakiye = 0 atanmaktadır. 
       Cells(r, 15) = ""      'B/A = "" atanmaktadır. 
  End If
 Next r
End Sub


--------------------------------------------------------------------------------------------------------------------

frmBorcAlacakGirisi Ekranının Private Prosedürleri

Private Sub btnKaydet_Click()
 If frmBorcAlacakGirisi.SatirNo = 0 Then frmBorcAlacakGirisi.SatirNo = 1
 
 frmBorcAlacakGirisi.SatirNo = frmBorcAlacakGirisi.SatirNo + 1
 r = frmBorcAlacakGirisi.SatirNo
 
 If frmBorcAlacakGirisi.Borc = "" Then frmBorcAlacakGirisi.Borc = 0
 If frmBorcAlacakGirisi.Alacak = "" Then frmBorcAlacakGirisi.Alacak = 0
 
 'Formdaki alanlarda bulunan değerler ilgili hücrelere atanmaktadır. 
 Cells(r, 1) = frmBorcAlacakGirisi.Tarih
 Cells(r, 2) = frmBorcAlacakGirisi.AdiSoyadi
 Cells(r, 3) = frmBorcAlacakGirisi.Aciklama
 Cells(r, 4) = Format(frmBorcAlacakGirisi.Borc, "0")
 Cells(r, 5) = Format(frmBorcAlacakGirisi.Alacak, "0")
End Sub


Private Sub btnKapat_click()
 frmBorcAlacakGirisi.Hide
 frmAnaMenu.Show
End Sub

-------------------------------------------------------------------------------------------------------------------------

Menü Düğmesi





















Ana Menü Ekranı





















Borç Alacak Girişi 





















Borç Alacak Girişi - Girilen Bilgiler 





















Menüdeki Mizan Oluştur Düğmesine Basılması





















Menüyü Göster Kodlaması 





















Menü Formu Oluşturulması





















frmAnaMenu Düğmeleri Kodlaması





















frmBorcAlacakGirisi Formu Oluşturulması





















frmBorcAlacakGirisi Düğmeleri Kodlaması





















Menüdeki Çıkış Düğmesine Basıldığında




















Formlardaki düğmeleri oluştururken Toolbox üzerinden Command Button isimli düğmeyi tıklıyoruz. 
Formda bir düğme oluşmaktadır. 
Oluşan düğmenin Properties çerçevesindeki Name özelliğinde, butona programda kullanılacak bir isim veriyoruz. 
Caption özelliğine düğmenin ekranda görünecek ismini yazıyoruz. 
Oluşan düğmeyi tıkladığınızda, formun kod kısmına, "<DüğmeAdı>_Click()" şeklinde ismi olan, Private özellikli boş prosedür eklenir. 
Bu boş prosedür bloklarının içine ilgili kodlar yazılır. 

Formlardaki bilgi giriş alanlarını oluşturmak için, Toolbox üzerindeki Text Box isimli düğmeyi tıklıyoruz. 
Oluşan metin kutusuna Properties çerçevesindeki Name özelliğinde, metin kutusuna programda kullanılacak bir isim veriyoruz. 
Metin kutusunu, bilginin girilebileceği şekilde boyutlandırıyoruz. 

Metin kutularının sol tarafına etiket eklemek için, Toolbox üzerindeki Label isimli düğmeyi tıklıyoruz. 
Oluşan etikete Properties çerçevesindeki Name özelliğinde, etikete programda kullanılacak bir isim veriyoruz. 
Caption özelliğine etiketin metin kutusuna ilişkin ekranda görünecek ismini yazıyoruz. 

Bu blogdaki popüler yayınlar

Power BI'da Yeni Sütun Eklemek

Resim
Power BI'da yeni sütun eklemek için ilgili tabloyu seçin, üst menüdeki Yeni Sütun düğmesini tıklayın. Açılan formül giriş alanında eşittir işaretinin sağ tarafına formülü yazın, eşitin sol tarafına ise yeni sütunun adını yazın.  Aşağıdaki örnekte bir başka tabloya Marka tablosuna bağlantı yapılıyor. Bu bağlantı tablolar arasındaki ilişki tarafından sağlanmaktadır. 
Devamı

Power BI Kullanımına Giriş

Resim
Power BI, değişik kaynaklardaki veriler üzerinden raporlar ve grafikler oluşturan bir araçtır. Veri kaynakları, veritabanı, Excel, text dosya, XML ve diğerleridir.  Power BI programını Microsoft'un sitesinden indirmek için gerekli bağlantı:  https://www.microsoft.com/en-us/download/details.aspx?id=58494   Bu programı çalıştırılınca, ilk gelen sarı renkli ekranı kapatın. Bu sarı ekranı kapatınca aracın orta bölmesinde bir rapor oluşturma bölgesi bulunmaktadır.  Programa önce verileri yüklüyoruz veya verilere bağlantı kuruyoruz. Sonra sağdaki Görsel Öğeler bölmesinden bir Öge simgesini tıklıyoruz. Görsel Öğeler bölmesinin alt kısmındaki Alanlar isimli bölümde, bu görsel ögeye bağlı olarak, kullanılabilecek ayar alanları görünmektedir. Verileri içeri aktarınca veya bağlantı kurunca verilerin tabloları ve tablo alanları, ekranın en sağındaki Alanlar isimli bölmede görünmektedir.   Verileri içeri aktarınca aracın sol dikey menüsünde 3 tane, verilere bağlantı k...
Devamı

Power BI Üzerinde Fonksiyon Oluşturma ve Kullanma

Resim
Daha önce Excel'de fonksiyon oluşturma konularını işlemiştim. Bir veya daha fazla parametre değişkenine dışarıdan değer alıp, fonksiyon bünyesinde işlemler yapılıp, amaçlanan değişkene değer üretilip bu değer fonksiyonu çağırana bir çıktı olarak döndürülmekteydi.  Power BI üzerinde fonksiyon oluşturmak için önce Giriş sekmesindeki Veri Dönüştürme düğmesine bağlı seçeneklerden Veri Dönüştürme  seçeneğine tıklayarak Power Query  ekranına geçiyoruz.  Açılan ekranda sol düşey menüde bir tablo ismi üzerinde farenin sağ düğmesine basıyoruz ve İşlev Oluştur düğmesine basıyoruz.  Fonksiyon Oluşturma 1 Açılan ekranda fonksiyon oluşturma satırında gelen tüm kodlamayı silin ve örnek olarak bizim daha önceki örneklerimizdeki fonksiyona birebir olan şu kodu yazın:  = (KarneNotu as number) => let Kaynak = if KarneNotu >= 50 then "Geçti" else "Kaldı" in Kaynak Üstteki menüde bulunan Gelişmiş Düzenleyici  düğmesine basarsanız yazdığınız kodu aşağıdaki gibi bi...
Devamı

Kümülatif Toplam

Resim
Kümülatif Toplam için iki ayrı formül veriyorum.  Formül-1. Bulunduğumuz satırdaki toplanacak değere üst satırdaki toplam değerinin eklenmesiyle =B2 =C2+B3 =C3+B4 =C4+B5 =C5+B6 =C6+B7 =C7+B8 =C8+B9 =C9+B10 =C10+B11 =C11+B12 =C12+B13 Formül-2. Aralık bazında toplama işlemi yapan TOPLA(aralık) fonksiyonundaki aralığın başlangıç hücresini sabit yapıp, bitiş hücresini serbest bırakılmasıyla =TOPLA($B$2:B2) =TOPLA($B$2:B3) =TOPLA($B$2:B4) =TOPLA($B$2:B5) =TOPLA($B$2:B6) =TOPLA($B$2:B7) =TOPLA($B$2:B8) =TOPLA($B$2:B9) =TOPLA($B$2:B10) =TOPLA($B$2:B11) =TOPLA($B$2:B12) =TOPLA($B$2:B13)
Devamı

Ağırlıklı Ortalama Hesabı

Resim
Ağırlıklı ortalama hesabında, matematiksel olarak her bir değer ağırlığıyla çarpılır ve çarpımlar toplanır. Bulunan toplam, ağırlıklar toplamına bölünür.  Örnek olarak A2, ..., A6 hücrelerinde değerler, B2, ..., B6 hücrelerinde ağırlıklar olsun.  Ağırlıklı Ortalaması =Topla.Çarpım(A2:A6;B2:B6)/Topla(B2:B6) 
Devamı

SQL'de Group By Yaparak Rapor Oluşturmak

Resim
Rapor oluşturmadan önce, birden fazla tablodan veri getirmek ile ilgili farklı bir veritabanından listeleme yapacağız. Daha sonra bu veritabanından getirdiğimiz bilgileri gruplama yaparak bilgilerin rapor oluşturacağız.  Satislar isimli bir ana tablomuz bulunup, bu tablomuzda "hangi bayinin hangi üründen hangi tarihte kaç liradan ne kadar satmıştır" bilgileri yer almaktadır. Sorguda kullanacağımız ana tablo Satislar, yardımcı tablolar ise Bayiler ve Urunler tabloları olacak.  Bu yardımcı tablolardan Bayiler tablosunun yardımcı tablosu Bolgeler tablosu olup, Urunler tablosunun yardımcı tabloları ise UrunCinsleri ve Markalar tablolarıdır.  Bizim burada yardımcı tablo diye adlandırdıklarımız, bir tabloya Foreign Key ile bağlanmış Referans tablolarıdır. Normal anlatım bağlamında ve kavramsal olması için yardımcı tablo terimini kullanıyorum.  Daha önce anlattığım gibi, bir tablo ile yardımcı (referans) tablo arasında ortak bir kolon olması gereklidir. Join  yaparken,...
Devamı

SQL'de Birden Fazla Tablodan Listeleme Yapmak

Resim
Excel DüşeyAra (VLookUp) fonksiyonlarında olduğu gibi, veritabanı tabloları arasında ilişki kurup liste veya rapor oluşturmak istiyorum.  Ogrenciler isimli bir ana tablom ve Kisiler isimli bir yardımcı tablom olsun. İki tablo arasında ortak kolonum KisiID kolonudur. Bu ortak kolon aracılığıyla Kisiler tablosundan KisiAdi ve KisiSoyadi bilgilerini getirteceğim. Ana tablom olan Ogrenciler tablosundan da OgrenciNo bilgisini görmek istiyorum. Önce Select cümlemizi görelim:  Select  OgrenciNo, KisiAdi, KisiSoyadi  from Ogrenciler o  left join Kisiler k on k.KisiID = o.KisiID  Yukarıda yazdıklarımızın ne olduklarını anlayalım:  Select cümlesinde bu amaçla tablo olarak önce ana tablomu yazıyorum.  Yazış sırama göre ana tablo solda kaldığı için bağlanırken " soldakini esas al " anlamında Left Join  yapıyorum.  Left Join  terimlerini yazdıktan sonra hangi tabloya bağlanacaksam o tablonun adını belirtiyorum.  Tablo adından sonra hangi ko...
Devamı

ETarihli Fonksiyonu

Resim
Excel'de YılOran fonksiyonundan ayrıca Yıl farkı değerini ve aynı zamanda Ay ve Gün farkı değerlerini de hesaplayan ETARİHLİ fonksiyonunun örneklerini aşağıdaki görselde bulabilirsiniz.  3 parametreli olan bu fonksiyonun 1. parametresi Başlangıç Tarihi, ikinci parametresi ise Bitiş Tarihi'dir.  Fonksiyonun 3. parametresi, Gün, Ay, Yıl seçimi içindir. Bu seçimde parametre değerleri İngilizce karşılığı kelimelerin ilk harfleridir. Yani gün için D, ay için M, yıl için Y girilir.  Bu fonksiyon, ismini yazmaya başlayınca ismi kendiliğinden tamamlanmıyor ve parametreleri için de bir hint (ipucu) görünmüyor. Dolayısıyla siz önceden bilip giriş yapacaksınız.  Etarihli fonksiyonunun İngilizcesi  Datedif  fonksiyonudur. 
Devamı

Bir Ürünün En Son Tarihli Fiyatının Bulunması

Resim
Tarihe göre sıralı bir listeden belirli bir ürünün en son tarihli fiyatını ve tarihini getiren cümleleri aşağıda bulabilirsiniz.  Son Fiyat Cümlesi: =ARA(2;1/($A$2:$A$9=E12);$C$2:$C$9) Fiyat Tarihi Cümlesi: =ARA(2;1/($A$2:$A$9=E12);$B$2:$B$9)  
Devamı