İleri Excel Raporlama - Sinan Dilaver

Excel'de ardışık sayfalarda bulunan her bir Şirketin Hesap No bazındaki Tutarlarını, bir sayfada konsolide eden Macro programını aşağıda bulabilirsiniz.  Her bir sayfada Şirket dışında başka bir birim de olabilir. Hesap No dışında başka kod da kullanılabilir. Tutar yerine Miktar gibi toplama işlemi yapılabilen başka bir değişken de olabilir.  Bu amaçla Konsolidasyon sayfasında örnekteki gibi bir şekil ekleyin, şeklin içine bir etiket yazın. Bu şekle aşağıdaki Konsolidasyon makrosunu atayın.  Aşağıdaki görüntü, bir örnek Şirket sayfası görüntüsüdür.  Bir parametreler sayfası oluşturun. Bu parametreler sayfasının A kolonunda satırlara aşağıdaki Parametreler sayfasındaki isimleri yazın. Bu isimlere karşılık resimdeki gibi kendi veri sayfanıza uygun değerler verin.  Ölçüt Kolonu, konsolidasyon sayfasındaki Hesap No kolonudur.  Kontrol Kolonu, şirket sayfalarındaki Hesap No kolonudur.  Değer Kolonu, şirket sayfalarındaki Tutar kolonudur.  Sonuç Kolonu,...

Ardışık sayfalarda topla.çarpım yaparak sonucunu getiren bir fonksiyon aşağıdadır.  Aşağıdaki satırları Excel Macro kısmına yapıştırdıktan sonra oluşan yeşil renkli yazıları okuyun.  Bu fonksiyon, tüm sayfalarda aynı iki kolonda bulunan değerleri aralarında çarpmakta, çarpımların sonucunu sayfalar toplamı olarak toplamaktadır.  '--------------------------------------------------------------------------------------------------------------- 'Aşağıdaki prosedürün çalışması için, içindeki bir satır üzerine gelip en az bir kere F5 yapın. Private Sub RegisterMyFunction()   Application.MacroOptions _     Macro:="ArdisikSayfalardaToplaCarpim", _     Description:="Ardışık sayfalardaki aynı hücrelerde başlayan ikişer dizi üyeleri üzerinde topla-çarpım yapar ve sonuçlarını toplar.", _     Category:="Kullanıcı Tanımlı", _     ArgumentDescriptions:=Array( _         "Ardışık Birinci Sayfa", _        ...

 Ardışık olan sayfalardaki aynı adresli hücrelerinde bulunan değerleri toplatmak istediğimizde aşağıdaki basit formülü kullanabiliriz.  =TOPLA(Üsküdar:Bakırköy!B2)  Ardışık olan sayfalardaki aynı adres aralığındaki hücrelerde bulunan değerleri toplatmak istediğimizde de aşağıdaki basit formülü kullanabiliriz.  =TOPLA(Üsküdar:Bakırköy!B2:F4) 

Bir metin içindeki özel karaktere, örneğin "-" karakterine göre metinden bilgi alma:   Metin A2 hücresindeyse,  Tire Karakterinden Öncekileri Alma: =SOLDAN(A2;BUL("-";A2)-1) Tire Karakterinden Sonrakileri Almak İçin:  =SAĞDAN(A2;UZUNLUK(A2)-BUL("-";A2)) A2 hücresindeki metin "KLM-25" olsun.  =SOLDAN(A2;BUL("-";A2)-1) işlemi, "KLM" bilgisini,  =SAĞDAN(A2;UZUNLUK(A2)-BUL("-";A2)) işlemi ise, "25" bilgisini alır. 

Belli tarihteki tek dövizin ve tüm dövizlerin kurlarının getirtilmesi ile ilgili Macro prosedürlerini aşağıda bulabilirsiniz.  Prosedürler, girilen tarihin hafta içi olup olmadığını kontrol etmektedir. 

Aşağıdaki prosedür, sırasıyla D, E, C disklerinin varlığını kontrol ediyor. Öncelikle hangisi varsa o diske yedekleme yapıyor. Yedekleme dosyası adını, Tarih ve Saati kullanarak oluşturuyor. Buradaki örneğimizde prosedürün çalışmasını bir düğmeye bağlı yapıyoruz. Başka türlü de bu prosedür çalıştırılabilir.  ------------------------------------------------------------------------------------------------------------------------ Option Explicit Sub ExcelDosyasiniYedekle()     Dim Disk, Dosya, Uzanti, YedekDosyaAdi, KayitYeri, Yer As String, i As Integer     Dim DosyaSistemi As Object          Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")     If DosyaSistemi.DriveExists("D:\") = True Then      Disk = "D"     Else      If DosyaSistemi.DriveExists("E:\") = True Then       Disk = "E"      Else       If DosyaSistemi.DriveExists("C:\") ...

Excel'de bir dosya veya fatura ile ilgili alınan ödemelerin listelenmesi ile ilgili Macro kodu aşağıdadır.  Bu kod, ilgili sayfanın kod kısmına yazılıyor.  ------------------------- ------------------------- ------------------------- ------------------------- -------------------- Private Sub Worksheet_Change(ByVal Target As Range)  If Target.Address = "$B$1" Then       'B1 hücresi değiştiyse  'Ödemeler sayfasında son satır no bulunuyor.    n = WorksheetFunction.CountA(Sheets("Ödemeler").Range("A:A")) + 1        c = 5   i = 14   imax = 50   sayac = 1   Aranan = Range("B1")      ActiveSheet.Unprotect        'Sayfanın koruması kaldırılıyor.   Range(Cells(1, c - 1), Cells(imax, c + 2)).Clear   Cells(i - 2, c) = Aranan & " Ödemeleri"   Cells(i - 1, c + 0) = "Ödeme Tarihi"   Cells(i - 1, c + 1) = "Makbuz No"   Cells(i - 1, c + 2) = "Ödeme Tu...