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

5 Nisan 2010 Pazartesi

ShockwaveFlash1 Animation




'UserForm1

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

'Visual Basic For Applications; [C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL]
'Microsoft Excel 11.0 Object Library; [C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE]
'OLE Automation; [C:\WINDOWS\system32\stdole2.tlb]
'Microsoft Office 11.0 Object Library; [C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL]
'Microsoft Forms 2.0 Object Library; [C:\WINDOWS\system32\FM20.DLL]
'Shockwave Flash; [C:\WINDOWS\system32\Macromed\Flash\Flash10e.ocx]

'B) UserForm1'e Eklenen Araçlar (Add Tools)

'Frame1
'Frame1\Image1, Label1, Label2
'Combobox1, ShockwaveFlash1

Option Explicit
Dim i As Single
Dim swfDosya As String
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] ShockwaveFlash1 Animation"
Call EkranDüzenle
Call swfDosyaYükle

End Sub
Private Sub ComboBox1_Change()

On Error Resume Next
swfDosya = ComboBox1.Value
With ShockwaveFlash1

.AlignMode = 0
.AllowFullScreen = True
.ControlTipText = "www.brainybetty.com"
.IsPlaying
.Loop = True
.Playing = True
.Quality = 2
.Movie = swfDosya
.Play

End With

End Sub
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

On Error Resume Next
With ComboBox1

.DropButtonStyle = fmDropButtonStyleArrow
.ShowDropButtonWhen = fmShowDropButtonWhenAlways

End With

End Sub
Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal newState As Long)

On Error Resume Next
With ComboBox1

.DropButtonStyle = fmDropButtonStyleArrow
.ShowDropButtonWhen = fmShowDropButtonWhenNever

End With

End Sub
Private Sub EkranDüzenle()

On Error Resume Next
With Me

.Height = 360
.Width = 480
.BackColor = vbWhite
With Frame1

.Caption = ""
.Top = 0
.Left = 0
.Height = 36
.Width = Me.InsideWidth
.Picture = LoadPicture("C:\Documents and Settings\ULUSARAÇ\Belgelerim\Mustafa ULUSARAÇ\ExcelÖrnekler\VectorBackround.jpg")
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeStretch
.PictureTiling = False
.SpecialEffect = fmSpecialEffectFlat
.BackColor = vbWhite
With Image1

.BackStyle = fmBackStyleTransparent
.BorderColor = &HFF0000
.BorderStyle = fmBorderStyleSingle
.Top = 6
.Left = 6
.Height = 24
.Width = 24
.Picture = LoadPicture("C:\Documents and Settings\ULUSARAÇ\Belgelerim\Mustafa ULUSARAÇ\ExcelÖrnekler\PBİD.ico")

End With
With Label1

.Caption = " " & "Mustafa ULUSARAÇ"
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.Left = 30
.Top = 6
.Height = 12
.Width = 198
.Font.Bold = True
.ForeColor = &HFF0000

End With
With Label2

.Caption = " " & "01ulusarac@superonline.com"
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.Left = 30
.Top = 18
.Height = 12
.Width = 198
.Font.Bold = True
.ForeColor = &HFF0000

End With

End With
With ComboBox1

.DropButtonStyle = fmDropButtonStyleArrow
.ShowDropButtonWhen = fmShowDropButtonWhenNever
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderColor = &H80000001
.BorderStyle = fmBorderStyleSingle
.ForeColor = &H80000001
.SpecialEffect = fmSpecialEffectFlat
.Left = 6
.Top = 36
.Height = 18
.Width = 466

End With
With ShockwaveFlash1

.Left = 6
.Top = 54
.Height = 258
.Width = 466

End With

End With

End Sub
Sub swfDosyaYükle()

On Error Resume Next
With ComboBox1

.Clear
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/waves.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/Roller.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/tooltips.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/penguins.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/nan.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/line4.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/idea.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/fordtext2.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/circvortex.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/blurfadescale2002.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/bizasusual.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/analog.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/3dparticle.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/3DCube.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/2002Goals_Initiatives.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/blownaway.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/bluedotline.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/bubbles.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/Colors1.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/fish.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/bolas2.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/coloroptix2002.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/dotcube.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/gearspin.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/july4.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/line5.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/nan2001.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/pokemon.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/Rubik.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/spiral.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/Trailcust.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/wavy_keyboard.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/FloatingRaindrops.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/planeatnight.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/girl2002.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/random.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/curtain.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/brainbettydotcom.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/curtainswelcome.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/edgen_scrolling_landscape_flashkit.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/GeoWave.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/lightwave.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/lines.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/oldblue.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/pool.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/sample8_2001.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/starwars.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/true_blur.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/welcome.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/expandingwindow.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/2001.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/3dballcube.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/BarSlideVarient2.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/BBdef.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/circus.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/CUTTINGCOSTSNEON.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/lightwave2.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/mirror.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/orbiter.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/radiant-aarji.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/samplewelcomewmusic.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/tensionchain.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/tubes1.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/zoom.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/spinning%20gray%20tiles.swf"

End With

End Sub

4 Nisan 2010 Pazar

Registry Access Functions




'UserForm1

'A) Download Reference (Free)

'B) Windows XP® Office 2003® Normal Referance List
'Visual Basic For Applications
'Microsoft Excel 11.0 Object Library
'OLE Automation
'Microsoft Office 11.0 Object Library
'Microsoft Forms 2.0 Object Library
'Registry Access Functions; [C:\WINDOWS\system32\regtool5.dll][http://www.dlldll.com/regtool5.dll_download.html]
'C) UserForm1'e Eklenen Araçlar (Add Tools)
'Frame1
'Frame1\Image1, Label1, Label2
'ListBox1
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_CONFIG = &H80000005
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_DYN_DATA = &H80000006
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_PERFORMANCE_DATA = &H80000004
Private Const HKEY_USERS = &H80000003
Private Aranan As Long
Private i As Single
Private Reg As New Registry
Private Data As String
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] Registry Access Functions"
Call EkranDüzenle
For i = 0 To 6000
Aranan = Reg.GetKeyValue(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Internet Explorer\TypedURLs\", CStr("url" & i), Data)
If Aranan Then ListBox1.AddItem Data
Next i
End Sub
Private Sub EkranDüzenle()

On Error Resume Next
With Me
.Height = 348
.Width = 480
.BackColor = vbWhite
With Frame1
.Caption = ""
.Top = 0
.Left = 0
.Height = 36
.Width = Me.InsideWidth
.Picture = LoadPicture("C:\Documents and Settings\ULUSARAÇ\Belgelerim\Mustafa ULUSARAÇ\ExcelÖrnekler\VectorBackround.jpg")
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeStretch
.PictureTiling = False
.SpecialEffect = fmSpecialEffectFlat
.BackColor = vbWhite
With Image1
.BackStyle = fmBackStyleTransparent
.BorderColor = &HFF0000
.BorderStyle = fmBorderStyleSingle
.Top = 6
.Left = 6
.Height = 24
.Width = 24
.Picture = LoadPicture("C:\Documents and Settings\ULUSARAÇ\Belgelerim\Mustafa ULUSARAÇ\ExcelÖrnekler\PBİD.ico")
End With
With Label1
.Caption = " " & "Mustafa ULUSARAÇ"
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.Left = 30
.Top = 6
.Height = 12
.Width = 198
.Font.Bold = True
.ForeColor = &HFF0000
End With
With Label2
.Caption = " " & "01ulusarac@superonline.com"
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.Left = 30
.Top = 18
.Height = 12
.Width = 198
.Font.Bold = True
.ForeColor = &HFF0000
End With
End With
With ListBox1
.Left = 6
.Top = 36
.Height = 294
.Width = 466
.SpecialEffect = fmSpecialEffectEtched
.ForeColor = &H404000
.BorderStyle = fmBorderStyleNone
.BackColor = vbWhite
End With
End With
End Sub

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