İleri Excel Raporlama - Sinan Dilaver

Bir For-Next döngüsü içinde If kullanarak, bir kolonda koşula uyanlara karşılık gelen satırlardan diğer kolondaki değerleri bir değişken üzerine toplamak üzere bir istek olduğunu varsayalım.  Bu amaçla hazırladığım programı, aşağıda gerekli açıklamalar ile birlikte bulabilirsiniz.  ------------------------------------------------------------------------------------------------------------------------- Sub KosulluToplam()   Olcut = Range("D13")    'Range("D13") hücresindeki bilgiyi Olcut değişkenine ata.   Min = 2   Max = Cells(Rows.Count, "A").End(xlUp).Row    'A kolonunun son satırını ilgili fonksiyonu kullanarak buldur.    Toplam = 0    'Toplam değişkeni, başlangıç değeri olarak sıfırlanıyor.     For i = Min To Max     'i indis değerini minimum değerden maksimum değere kadar artırarak Next satırına kadarki işlemleri yap.      If Range("A" & i) = Olcut Then     'Range("A" ...

Public Sub CarpimTablosu()  For r = 1 To 9   For c = 1 To 9    Cells(r, c) = r * c   Next c  Next r End Sub Bir döngü örneği olarak, çarpım tablosu hazırlayan bir prosedür yazacağız. Çarpım tablosunda satır numarası ile sütun numarasını çarptıracağız. Yukarıda bu amaçla yazdığımız prosedür bloğunu görmekteyiz.  En temel döngü For-Next döngüsüdür. For-Next döngüsü, For başlangıç satırı ile Next bitiş satırı arasına yazılan işlem satırlarından oluşmaktadır. For-Next döngüsü For satırında belirtilen değişkeni, belirtilen başlangıç değerinden itibaren belirtilen bitiş değerine kadar otomatik olarak artırır. Bu artırma, bir artım değeri belirtilmemişse birer birer olur. Artırmadaki başlangıç değeri eşit işareti ile ' to ' terimi arasındaki sayıdır. Bitiş değeri ise ' to ' teriminden sonraki sayı olmaktadır.  Örneğimizdeki r değişkeni, satır numarasına ve c değişkeni ise sütun numarasına karşılık gelmektedir. Bu değişkenlerin değerleri iç içe For-N...