Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

23 Nisan 2010 Cuma

Working Capital Needs With SCHMALLENBACH Method in Excel


'Module1

'A) Windows XP® Office 2003® Normal Referance List

'Description: Visual Basic For Applications, FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
'Description: OLE Automation, FullPath: C:\WINDOWS\system32\stdole2.tlb
'Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL

'B) WCN SCHMALLENBACH Method [Prof.Dr.Eugen SCHMALENBACH]

'a) 1928. [Buchführung] und Kalkulation. Leipzig: G. A. Gloeckner Verlagsbuchhandlung. Originally published in Deutsche Metall-Industrie-Zeitung,vol. 15 (1899): 98 ff.
'b) 1963. "Die gewerbliche [Kalkulation]. "In Zitschrift für handelswissenschaftliche Forschung 15: 375-384. Originally published in Zeitschrift für das gesamte kaufmannische Unterrichrswesen, vol. 15 (1902/03): 150 ff.
'c) 1911/12. "Die [Privatwirtschaftslehre] als Kunstlehre." In Zeitschrift für handelswissenschaftliche Forschung 6: 304-315.
'd) 1949. Die [Beteiligungsfinanzierung], 7th ed. Köln, Opladen: Westdeutscher Verlag. The first ed. Appeared as Finanzierungen in 1915.
'e) 1919. "[Grundlagen] dynamischer Bilanzlehre." In Zeitschrift für handelswissenschaftliche Forschung 13: 1-60, 65-101. Later published as a book, Dynamische Bilanz. İn 1920 (see below).
'f) 1919. "[Selbstkostenrechnung]." In Zeitschrift für handelswissenschaftliche Forschung 13: 257-99 and 321-56. Later publishes as a book, Grundlagen der Selbstkostenrechnung und Preispolitik, in 1925 (see below).
'g) 1953. [Dynamische Bilanz], 11th ed. Köln, Opladen: Westdeutscher Verlag. The 2nd ed. Appeared as Grundlagen dynamischer Bilanzlehre in 1920.
'h) 1934. Selbstkostenrechnung und [Preispolitik], 6th ed. Leipzig: G. A. Gloeckner Verlagsbuchhandlung: The 2nd ed. appeared as Grundlagen der Selbstkostenrechnung und Preispolitik in 1925.
'i) 1939 (1929). Der [Kontenrahmen], 6th ed. Leipzig: G. A. Gloeckner Verlagsbuchhandlung.
'j) Reference: 1951 (1933). [Kapital], Kredit und Zins in betriebswirtschaftlicher Beleuchtung, 3rd ed. Köln, Opladen: Westdutscher Verlag.
'k) 1947. Pretiale Wirtschaftslenkung, vol. 1: Die [optimale Geltungszahl]. Bremen-Horn: Industrie- und Handelsverlag Walter Dorn.
'l) 1948. Pretiale Wirtschaftslenkung, vol. 2: [Pretiale Lenkung] des Betriebes. Bremen- Horn: Industrie- Handelsverlag Walter Dorn.
'm) 1960 (1949). Der freien [Wirtschaft] zum Gedachtnis, 3rd ed. Köln, Opladen: Westdeutscher Verlag.
'n) 1959. Über die [Dienststellengliederung] im Großbetriebe, Köln, Opladen: Westdeutsher Verlag.
'Type: Elif ULUSARAÇ

Option Explicit
Private Eleman As Worksheet
Sub EkranKur()

On Error Resume Next
For Each Eleman In ThisWorkbook.Worksheets

If Eleman.Name = "WCN" Then GoTo Mevcut: Exit For

Next Eleman
ThisWorkbook.Worksheets.Add Before:=Sheets(1)
ActiveSheet.Name = "WCN"
Mevcut:
Sheets("WCN").Select
ActiveSheet.Unprotect
Cells.Select
Selection.Delete Shift:=xlUp
Cells.Select
With Selection

With .Font

.Name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone

End With

End With
Range("B2").Select
Columns("A:A").ColumnWidth = 1
Columns("G:G").ColumnWidth = 1
Columns("M:M").ColumnWidth = 1
Call MakeSTATEMENTOFCOSTOFSALES
Call MakeINCOMESTATEMENT
Call MakeWorkingCapitalNeedsWithSCHMALLENBACHMethod
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub
Private Sub MakeSTATEMENTOFCOSTOFSALES() 'Satışların Maliyeti Tablosu

On Error Resume Next
Range("B2").FormulaR1C1 = "A"
Range("B4").FormulaR1C1 = "Statement Of Cost Of Sales Description"
Range("B5").FormulaR1C1 = "'1=1.1+1.2+1.3"
Range("B6").FormulaR1C1 = "'1.1"
Range("B7").FormulaR1C1 = "'1.1.1"
Range("B8").FormulaR1C1 = "'1.1.2"
Range("B9").FormulaR1C1 = "'1.1.3"
Range("B10").FormulaR1C1 = "'1.2"
Range("B11").FormulaR1C1 = "'1.3"
Range("B12").FormulaR1C1 = "'2"
Range("B13").FormulaR1C1 = "'2.1"
Range("B14").FormulaR1C1 = "'2.2"
Range("B15").FormulaR1C1 = "'3=1+2"
Range("B16").FormulaR1C1 = "'4"
Range("B17").FormulaR1C1 = "'4.1"
Range("B18").FormulaR1C1 = "'4.2"
Range("B19").FormulaR1C1 = "'5=3+4"
Range("B20").FormulaR1C1 = "'6"
Range("B21").FormulaR1C1 = "'6.1"
Range("B22").FormulaR1C1 = "'6.2"
Range("B23").FormulaR1C1 = "'6.3"
Range("B24").FormulaR1C1 = "'7"
Range("B25").FormulaR1C1 = "'7.1"
Range("B26").FormulaR1C1 = "'7.2"
Range("B27").FormulaR1C1 = "'7.3"
Range("B28").FormulaR1C1 = "'8"
Range("B29").FormulaR1C1 = "'9=5+6+7+8"
Range("B30").FormulaR1C1 = ""
Range("B31").FormulaR1C1 = "10"
Range("B32").FormulaR1C1 = ""
Range("B33").FormulaR1C1 = "11"
Range("B34").FormulaR1C1 = ""
Range("B35").FormulaR1C1 = "12"
Range("C2").FormulaR1C1 = "STATEMENT OF COST OF SALES"
Range("C3").FormulaR1C1 = ""
Range("C5").FormulaR1C1 = "PRODUCT COST "
Range("C6").FormulaR1C1 = " Direct material "
Range("C7").FormulaR1C1 = " Beginning inventory (+) "
Range("C8").FormulaR1C1 = " Purchases and Costs During The Period (+) "
Range("C9").FormulaR1C1 = " Ending inventory (-) "
Range("C10").FormulaR1C1 = " Direct Labor "
Range("C11").FormulaR1C1 = " Manufacturing Overhead Costs "
Range("C12").FormulaR1C1 = "Work in Process Ussed "
Range("C13").FormulaR1C1 = " Beginning Work-in Process Inventory (+) "
Range("C14").FormulaR1C1 = " Ending Work-in Process Inventory (-) "
Range("C15").FormulaR1C1 = "COST OF FlNlSHED GOODS PRODUCED "
Range("C16").FormulaR1C1 = "CHANGE IN FINISHED GOODS INVENTORY "
Range("C17").FormulaR1C1 = " Beginning Finished Goods Inventory (+) "
Range("C18").FormulaR1C1 = " Ending Finished Goods Inventory (-) "
Range("C19").FormulaR1C1 = "COST OF FINISHED GOODS SOLD "
Range("C20").FormulaR1C1 = "TRADING OPERATIONS "
Range("C21").FormulaR1C1 = " Beginning inventory (+) "
Range("C22").FormulaR1C1 = " Purchases During The Period (+) "
Range("C23").FormulaR1C1 = " Ending inventory (-) "
Range("C24").FormulaR1C1 = "COST OF MERCHANDISE SOLD "
Range("C25").FormulaR1C1 = " Beginning inventory (+) "
Range("C26").FormulaR1C1 = " Purchases and Costs During The Period (+) "
Range("C27").FormulaR1C1 = " Ending inventory (-) "
Range("C28").FormulaR1C1 = "COST OF SERVICES RENDERED "
Range("C29").FormulaR1C1 = "COST OF SALES (l+II+III)"
Range("C30").FormulaR1C1 = ""
Range("C31").FormulaR1C1 = "Total Depreciation"
Range("C32").FormulaR1C1 = ""
Range("C33").FormulaR1C1 = "Toplam Net Alış ve Maliyetler"
Range("C34").FormulaR1C1 = ""
Range("C35").FormulaR1C1 = "Toplam Ortalama Stoklar"
Range("D2").FormulaR1C1 = ""
Range("D3").FormulaR1C1 = ""
Range("D4").FormulaR1C1 = "=+RC[12]"
Range("D5").FormulaR1C1 = "=R[1]C+R[5]C+R[6]C"
Range("D6").FormulaR1C1 = "=+R[1]C+R[2]C-R[3]C"
Range("D7").FormulaR1C1 = "264180"
Range("D8").FormulaR1C1 = "2129750"
Range("D9").FormulaR1C1 = "391200"
Range("D10").FormulaR1C1 = "256401"
Range("D11").FormulaR1C1 = "811653"
Range("D12").FormulaR1C1 = "=+R[1]C-R[2]C"
Range("D13").FormulaR1C1 = "838669"
Range("D14").FormulaR1C1 = "934522"
Range("D15").FormulaR1C1 = "=R[-10]C+R[-3]C"
Range("D16").FormulaR1C1 = "=R[1]C-R[2]C"
Range("D17").FormulaR1C1 = "447012"
Range("D18").FormulaR1C1 = "209667"
Range("D19").FormulaR1C1 = "=+R[-4]C+R[-3]C"
Range("D20").FormulaR1C1 = "=+R[1]C+R[2]C-R[3]C"
Range("D21").FormulaR1C1 = "399725"
Range("D22").FormulaR1C1 = "9374913"
Range("D23").FormulaR1C1 = "543605"
Range("D24").FormulaR1C1 = "=+R[1]C+R[2]C-R[3]C"
Range("D25").FormulaR1C1 = "999311"
Range("D26").FormulaR1C1 = "2656214"
Range("D27").FormulaR1C1 = "1289280"
Range("D28").FormulaR1C1 = "107346"
Range("D29").FormulaR1C1 = "=R[-10]C+R[-9]C+R[-5]C+R[-1]C"
Range("D30").FormulaR1C1 = ""
Range("D31").FormulaR1C1 = "1025123"
Range("D32").FormulaR1C1 = ""
Range("D33").FormulaR1C1 = "=R[-25]C+R[-23]C+R[-22]C+R[-11]C+R[-7]C+R[-5]C-R[-2]C"
Range("D34").FormulaR1C1 = ""
Range("D35").FormulaR1C1 = "=((R[-28]C+R[-22]C+R[-18]C+R[-14]C+R[-10]C)+(R[-26]C+R[-21]C+R[-17]C+R[-12]C+R[-8]C))/2"
Range("E2").FormulaR1C1 = ""
Range("E3").FormulaR1C1 = ""
Range("E4").FormulaR1C1 = "=+RC[12]"
Range("E5").FormulaR1C1 = "=R[1]C+R[5]C+R[6]C"
Range("E6").FormulaR1C1 = "=+R[1]C+R[2]C-R[3]C"
Range("E7").FormulaR1C1 = "=+R[2]C[-1]"
Range("E8").FormulaR1C1 = "=+RC[-1]*(1+RC[1]/100)"
Range("E9").FormulaR1C1 = "=R[-2]C*(1+RC[1]/100)"
Range("E10").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("E11").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("E12").FormulaR1C1 = "=+R[1]C-R[2]C"
Range("E13").FormulaR1C1 = "=+R[1]C[-1]"
Range("E14").FormulaR1C1 = "=R[-1]C*(1+RC[1]/100)"
Range("E15").FormulaR1C1 = "=R[-10]C+R[-3]C"
Range("E16").FormulaR1C1 = "=R[1]C-R[2]C"
Range("E17").FormulaR1C1 = "=R[1]C[-1]"
Range("E18").FormulaR1C1 = "=R[-1]C*(1+RC[1]/100)"
Range("E19").FormulaR1C1 = "=+R[-4]C+R[-3]C"
Range("E20").FormulaR1C1 = "=+R[1]C+R[2]C-R[3]C"
Range("E21").FormulaR1C1 = "=+R[2]C[-1]"
Range("E22").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("E23").FormulaR1C1 = "=R[-2]C*(1+RC[1]/100)"
Range("E24").FormulaR1C1 = "=+R[1]C+R[2]C-R[3]C"
Range("E25").FormulaR1C1 = "=+R[2]C[-1]"
Range("E26").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("E27").FormulaR1C1 = "=R[-2]C*(1+RC[1]/100)"
Range("E28").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("E29").FormulaR1C1 = "=R[-10]C+R[-9]C+R[-5]C+R[-1]C"
Range("E30").FormulaR1C1 = ""
Range("E31").FormulaR1C1 = "=+RC[-1]*(1+RC[1]/100)"
Range("E32").FormulaR1C1 = ""
Range("E33").FormulaR1C1 = "=R[-25]C+R[-23]C+R[-22]C+R[-11]C+R[-7]C+R[-5]C-R[-2]C"
Range("E34").FormulaR1C1 = ""
Range("E35").FormulaR1C1 = "=((R[-28]C+R[-22]C+R[-18]C+R[-14]C+R[-10]C)+(R[-26]C+R[-21]C+R[-17]C+R[-12]C+R[-8]C))/2"
Range("F2").FormulaR1C1 = ""
Range("F3").FormulaR1C1 = ""
Range("F4").FormulaR1C1 = "'+/-"
Range("F5").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F6").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F7").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F8").FormulaR1C1 = "10"
Range("F9").FormulaR1C1 = "=((RC[-2]/R[-2]C[-2])-1)*100"
Range("F10").FormulaR1C1 = "15"
Range("F11").FormulaR1C1 = "10"
Range("F12").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F13").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F14").FormulaR1C1 = "=((RC[-2]/R[-1]C[-2])-1)*100"
Range("F15").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F16").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F17").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F18").FormulaR1C1 = "=((RC[-2]/R[-1]C[-2])-1)*100"
Range("F19").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F20").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F21").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F22").FormulaR1C1 = "10"
Range("F23").FormulaR1C1 = "=((RC[-2]/R[-2]C[-2])-1)*100"
Range("F24").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F25").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F26").FormulaR1C1 = "10"
Range("F27").FormulaR1C1 = "=((RC[-2]/R[-2]C[-2])-1)*100"
Range("F28").FormulaR1C1 = "10"
Range("F29").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F30").FormulaR1C1 = ""
Range("F31").FormulaR1C1 = "10"
Range("F32").FormulaR1C1 = ""
Range("F33").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("F34").FormulaR1C1 = ""
Range("F35").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
With Range("B4:F4")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False

End With
Range("B4:C4").Merge
Columns("B:B").ColumnWidth = 10
Columns("C:C").ColumnWidth = 36
Columns("D:E").ColumnWidth = 12
Columns("F:F").ColumnWidth = 6
Call FontTip3("B2:F2")
Call LineTip1("B4:F29")
Call LineTip1("B4:F4")
Range("D4:F29").Borders(xlEdgeLeft).Weight = xlMedium
Call LineTip1("B31:F31")
Range("D31:F31").Borders(xlEdgeLeft).Weight = xlMedium
Call LineTip1("B33:F33")
Range("D33:F33").Borders(xlEdgeLeft).Weight = xlMedium
Call LineTip1("B35:F35")
Range("D35:F35").Borders(xlEdgeLeft).Weight = xlMedium
With Range("B4:F4")

.Interior.ColorIndex = 34
.Font.Bold = True

End With
Range("B5:F5").Font.Bold = True
Range("B12:F12").Font.Bold = True
Range("B15:F16").Font.Bold = True
Range("B19:F20").Font.Bold = True
Range("B24:F24").Font.Bold = True
Range("B28:F29").Font.Bold = True
Range("B31:F31").Font.Bold = True
Range("B33:F33").Font.Bold = True
Range("B35:F35").Font.Bold = True
Call FontTip1("D7:D11")
Call FontTip1("F8")
Call FontTip1("F10:F11")
Call FontTip1("D13:D14")
Call FontTip1("D17:D18")
Call FontTip1("D21:D23")
Call FontTip1("F22")
Call FontTip1("D25:D28")
Call FontTip2("D28")
Call FontTip1("F26")
Call FontTip2("F28")
Call FontTip2("D31")
Call FontTip2("F31")
Range("D5:F35").NumberFormat = "#,##0"

End Sub
Private Sub MakeINCOMESTATEMENT() 'Gelir Tablosu

On Error Resume Next
Range("H2").FormulaR1C1 = "B"
Range("H3").FormulaR1C1 = ""
Range("H4").FormulaR1C1 = "Gelir İşlem Tanımı"
Range("H5").FormulaR1C1 = "'1"
Range("H6").FormulaR1C1 = "'1.1"
Range("H7").FormulaR1C1 = "'1.2"
Range("H8").FormulaR1C1 = "'1.3"
Range("H9").FormulaR1C1 = "'2"
Range("H10").FormulaR1C1 = "'2.1"
Range("H11").FormulaR1C1 = "'2.2"
Range("H12").FormulaR1C1 = "'2.3"
Range("H13").FormulaR1C1 = "'3=1-2"
Range("H14").FormulaR1C1 = "'4"
Range("H15").FormulaR1C1 = "'4.1"
Range("H16").FormulaR1C1 = "'4.2"
Range("H17").FormulaR1C1 = "'4.3"
Range("H18").FormulaR1C1 = "'4.4"
Range("H19").FormulaR1C1 = "'5=3-4"
Range("H20").FormulaR1C1 = "'6"
Range("H21").FormulaR1C1 = "'6.1"
Range("H22").FormulaR1C1 = "'6.2"
Range("H23").FormulaR1C1 = "'6.3"
Range("H24").FormulaR1C1 = "'7=5-6"
Range("H25").FormulaR1C1 = "'8"
Range("H26").FormulaR1C1 = "'8.1"
Range("H27").FormulaR1C1 = "'8.2"
Range("H28").FormulaR1C1 = "'8.3"
Range("H29").FormulaR1C1 = "'8.4"
Range("H30").FormulaR1C1 = "'8.5"
Range("H31").FormulaR1C1 = "'8.6"
Range("H32").FormulaR1C1 = "'8.7"
Range("H33").FormulaR1C1 = "'8.8"
Range("H34").FormulaR1C1 = "'8.9"
Range("H35").FormulaR1C1 = "'9"
Range("H36").FormulaR1C1 = "'9.1"
Range("H37").FormulaR1C1 = "'9.2"
Range("H38").FormulaR1C1 = "'9.3"
Range("H39").FormulaR1C1 = "'9.4"
Range("H40").FormulaR1C1 = "'9.5"
Range("H41").FormulaR1C1 = "'9.6"
Range("H42").FormulaR1C1 = "'10"
Range("H43").FormulaR1C1 = "'10.1"
Range("H44").FormulaR1C1 = "'10.2"
Range("H45").FormulaR1C1 = "'11=7+8-9-10"
Range("H46").FormulaR1C1 = "'12"
Range("H47").FormulaR1C1 = "'12.1"
Range("H48").FormulaR1C1 = "'12.2"
Range("H49").FormulaR1C1 = "'13"
Range("H50").FormulaR1C1 = "'13.1"
Range("H51").FormulaR1C1 = "'13.2"
Range("H52").FormulaR1C1 = "'13.3"
Range("H53").FormulaR1C1 = "'14=11+12-13"
Range("H54").FormulaR1C1 = "'15"
Range("H55").FormulaR1C1 = "'16=14-15"
Range("I2").FormulaR1C1 = "INCOME STATEMENT"
Range("I3").FormulaR1C1 = ""
Range("I5").FormulaR1C1 = "GROSS SALES"
Range("I6").FormulaR1C1 = "Domestıc Sales"
Range("I7").FormulaR1C1 = "Export Sales"
Range("I8").FormulaR1C1 = "Other Income"
Range("I9").FormulaR1C1 = "SALES DEDUCTIONS"
Range("I10").FormulaR1C1 = "Sales Returns"
Range("I11").FormulaR1C1 = "Sales Deductıons"
Range("I12").FormulaR1C1 = "Other Deductıons"
Range("I13").FormulaR1C1 = "NET SALES"
Range("I14").FormulaR1C1 = "COST OF SALES "
Range("I15").FormulaR1C1 = "Cost of Goods Sold (Product)"
Range("I16").FormulaR1C1 = "Cost of Goods Sold (Trade)"
Range("I17").FormulaR1C1 = "Cost of Servıces Rendered"
Range("I18").FormulaR1C1 = "Cost of sales (Other)"
Range("I19").FormulaR1C1 = "PROFIT OR LOSS FROM GROSS SALES"
Range("I20").FormulaR1C1 = "OPERATING EXPENSES"
Range("I21").FormulaR1C1 = "Research & Devpt Exp."
Range("I22").FormulaR1C1 = "Mark. Sellıng & Dıstrıb Ext."
Range("I23").FormulaR1C1 = "General Admınıstr. Exp."
Range("I24").FormulaR1C1 = "OPERATING PROFIT OR LOSS"
Range("I25").FormulaR1C1 = "INCOME/ PROFIT FROM OTH.OP."
Range("I26").FormulaR1C1 = "Dıvıdend Income From Affılıate"
Range("I27").FormulaR1C1 = "Dıvıdend Inc. From Subsıdıarıes"
Range("I28").FormulaR1C1 = "Interest Income"
Range("I29").FormulaR1C1 = "Commıssıon Income"
Range("I30").FormulaR1C1 = "Provısıons No Longer Requıred"
Range("I31").FormulaR1C1 = "Profıt on Sale of Marketables"
Range("I32").FormulaR1C1 = "Profıt From Foreıgn Currencye"
Range("I33").FormulaR1C1 = "Redıscount Interest Gaıns"
Range("I34").FormulaR1C1 = "Other Operatıonal Incomes"
Range("I35").FormulaR1C1 = "EXP. AND LOSSES FROM OTH. OP."
Range("I36").FormulaR1C1 = "Commıssıon Expenses"
Range("I37").FormulaR1C1 = "Provısıons "
Range("I38").FormulaR1C1 = "Loss on Sale of Marketable sec"
Range("I39").FormulaR1C1 = "Exchange Rates Losses"
Range("I40").FormulaR1C1 = "Redıscount Interest Expense"
Range("I41").FormulaR1C1 = "Other Ordınary Exp. Losses"
Range("I42").FormulaR1C1 = "FINANCIAL EXPENSES"
Range("I43").FormulaR1C1 = "Fınancıal Expenses (Short Term)"
Range("I44").FormulaR1C1 = "Fınancıal Expenses (Long Term)"
Range("I45").FormulaR1C1 = " INCOME/ PROFIT FROM OTH.OPERATIONS"
Range("I46").FormulaR1C1 = "NON-OPERAT REVENUES / P"
Range("I47").FormulaR1C1 = "Prıor Perıod Revenues / Profıt"
Range("I48").FormulaR1C1 = "Other Non-Operat. Revenues / P"
Range("I49").FormulaR1C1 = "EXTRAORD EXPENSES LOSSE"
Range("I50").FormulaR1C1 = "Idle Capacıty Expenses Losses"
Range("I51").FormulaR1C1 = "Prıor Perıod Expenses Losses"
Range("I52").FormulaR1C1 = "Other Extraord.ExpensesLosse"
Range("I53").FormulaR1C1 = "INCOME OR LOSS FOR THE PERIOD"
Range("I54").FormulaR1C1 = "Prov/Taxes Statutory Oblıg."
Range("I55").FormulaR1C1 = "NET PERIOD PROFIT OR LOSS"
Range("J2").FormulaR1C1 = ""
Range("J3").FormulaR1C1 = ""
Range("J4").FormulaR1C1 = "=+RC[-6]"
Range("J5").FormulaR1C1 = "=SUM(R[1]C:R[3]C)"
Range("J6").FormulaR1C1 = "5975864"
Range("J7").FormulaR1C1 = "7839660"
Range("J8").FormulaR1C1 = "3863796"
Range("J9").FormulaR1C1 = "=SUM(R[1]C:R[3]C)"
Range("J10").FormulaR1C1 = "79517"
Range("J11").FormulaR1C1 = "51549"
Range("J12").FormulaR1C1 = "43914"
Range("J13").FormulaR1C1 = "=R[-8]C-R[-4]C"
Range("J14").FormulaR1C1 = "=SUM(R[1]C:R[4]C)"
Range("J15").FormulaR1C1 = "=+WCN!R[4]C[-6]"
Range("J16").FormulaR1C1 = "=+WCN!R[4]C[-6]"
Range("J17").FormulaR1C1 = "=+WCN!R[7]C[-6]"
Range("J18").FormulaR1C1 = "=+WCN!R[10]C[-6]"
Range("J19").FormulaR1C1 = "=R[-6]C-R[-5]C"
Range("J20").FormulaR1C1 = "=SUM(R[1]C:R[3]C)"
Range("J21").FormulaR1C1 = "430253"
Range("J22").FormulaR1C1 = "1003925"
Range("J23").FormulaR1C1 = "501962"
Range("J24").FormulaR1C1 = "=R[-5]C-R[-4]C"
Range("J25").FormulaR1C1 = "=SUM(R[1]C:R[9]C)"
Range("J26").FormulaR1C1 = "6100"
Range("J27").FormulaR1C1 = "2574"
Range("J28").FormulaR1C1 = "73585"
Range("J29").FormulaR1C1 = "1250"
Range("J30").FormulaR1C1 = "4500"
Range("J31").FormulaR1C1 = "7896"
Range("J32").FormulaR1C1 = "96850"
Range("J33").FormulaR1C1 = "325780"
Range("J34").FormulaR1C1 = "1000"
Range("J35").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("J36").FormulaR1C1 = "6850"
Range("J37").FormulaR1C1 = "75009"
Range("J38").FormulaR1C1 = "1250"
Range("J39").FormulaR1C1 = "6375"
Range("J40").FormulaR1C1 = "78996"
Range("J41").FormulaR1C1 = "1100"
Range("J42").FormulaR1C1 = "=SUM(R[1]C:R[2]C)"
Range("J43").FormulaR1C1 = "458610"
Range("J44").FormulaR1C1 = "76435"
Range("J45").FormulaR1C1 = "=R[-21]C+R[-20]C-R[-10]C-R[-3]C"
Range("J46").FormulaR1C1 = "=SUM(R[1]C:R[2]C)"
Range("J47").FormulaR1C1 = "250"
Range("J48").FormulaR1C1 = "9675"
Range("J49").FormulaR1C1 = "=SUM(R[1]C:R[3]C)"
Range("J50").FormulaR1C1 = "7250"
Range("J51").FormulaR1C1 = "6475"
Range("J52").FormulaR1C1 = "501"
Range("J53").FormulaR1C1 = "=R[-8]C+R[-7]C-R[-4]C"
Range("J54").FormulaR1C1 = "=+R[-1]C*RC[2]/100"
Range("J55").FormulaR1C1 = "=R[-2]C-R[-1]C"
Range("K2").FormulaR1C1 = ""
Range("K3").FormulaR1C1 = ""
Range("K4").FormulaR1C1 = "=+RC[-6]"
Range("K5").FormulaR1C1 = "=SUM(R[1]C:R[3]C)"
Range("K6").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K7").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K8").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K9").FormulaR1C1 = "=SUM(R[1]C:R[3]C)"
Range("K10").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K11").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K12").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K13").FormulaR1C1 = "=R[-8]C-R[-4]C"
Range("K14").FormulaR1C1 = "=SUM(R[1]C:R[4]C)"
Range("K15").FormulaR1C1 = "=+WCN!R[4]C[-6]"
Range("K16").FormulaR1C1 = "=+WCN!R[4]C[-6]"
Range("K17").FormulaR1C1 = "=+WCN!R[7]C[-6]"
Range("K18").FormulaR1C1 = "=+WCN!R[10]C[-6]"
Range("K19").FormulaR1C1 = "=R[-6]C-R[-5]C"
Range("K20").FormulaR1C1 = "=SUM(R[1]C:R[3]C)"
Range("K21").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K22").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K23").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K24").FormulaR1C1 = "=R[-5]C-R[-4]C"
Range("K25").FormulaR1C1 = "=SUM(R[1]C:R[9]C)"
Range("K26").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K27").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K28").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K29").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K30").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K31").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K32").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K33").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K34").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K35").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
Range("K36").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K37").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K38").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K39").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K40").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K41").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K42").FormulaR1C1 = "=SUM(R[1]C:R[2]C)"
Range("K43").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K44").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K45").FormulaR1C1 = "=R[-21]C+R[-20]C-R[-10]C-R[-3]C"
Range("K46").FormulaR1C1 = "=SUM(R[1]C:R[2]C)"
Range("K47").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K48").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K49").FormulaR1C1 = "=SUM(R[1]C:R[3]C)"
Range("K50").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K51").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K52").FormulaR1C1 = "=RC[-1]*(1+RC[1]/100)"
Range("K53").FormulaR1C1 = "=R[-8]C+R[-7]C-R[-4]C"
Range("K54").FormulaR1C1 = "=+R[-1]C*RC[1]/100"
Range("K55").FormulaR1C1 = "=R[-2]C-R[-1]C"
Range("L2").FormulaR1C1 = ""
Range("L3").FormulaR1C1 = ""
Range("L4").FormulaR1C1 = "'+/-"
Range("L5").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L6").FormulaR1C1 = "10"
Range("L7").FormulaR1C1 = "10"
Range("L8").FormulaR1C1 = "10"
Range("L9").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L10").FormulaR1C1 = "10"
Range("L11").FormulaR1C1 = "10"
Range("L12").FormulaR1C1 = "10"
Range("L13").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L14").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L15").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L16").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L17").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L18").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L19").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L20").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L21").FormulaR1C1 = "10"
Range("L22").FormulaR1C1 = "15"
Range("L23").FormulaR1C1 = "10"
Range("L24").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L25").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L26").FormulaR1C1 = "0"
Range("L27").FormulaR1C1 = "0"
Range("L28").FormulaR1C1 = "0"
Range("L29").FormulaR1C1 = "0"
Range("L30").FormulaR1C1 = "0"
Range("L31").FormulaR1C1 = "0"
Range("L32").FormulaR1C1 = "0"
Range("L33").FormulaR1C1 = "0"
Range("L34").FormulaR1C1 = "0"
Range("L35").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L36").FormulaR1C1 = "0"
Range("L37").FormulaR1C1 = "0"
Range("L38").FormulaR1C1 = "0"
Range("L39").FormulaR1C1 = "0"
Range("L40").FormulaR1C1 = "0"
Range("L41").FormulaR1C1 = "0"
Range("L42").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L43").FormulaR1C1 = "15"
Range("L44").FormulaR1C1 = "15"
Range("L45").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L46").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L47").FormulaR1C1 = "0"
Range("L48").FormulaR1C1 = "0"
Range("L49").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L50").FormulaR1C1 = "0"
Range("L51").FormulaR1C1 = "0"
Range("L52").FormulaR1C1 = "0"
Range("L53").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("L54").FormulaR1C1 = "40"
Range("L55").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
With Range("H4:L4")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False

End With
Range("H4:I4").Merge
Columns("H:H").ColumnWidth = 10
Columns("I:I").ColumnWidth = 36
Columns("J:K").ColumnWidth = 12
Columns("L:L").ColumnWidth = 6
Call FontTip3("H2:L2")
Call LineTip1("H4:L55")
Call LineTip1("H4:L4")
Range("J4:L55").Borders(xlEdgeLeft).Weight = xlMedium
With Range("H4:L4")

.Interior.ColorIndex = 34
.Font.Bold = True

End With
Range("H5:L5").Font.Bold = True
Range("H9:L9").Font.Bold = True
Range("H13:L14").Font.Bold = True
Range("H19:L20").Font.Bold = True
Range("H24:L25").Font.Bold = True
Range("H35:L35").Font.Bold = True
Range("H42:L42").Font.Bold = True
Range("H45:L46").Font.Bold = True
Range("H49:L49").Font.Bold = True
Range("H53:L53").Font.Bold = True
Range("H55:L55").Font.Bold = True
Call FontTip1("J6:J8")
Call FontTip1("L6:L8")
Call FontTip1("J10:J12")
Call FontTip1("L10:L12")
Call FontTip1("J21:J23")
Call FontTip1("L21:L23")
Call FontTip1("J26:J34")
Call FontTip1("L26:L34")
Call FontTip1("J36:J41")
Call FontTip1("L36:L41")
Call FontTip1("J43:J44")
Call FontTip1("L43:L44")
Call FontTip1("J47:J48")
Call FontTip1("L47:L48")
Call FontTip1("J50:J52")
Call FontTip1("L50:L52")
Call FontTip1("L54:L54")
Range("J5:L55").NumberFormat = "#,##0"

End Sub
Private Sub MakeWorkingCapitalNeedsWithSCHMALLENBACHMethod() 'NİS Hesabı

On Error Resume Next
Range("N2").FormulaR1C1 = "C"
Range("O2").FormulaR1C1 = "Working Capital Needs With SCHMALLENBACH Method"
Range("N4").FormulaR1C1 = "Working Capital Needs Calculate"
Range("P4").FormulaR1C1 = "2009 [USD]"
Range("Q4").FormulaR1C1 = "2010 [USD]"
Range("R4").FormulaR1C1 = "'+/-"
Range("N5").FormulaR1C1 = "WCN"
Range("O5").FormulaR1C1 = "Working Capital Needs"
Range("P5").FormulaR1C1 = "=R[1]C+((1-(R[5]C/100))*((R[2]C*R[9]C/365)-(R[3]C*R[8]C/365)))+(R[6]C*R[8]C/365)+(R[7]C*R[8]C/365)-R[4]C"
Range("Q5").FormulaR1C1 = "=R[1]C+((1-(R[5]C/100))*((R[2]C*R[9]C/365)-(R[3]C*R[8]C/365)))+(R[6]C*R[8]C/365)+(R[7]C*R[8]C/365)-R[4]C"
Range("R5").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("N6").FormulaR1C1 = "AI"
Range("O6").FormulaR1C1 = "Average Inventory"
Range("P6").FormulaR1C1 = "=+WCN!R[29]C[-12]"
Range("Q6").FormulaR1C1 = "=+WCN!R[29]C[-12]"
Range("R6").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("N7").FormulaR1C1 = "AS"
Range("O7").FormulaR1C1 = "Annual Sales"
Range("P7").FormulaR1C1 = "=+WCN!R[6]C[-6]"
Range("Q7").FormulaR1C1 = "=+WCN!R[6]C[-6]"
Range("R7").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("N8").FormulaR1C1 = "APC"
Range("O8").FormulaR1C1 = "Annual Net Purchases And Costs"
Range("P8").FormulaR1C1 = "=+WCN!R[25]C[-12]"
Range("Q8").FormulaR1C1 = "=+WCN!R[25]C[-12]"
Range("R8").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("N9").FormulaR1C1 = "TD"
Range("O9").FormulaR1C1 = "Total Depreciation"
Range("P9").FormulaR1C1 = "=+WCN!R[22]C[-12]"
Range("Q9").FormulaR1C1 = "=+WCN!R[22]C[-12]"
Range("R9").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("N10").FormulaR1C1 = "GP"
Range("O10").FormulaR1C1 = "Gross Profit"
Range("P10").FormulaR1C1 = "=100*WCN!R[9]C[-6]/WCN!R[4]C[-6]"
Range("Q10").FormulaR1C1 = "=100*WCN!R[9]C[-6]/WCN!R[4]C[-6]"
Range("R10").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("N11").FormulaR1C1 = "AGE"
Range("O11").FormulaR1C1 = "Annual General Administrative Expenses"
Range("P11").FormulaR1C1 = "=+WCN!R[10]C[-6]+WCN!R[12]C[-6]"
Range("Q11").FormulaR1C1 = "=+WCN!R[10]C[-6]+WCN!R[12]C[-6]"
Range("R11").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("N12").FormulaR1C1 = "ASE"
Range("O12").FormulaR1C1 = "Annual Sales Expenses"
Range("P12").FormulaR1C1 = "=+WCN!R[10]C[-6]"
Range("Q12").FormulaR1C1 = "=+WCN!R[10]C[-6]"
Range("R12").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("N13").FormulaR1C1 = "DPP"
Range("O13").FormulaR1C1 = "Debt Payment Period [Days]"
Range("P13").FormulaR1C1 = "75"
Range("Q13").FormulaR1C1 = "75"
Range("R13").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("N14").FormulaR1C1 = "RCP"
Range("O14").FormulaR1C1 = "Receivables Collection Period [Days]"
Range("P14").FormulaR1C1 = "60"
Range("Q14").FormulaR1C1 = "60"
Range("R14").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
Range("N18").FormulaR1C1 = "WCN= "
Range("O18").FormulaR1C1 = "AI + ((1 - (GP / 100)) * ((AS * RCP / 365) - (APC * DPP / 365))) + (AGE * DPP / 365) + (ASE * DPP / 365) - TD"
Range("N20").FormulaR1C1 = "2009= "
Range("O20").FormulaR1C1 = "Actual"
Range("N21").FormulaR1C1 = "2010= "
Range("O21").FormulaR1C1 = "Estimate"
With Range("N4:R4")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False

End With
Range("N4:O4").Merge
Columns("N:N").ColumnWidth = 10
Columns("O:O").ColumnWidth = 48
Columns("P:Q").ColumnWidth = 12
Columns("R:R").ColumnWidth = 6
Call FontTip3("N2:R2")
Call LineTip1("N4:R14")
Call LineTip1("N4:R4")
Range("P4:R14").Borders(xlEdgeLeft).Weight = xlMedium
With Range("N4:R4")

.Interior.ColorIndex = 34
.Font.Bold = True

End With
Call FontTip1("P13:Q14")
With Range("N18:R18")

.Interior.ColorIndex = 6
.Interior.Pattern = xlSolid
.Font.Bold = True

End With
With Range("N5:R5")

.Interior.ColorIndex = 6
.Interior.Pattern = xlSolid
.Font.Bold = True

End With
Range("N16").FormulaR1C1 = "WCNPR"
Range("O16").FormulaR1C1 = "WCN Profit Rate"
Range("P16").FormulaR1C1 = "=R[37]C[-6]/R[-11]C*100"
Range("Q16").FormulaR1C1 = "=R[37]C[-6]/R[-11]C*100"
Range("R16").FormulaR1C1 = "=((RC[-1]/RC[-2])-1)*100"
With Range("N16:R16")

.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlInsideVertical).Weight = xlThin

End With
With Range("P16:R16")

.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlInsideVertical).Weight = xlThin

End With
With Range("N16:R16")

.Font.Bold = True
With .Interior

.ColorIndex = 43
.Pattern = xlSolid

End With

End With
With Range("N18")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.Merge
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium

End With
With Range("O18:R18")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.Merge
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlInsideVertical).LineStyle = xlNone

End With
With Range("N20:O21")

.Font.Bold = True
.Font.ColorIndex = 3

End With
Range("P5:R16").NumberFormat = "#,##0"

End Sub
Private Function FontTip1(ByVal Adres As String)

On Error Resume Next
With Range(Adres)

With .Font

.Name = "Arial"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 32

End With
.Locked = False
.FormulaHidden = False

End With

End Function
Private Function FontTip2(ByVal Adres As String)

On Error Resume Next
With Range(Adres)

With .Font

.Name = "Arial"
.FontStyle = "Bold"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 32

End With
.Locked = False
.FormulaHidden = False

End With

End Function
Private Function FontTip3(ByVal Adres As String)

On Error Resume Next
With Range(Adres)

With .Font

.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
.Bold = True

End With
With .Interior

.ColorIndex = 5
.Pattern = xlSolid

End With

End With

End Function
Private Function LineTip1(ByVal Adres As String)

On Error Resume Next
With Range(Adres)

.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin

End With

End Function

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul