İnterest Calculation Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Sub hesapla() k = 4 Do While Cells(k, 7) "" tutar = Cells(k, 7) bastar = Cells(k, 8) sontar = Cells(k, 9) tmpbastar = bastar j = 4 faiz = 0 devam = True Do Until devam = False faiztar = Cells(j, 3) If Cells(j, 3) = "" Or faiztar > sontar Then faiztar = sontar: devam = False If bastar > faiztar Then GoTo 20 faizor = Cells(j - 1, 4) faiz = faiz + ((faiztar - tmpbastar) * tutar * faizor) / 36500 tmpbastar = faiztar 20 j = j + 1 Loop Cells(k, 10) = faiz k = k + 1: faiz = 0 Loop End Sub Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 interest calculation 2 excel operators hk 3 convert 4 cell-related codes 5 Hide or show pivot table fields according to a specific criterion 6 specify partition, list how many files you have 7 sheet / page address and set column width 8 vat calculation 9 vat calculation 2 10 calculation as soon as you type textbox 11 mouse click calculation 12 sheet / page names in alphabetical order 13 Selecting only numbers in the selected field (selecting only manually entered numbers without formulas) 14 calculator on / off 15 Calculate the sum of cells with only a certain cell color 16 The operation of different macros in response to the data entered in the cell in column 5 17 It only enters numbers (0 when the text is entered) in A1 and collects continuously in A1 18 parenthesis the number example: 3- = (3) the line next to the number is required 19 give background color by number on active sheet / page2 20 network printer also prints