\n <\/td>\n | Sub<\/span> borchesap()<\/span><\/td>\n <\/tr>\n \n <\/td>\n | '<\/span><\/td>\n <\/tr>\n \n <\/td>\n | ' borchesap Makro<\/span><\/td>\n <\/tr>\n \n <\/td>\n | '<\/span><\/td>\n <\/tr>\n \n <\/td>\n | ' Klavye Kısayolu: Ctrl+b<\/span><\/td>\n <\/tr>\n \n <\/td>\n | '<\/span><\/td>\n <\/tr>\n \n <\/td>\n | For<\/span> Each<\/span> ws<\/span> In<\/span> Worksheets<\/span><\/td>\n <\/tr>\n \n <\/td>\n | \n<\/td>\n <\/tr>\n | \n <\/td>\n | ' Worksheeti sec<\/span><\/td>\n <\/tr>\n \n <\/td>\n | ws.Select<\/span><\/td>\n <\/tr>\n \n <\/td>\n | ' İstemis oldugun J51'i sec<\/span><\/td>\n <\/tr>\n \n <\/td>\n | <\/td>\n <\/tr>\n | \n <\/td>\n | ws.Range(<\/span>"J51"<\/span>).Select<\/span><\/td>\n <\/tr>\n \n <\/td>\n | ' Secili yere =ETOPLA(I4:I50;"<01.01.2013";K4:K50) formulunu yaz<\/span><\/td>\n <\/tr>\n \n <\/td>\n | ActiveCell.FormulaR1C1<\/span> =<\/span> _<\/span><\/td>\n <\/tr>\n \n <\/td>\n | "=SUMIF(R[-47]C[-1]:R[-1]C[-1],""<01.01.2013"",R[-47]C[1]:R[-1]C[1])"<\/span><\/td>\n <\/tr>\n \n <\/td>\n | <\/td>\n <\/tr>\n | \n <\/td>\n | ' Sonra K51'i sec secili yere =ETOPLA(M4:M50;"<01.01.2013";O4:O50) formulunu yaz<\/span><\/td>\n <\/tr>\n \n <\/td>\n | ws.Range(<\/span>"K51"<\/span>).Select<\/span><\/td>\n <\/tr>\n \n <\/td>\n | <\/td>\n <\/tr>\n | \n <\/td>\n | ActiveCell.FormulaR1C1<\/span> =<\/span> _<\/span><\/td>\n <\/tr>\n \n <\/td>\n | "=SUMIF(R[-47]C[2]:R[-1]C[2],""<01.01.2013"",R[-47]C[4]:R[-1]C[4])"<\/span><\/td>\n <\/tr>\n \n <\/td>\n | <\/td>\n <\/tr>\n | \n <\/td>\n | ' Son olarak L51 i sec fark al =K51-L51<\/span><\/td>\n <\/tr>\n \n <\/td>\n | ws.Range(<\/span>"L51"<\/span>).Select<\/span><\/td>\n <\/tr>\n \n <\/td>\n | \n<\/td>\n <\/tr>\n | \n <\/td>\n | ActiveCell.Formula<\/span> =<\/span> "=K51-L51"<\/span><\/td>\n <\/tr>\n \n <\/td>\n | <\/td>\n <\/tr>\n | \n <\/td>\n | 'Sonraki worksheet'e gec<\/span><\/td>\n <\/tr>\n \n <\/td>\n | Next<\/span> ws<\/span><\/td>\n <\/tr>\n \n <\/td>\n | End<\/span> Sub<\/span><\/td>\n <\/tr>\n \n <\/td>\n | \n<\/td>\n <\/tr>\n | \n <\/td>\n | 'Bu is bittikten sonra icmali 2013 oncesi sheetine yaz<\/span><\/td>\n <\/tr>\n \n <\/td>\n | \n<\/td>\n <\/tr>\n | \n <\/td>\n | Sub<\/span> suaticmal()<\/span><\/td>\n <\/tr>\n \n <\/td>\n | '<\/span><\/td>\n <\/tr>\n \n <\/td>\n | ' suaticmal Makro<\/span><\/td>\n <\/tr>\n \n <\/td>\n | '<\/span><\/td>\n <\/tr>\n \n <\/td>\n | ' Klavye Kısayolu: Ctrl+g<\/span><\/td>\n <\/tr>\n \n <\/td>\n | Dim<\/span> ws<\/span> As<\/span> Worksheet<\/span><\/td>\n <\/tr>\n \n <\/td>\n | \n<\/td>\n <\/tr>\n | \n <\/td>\n | Dim<\/span> x<\/span> As<\/span> Integer<\/span><\/td>\n <\/tr>\n \n <\/td>\n | \n<\/td>\n <\/tr>\n | \n <\/td>\n | x<\/span> =<\/span> 1<\/span><\/td>\n <\/tr>\n \n <\/td>\n | y<\/span> =<\/span> 1<\/span><\/td>\n <\/tr>\n \n <\/td>\n | \n<\/td>\n <\/tr>\n | \n <\/td>\n | For<\/span> Each<\/span> ws<\/span> In<\/span> Worksheets<\/span><\/td>\n <\/tr>\n \n <\/td>\n | \n<\/td>\n <\/tr>\n | \n <\/td>\n | 'İlgili sheet adini al ve 2013 oncesi tablosunda bir yere yaz ardarda<\/span><\/td>\n <\/tr>\n \n <\/td>\n | Sheets(<\/span>"2013oncesi"<\/span>).Cells(x,<\/span> 1<\/span>)<\/span> =<\/span> ws.Name<\/span><\/td>\n <\/tr>\n \n <\/td>\n | 'Sonra her bir hucredeki L51 degerlerini al<\/span><\/td>\n <\/tr>\n \n <\/td>\n | Sheets(<\/span>"2013oncesi"<\/span>).Cells(y,<\/span> 2<\/span>)<\/span> =<\/span> ws.Range(<\/span>"L51"<\/span>).Value<\/span><\/td>\n <\/tr>\n \n <\/td>\n | \n<\/td>\n <\/tr>\n | \n <\/td>\n | x<\/span> =<\/span> x<\/span> +<\/span> 1<\/span><\/td>\n <\/tr>\n \n <\/td>\n | y<\/span> =<\/span> y<\/span> +<\/span> 1<\/span><\/td>\n <\/tr>\n \n <\/td>\n | \n<\/td>\n <\/tr>\n | \n <\/td>\n | Next<\/span> ws<\/span><\/td>\n <\/tr>\n \n <\/td>\n | <\/td>\n <\/tr>\n | \n <\/td>\n | End<\/span> Sub<\/span><\/td>\n <\/tr>\n <\/table>\n<\/div>\n\n\n <\/div>\n\n <\/div>\n<\/div>\n\n <\/div>\n | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |