Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Ağustos 2010 Cuma

Excel & Accsess Real Time Data Base Relations



'UserForm1

'A) VBProject References List

'Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
'Name: stdole, Description: OLE Automation, FullPath: C:\WINDOWS\system32\stdole2.tlb
'Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\WINDOWS\system32\FM20.DLL
'Name: ADOX, Description: Microsoft ADO Ext. 2.8 for DDL and Security, FullPath: C:\Program Files\Common Files\System\ado\msadox.dll [Picture:1]

'Name: ADODB, Description: Microsoft ActiveX Data Objects 2.8 Library, FullPath: C:\Program Files\Common Files\System\ado\msado15.dll [Picture:1]
'B) Addition Tools on UserForm1
'Image1, Label1, Label2
'Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10, Label11
'TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7
'ListBox1
'CommandButton1, CommandButton2, CommandButton3
'C) Microsoft Access Data Type ADO Equivalent, ADOX Data Type Corresponding Data Type in Access
'Microsoft Access Data Type... ADO Equivalent
'-------------------------------------- --------------------------------
'Binary..................................... adBinary
'Boolean.................................. adBoolean
'Byte........................................ adUnsignedTinyInt
'Currency................................ adCurrency
'Date....................................... adDate
'Numeric................................. adNumeric
'Double................................... adDouble
'Small Integer......................... adSmallInt
'Integer................................... adInteger
'Long Binary........................... adLongBinary
'Memo..................................... adLongVarWChar
'Single..................................... adSingle
'Text........................................ adWChar

'ADOX Data Type................... Corresponding Data Type in Access
'------------------------------------- ---------------------------------
'adBoolean.............................. Yes / No
'adUnsignedTinyInt................ Number(FieldSize = Byte)
'adSmalIInt............................. Number(FieldSize = Integer)
'adSingle................................. Number(FieldSize = Single)
'adDouble............................... Number(FieldSize = Double)
'adDecimal............................. Number(FieldSize = Decimal)
'adInteger............................... Number(FieldSize = LongInteger)
'Autonumber.......................... AutoIncrement(Start,Step)
'adCurrency........................... Currency
'adVarWChar........................ Text
'adDate.................................. Date / Time
'adLongVarBinary................. OLE Object
'dbMemo................................ Memo
'adLongVarWChar ................Hyperlink

Option Explicit
Private i As Integer, ii As Integer
Private DBCatalog As ADOX.Catalog
Private DBTable As ADOX.Table
Private DBKey As New ADOX.Key
Private DBConnection As ADODB.Connection
Private DBRecordset As ADODB.Recordset
Private DBUser As ADOX.User
Private DBFileString As String
Private DBConnectionString As String
Private DBTableString As String
Private DBFieldListString As String
Private DBValue As Variant
Private DBRecordID As Double
Private DBPreRecordID As Double
Private DBRecordIDNo As Double
Private DBAbsolutePositionIDNo As Double
Private DBRecordCount As Double
Private DBFieldCount As Double
Private HataNo As Double
Private DBBuffer(1 To 122, 1 To 7)

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] Excel & Accsess Real Time Data Base Relations"
Call CreateUserForm
Call OpenDataBase
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

On Error Resume Next
DBConnection.Close
Set DBConnection = Nothing
End Sub
Private Sub ListBox1_Change()

On Error Resume Next
DBRecordID = ListBox1.ListIndex
If DBPreRecordID = -1 Then
Label3.Caption = "": TextBox1.Value = "": TextBox2.Value = "": TextBox3.Value = "": TextBox4.Value = "": TextBox5.Value = "": TextBox6.Value = ""
Call GetDataBaseRow(DBTableString, DBRecordID)
Else
Call PutDataBaseRow(DBTableString, DBPreRecordID)
Label3.Caption = "": TextBox1.Value = "": TextBox2.Value = "": TextBox3.Value = "": TextBox4.Value = "": TextBox5.Value = "": TextBox6.Value = ""
Call GetDataBaseRow(DBTableString, DBRecordID)
End If
DBPreRecordID = DBRecordID
End Sub
Private Sub CommandButton1_Click() 'Add Record

On Error Resume Next
Call AddDataBaseRow(DBTableString)
End Sub
Private Sub CommandButton2_Click() 'Delete Record

On Error Resume Next
Call DeleteDataBaseRow(DBTableString, DBRecordID, DBPreRecordID, DBRecordIDNo)
End Sub
Private Sub CommandButton3_Click() 'Delete All Records

On Error Resume Next
Call DeleteAllDataBaseRow(DBTableString, DBRecordID)
End Sub
Private Sub OpenDataBase()

On Error Resume Next
DBFileString = ThisWorkbook.Path & "\AnalizListesi.mdb"
DBTableString = "POSITIONLIST"
DBFieldListString = "(ID AutoIncrement(1, 1), POSITIONNO Char(18), POSITIONNAME Char(255), UNIT Char(18), QUANTITY Double, PRICE Currency, AMOUNT Currency)"
Call ConnectionDataBase(DBFileString)
If HataNo = -2147467259 Then
DBConnection.Close
Set DBConnection = Nothing
Call CreateDataSource
Call CreateDataBaseAndTable(DBFileString, DBTableString, DBFieldListString)
Call CreateDataBase(DBFileString, DBTableString)
Call ConnectionDataBase(DBFileString)
Call GetDataBaseRows(DBTableString)
HataNo = 0
End If
Call GetDataBaseRows(DBTableString)
End Sub
Private Sub CreateDataBaseAndTable(DBFileString, DBTableString, DBFieldListString)

On Error GoTo Hata
Set DBCatalog = New ADOX.Catalog
DBConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFileString
DBCatalog.Create DBConnectionString
Set DBConnection = DBCatalog.ActiveConnection
DBConnection.Execute "Create Table " & DBTableString & DBFieldListString & ";"
Devam:
Set DBCatalog = Nothing
Set DBConnection = Nothing
Exit Sub
Hata:
If Err.Number = -2147217897 Then
Kill DBFileString
Resume 0
Else
GoTo Devam
End If
End Sub
Private Sub CreateDataBase(DBFileString, DBTableString)

On Error GoTo Hata
Call ConnectionDataBase(DBFileString)
Call ConnectionDBRecordset(DBTableString)
With DBRecordset
.Open "Select * From " & DBTableString
For i = 1 To 122
.AddNew
!POSITIONNO = DBBuffer(i, 2)
!POSITIONNAME = DBBuffer(i, 3)
!UNIT = DBBuffer(i, 4)
!QUANTITY = DBBuffer(i, 5)
!PRICE = DBBuffer(i, 6)
!AMOUNT = DBBuffer(i, 7)
.Update
Next i
.Move 1, 1
End With
Set DBRecordset = Nothing
Exit Sub
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub ConnectionDataBase(DBFileString)

On Error GoTo Hata
Set DBConnection = New ADODB.Connection
With DBConnection
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.Mode = adModeReadWrite
.ConnectionString = "Data Source=" & DBFileString
.Open
End With
Exit Sub
Hata:
HataNo = VBA.Err.Number
Set DBConnection = Nothing
End Sub
Private Sub ConnectionDBRecordset(DBTableString)

On Error GoTo Hata
Set DBRecordset = New ADODB.Recordset
With DBRecordset
.ActiveConnection = DBConnection
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "SELECT * FROM " & DBTableString
.Open
DBFieldCount = .Fields.count
DBRecordCount = .RecordCount
If DBRecordCount > 0 Then DBValue = .GetRows(DBRecordCount)
.Close
End With
Exit Sub
Hata:
DBRecordset.Close
Set DBRecordset = Nothing
End Sub
Private Sub GetDataBaseRows(DBTableString)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
ListBox1.Clear
For i = 0 To (DBRecordCount - 1)
ListBox1.AddItem
For ii = 0 To (DBFieldCount - 1)
ListBox1.List(i, ii) = VBA.Trim(DBValue(ii, i))
Next ii
Next i
DBPreRecordID = -1
ListBox1.ListIndex = 0
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub GetDataBaseRow(DBTableString, DBRecordID)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
Label3.Caption = VBA.Trim(DBValue(0, DBRecordID)) 'ID
TextBox1.Value = VBA.Trim(DBValue(1, DBRecordID)) 'POSITIONNO

TextBox2.Value = VBA.Trim(DBValue(2, DBRecordID)) 'POSITIONNAME
TextBox3.Value = VBA.Trim(DBValue(3, DBRecordID)) 'UNIT

TextBox4.Value = VBA.Trim(DBValue(4, DBRecordID)) 'QUANTITY
TextBox5.Value = VBA.Trim(DBValue(5, DBRecordID)) 'PRICE
TextBox6.Value = VBA.Trim(DBValue(6, DBRecordID)) 'AMOUNT
Hata:
Set DBRecordset = Nothing
End Sub
Sub PutDataBaseRow(DBTableString, DBPreRecordID)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
DBRecordIDNo = VBA.Trim(DBValue(0, DBPreRecordID))
With DBRecordset
.Source = "SELECT * FROM " & DBTableString & " WHERE" & " ID= " & DBRecordIDNo & ""
.Open
.Fields("POSITIONNO").Value = TextBox1.text
.Fields("POSITIONNAME").Value = TextBox2.text
.Fields("UNIT").Value = TextBox3.text
.Fields("QUANTITY").Value = TextBox4.Value
.Fields("PRICE").Value = TextBox5.Value
.Fields("AMOUNT").Value = TextBox6.Value
.Update
.Close
End With
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub AddDataBaseRow(DBTableString)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
With DBRecordset
.Open
.AddNew Array("POSITIONNO", "POSITIONNAME", "UNIT", "QUANTITY", "PRICE", "AMOUNT"), Array("", "", "", 0, 0, 0)
.Update
DBAbsolutePositionIDNo = .AbsolutePosition 'Row Number
DBValue = .GetRows(DBRecordCount)
.Close
End With
Call GetDataBaseRows(DBTableString)
ListBox1.ListIndex = (DBAbsolutePositionIDNo - 1)
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub DeleteDataBaseRow(DBTableString, DBRecordID, DBPreRecordID, DBRecordIDNo)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
DBRecordIDNo = VBA.Trim(DBValue(0, DBRecordID))
With DBRecordset
.Open "SELECT * FROM " & DBTableString & " WHERE ID = " & DBRecordIDNo
.Delete
DBAbsolutePositionIDNo = (DBPreRecordID - 1) 'Row Number
.Close
End With
DBPreRecordID = -1
Call GetDataBaseRows(DBTableString)
ListBox1.ListIndex = DBAbsolutePositionIDNo
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub DeleteAllDataBaseRow(DBTableString, DBRecordID)

On Error GoTo Hata
Call ConnectionDBRecordset(DBTableString)
With DBRecordset
.Open "SELECT * FROM " & DBTableString
.MoveFirst
Do While Not .EOF
If !ID > 0 Then
.Delete adAffectCurrent
DBRecordID = DBRecordID + 1
End If
.moveNext
Loop
.Close
End With
DBPreRecordID = -1
Call GetDataBaseRows(DBTableString)
Hata:
Set DBRecordset = Nothing
End Sub
Private Sub CreateDataSource()

On Error Resume Next
DBBuffer(1, 1) = 1: DBBuffer(1, 2) = "100-3": DBBuffer(1, 3) = "PROTECTION OF THE ENVIRONMENT": DBBuffer(1, 4) = "LUM SUM": DBBuffer(1, 5) = 1: DBBuffer(1, 6) = 48192: DBBuffer(1, 7) = 48192
DBBuffer(2, 1) = 2: DBBuffer(2, 2) = "100-4": DBBuffer(2, 3) = "TRAFFIC SAFETY AND CONTROL": DBBuffer(2, 4) = "LUM SUM": DBBuffer(2, 5) = 1: DBBuffer(2, 6) = 171000: DBBuffer(2, 7) = 171000
DBBuffer(3, 1) = 3: DBBuffer(3, 2) = "100-5": DBBuffer(3, 3) = "PROGRESS PHOTOGRAPHS ( EACH NO. INCLUDES MIN. 20 PHOTOS)": DBBuffer(3, 4) = "NO": DBBuffer(3, 5) = 24: DBBuffer(3, 6) = 37: DBBuffer(3, 7) = 888
DBBuffer(4, 1) = 4: DBBuffer(4, 2) = "100-6": DBBuffer(4, 3) = "SIGNBOARDS": DBBuffer(4, 4) = "NO": DBBuffer(4, 5) = 2: DBBuffer(4, 6) = 750: DBBuffer(4, 7) = 1500
DBBuffer(5, 1) = 5: DBBuffer(5, 2) = "100-7": DBBuffer(5, 3) = "ENGINEER'S SITE OFFICE, FURNITURE, AND EQUIPMENT": DBBuffer(5, 4) = "LUM SUM": DBBuffer(5, 5) = 1: DBBuffer(5, 6) = 169500: DBBuffer(5, 7) = 169500
DBBuffer(6, 1) = 6: DBBuffer(6, 2) = "100-8": DBBuffer(6, 3) = "ENGINEER'S SITE LABORATORY, FURNITURE, AND EQUIPMENT": DBBuffer(6, 4) = "LUM SUM": DBBuffer(6, 5) = 1: DBBuffer(6, 6) = 135000: DBBuffer(6, 7) = 135000
DBBuffer(7, 1) = 7: DBBuffer(7, 2) = "100-9": DBBuffer(7, 3) = "SURVEY EQUIPMENT": DBBuffer(7, 4) = "LUM SUM": DBBuffer(7, 5) = 1: DBBuffer(7, 6) = 27375: DBBuffer(7, 7) = 27375
DBBuffer(8, 1) = 8: DBBuffer(8, 2) = "100-10": DBBuffer(8, 3) = "PROTECTIVE CLOTHING": DBBuffer(8, 4) = "LUM SUM": DBBuffer(8, 5) = 1: DBBuffer(8, 6) = 750: DBBuffer(8, 7) = 750
DBBuffer(9, 1) = 9: DBBuffer(9, 2) = "100-11": DBBuffer(9, 3) = "RADIO COMMUNICATIONS SYSTEM": DBBuffer(9, 4) = "LUM SUM": DBBuffer(9, 5) = 1: DBBuffer(9, 6) = 30000: DBBuffer(9, 7) = 30000
DBBuffer(10, 1) = 10: DBBuffer(10, 2) = "100-12a": DBBuffer(10, 3) = "HOUSES AND FURNITURE FOR THE ENGINEER'S SUPERVISORY STAFF TYPE I": DBBuffer(10, 4) = "NO": DBBuffer(10, 5) = 5: DBBuffer(10, 6) = 40500: DBBuffer(10, 7) = 202500
DBBuffer(11, 1) = 11: DBBuffer(11, 2) = "100-12b": DBBuffer(11, 3) = "HOUSES AND FURNITURE FOR THE ENGINEER'S SUPERVISORY STAFF TYPE II": DBBuffer(11, 4) = "NO": DBBuffer(11, 5) = 4: DBBuffer(11, 6) = 40500: DBBuffer(11, 7) = 162000
DBBuffer(12, 1) = 12: DBBuffer(12, 2) = "100-13a": DBBuffer(12, 3) = "PROVISION VEHICLES TYPE I": DBBuffer(12, 4) = "NO": DBBuffer(12, 5) = 2: DBBuffer(12, 6) = 54000: DBBuffer(12, 7) = 108000
DBBuffer(13, 1) = 13: DBBuffer(13, 2) = "100-13b": DBBuffer(13, 3) = "PROVISION VEHICLES TYPE II": DBBuffer(13, 4) = "NO": DBBuffer(13, 5) = 9: DBBuffer(13, 6) = 15000: DBBuffer(13, 7) = 135000
DBBuffer(14, 1) = 14: DBBuffer(14, 2) = "100-14": DBBuffer(14, 3) = "MAINTENANCE OF THE ENGINEER'S SITE OFFICE AND ASSOCIATED EQUIPMENT": DBBuffer(14, 4) = "MONTH": DBBuffer(14, 5) = 24: DBBuffer(14, 6) = 3094.15: DBBuffer(14, 7) = 74259.6
DBBuffer(15, 1) = 15: DBBuffer(15, 2) = "100-15": DBBuffer(15, 3) = "MAINTENANCE OF THE ENGINEER'S SITE LABORATORY AND ASSOCIATED EQUIPMENT": DBBuffer(15, 4) = "MONTH": DBBuffer(15, 5) = 24: DBBuffer(15, 6) = 2094.75: DBBuffer(15, 7) = 50274
DBBuffer(16, 1) = 16: DBBuffer(16, 2) = "100-18": DBBuffer(16, 3) = "MAINTENANCE OF THE ENGINEER'S SURVEY EQUIPMENT": DBBuffer(16, 4) = "MONTH": DBBuffer(16, 5) = 24: DBBuffer(16, 6) = 228: DBBuffer(16, 7) = 5472
DBBuffer(17, 1) = 17: DBBuffer(17, 2) = "100-19": DBBuffer(17, 3) = "MAINTENANCE OF THE ENGINEER'S RADIO EQUIPMENT": DBBuffer(17, 4) = "MONTH": DBBuffer(17, 5) = 24: DBBuffer(17, 6) = 250: DBBuffer(17, 7) = 6000
DBBuffer(18, 1) = 18: DBBuffer(18, 2) = "100-20a": DBBuffer(18, 3) = "MAINTENANCE OF THE ENGINEER'S HOUSES AND EQUIPMENT TYPE I": DBBuffer(18, 4) = "HOUSE-MONTH": DBBuffer(18, 5) = 120: DBBuffer(18, 6) = 798: DBBuffer(18, 7) = 95760
DBBuffer(19, 1) = 19: DBBuffer(19, 2) = "100-20b": DBBuffer(19, 3) = "MAINTENANCE OF THE ENGINEER'S HOUSES AND EQUIPMENT TYPE II": DBBuffer(19, 4) = "HOUSE-MONTH": DBBuffer(19, 5) = 96: DBBuffer(19, 6) = 798: DBBuffer(19, 7) = 76608
DBBuffer(20, 1) = 20: DBBuffer(20, 2) = "100-21a": DBBuffer(20, 3) = "MAINTENANCE OF THE ENGINEER'S VEHICLES TYPE I": DBBuffer(20, 4) = "VEHICLES-MONTH": DBBuffer(20, 5) = 48: DBBuffer(20, 6) = 940.5: DBBuffer(20, 7) = 45144
DBBuffer(21, 1) = 21: DBBuffer(21, 2) = "100-21b": DBBuffer(21, 3) = "MAINTENANCE OF THE ENGINEER'S VEHICLES TYPE II": DBBuffer(21, 4) = "VEHICLES-MONTH": DBBuffer(21, 5) = 216: DBBuffer(21, 6) = 631.75: DBBuffer(21, 7) = 136458
DBBuffer(22, 1) = 22: DBBuffer(22, 2) = "100-22": DBBuffer(22, 3) = "AS-BUILT DRAWINGS": DBBuffer(22, 4) = "LUM SUM": DBBuffer(22, 5) = 1: DBBuffer(22, 6) = 15000: DBBuffer(22, 7) = 15000
DBBuffer(23, 1) = 23: DBBuffer(23, 2) = "100-23a": DBBuffer(23, 3) = "REMOVAL AND RELOCATION OF EXISTING POVER LINE 10 KV": DBBuffer(23, 4) = "P.SUM": DBBuffer(23, 5) = 1: DBBuffer(23, 6) = 15000: DBBuffer(23, 7) = 15000
DBBuffer(24, 1) = 24: DBBuffer(24, 2) = "100-23b": DBBuffer(24, 3) = "REMOVAL AND RELOCATION OF TELECOMMUNICATION": DBBuffer(24, 4) = "P.SUM": DBBuffer(24, 5) = 1: DBBuffer(24, 6) = 10000: DBBuffer(24, 7) = 10000
DBBuffer(25, 1) = 25: DBBuffer(25, 2) = "100-23c": DBBuffer(25, 3) = "RELOCATION OF EXISTING IRRIGATION WATER COURSES": DBBuffer(25, 4) = "P.SUM": DBBuffer(25, 5) = 1: DBBuffer(25, 6) = 15000: DBBuffer(25, 7) = 15000
DBBuffer(26, 1) = 26: DBBuffer(26, 2) = "100-24": DBBuffer(26, 3) = "EXTRA OVER ITEM 23. REMOVE AND RELOCATION OF EXISTING SERVICE": DBBuffer(26, 4) = "PERCENT": DBBuffer(26, 5) = 0.1: DBBuffer(26, 6) = 40000: DBBuffer(26, 7) = 4000
DBBuffer(27, 1) = 27: DBBuffer(27, 2) = "100-25": DBBuffer(27, 3) = "PROTECTION OF EXISTING SERVICES": DBBuffer(27, 4) = "LUM SUM": DBBuffer(27, 5) = 1: DBBuffer(27, 6) = 37500: DBBuffer(27, 7) = 37500
DBBuffer(28, 1) = 28: DBBuffer(28, 2) = "100-26": DBBuffer(28, 3) = "CATERING": DBBuffer(28, 4) = "MONTH": DBBuffer(28, 5) = 24: DBBuffer(28, 6) = 4455: DBBuffer(28, 7) = 106920
DBBuffer(29, 1) = 29: DBBuffer(29, 2) = "300-1": DBBuffer(29, 3) = "TOPOGRAHIC SURVEY": DBBuffer(29, 4) = "KM": DBBuffer(29, 5) = 38: DBBuffer(29, 6) = 1500: DBBuffer(29, 7) = 57000
DBBuffer(30, 1) = 30: DBBuffer(30, 2) = "400-1": DBBuffer(30, 3) = "SITE CLEARANCE": DBBuffer(30, 4) = "LUM SUM": DBBuffer(30, 5) = 1: DBBuffer(30, 6) = 37500: DBBuffer(30, 7) = 37500
DBBuffer(31, 1) = 31: DBBuffer(31, 2) = "500-1": DBBuffer(31, 3) = "REMOVAL OF TOPSOIL": DBBuffer(31, 4) = "M3": DBBuffer(31, 5) = 42000: DBBuffer(31, 6) = 0.52: DBBuffer(31, 7) = 21840
DBBuffer(32, 1) = 32: DBBuffer(32, 2) = "500-2": DBBuffer(32, 3) = "EXCAVATION OF SUITABLE MATERIAL": DBBuffer(32, 4) = "M3": DBBuffer(32, 5) = 600000: DBBuffer(32, 6) = 0.97: DBBuffer(32, 7) = 582000
DBBuffer(33, 1) = 33: DBBuffer(33, 2) = "500-3": DBBuffer(33, 3) = "EXCAVATION OF UNSUITABLE MATERIAL": DBBuffer(33, 4) = "M3": DBBuffer(33, 5) = 1000: DBBuffer(33, 6) = 3: DBBuffer(33, 7) = 3000
DBBuffer(34, 1) = 34: DBBuffer(34, 2) = "500-4": DBBuffer(34, 3) = "EXCAVATION IN ROCK AND REINFORCED CONCRETE": DBBuffer(34, 4) = "M3": DBBuffer(34, 5) = 700000: DBBuffer(34, 6) = 3.15: DBBuffer(34, 7) = 2205000
DBBuffer(35, 1) = 35: DBBuffer(35, 2) = "500-5": DBBuffer(35, 3) = "PREPARATION OF EXISTING GROUND BELOW EMBANKMENTS": DBBuffer(35, 4) = "M2": DBBuffer(35, 5) = 520000: DBBuffer(35, 6) = 0.15: DBBuffer(35, 7) = 78000
DBBuffer(36, 1) = 36: DBBuffer(36, 2) = "500-6": DBBuffer(36, 3) = "DEPOSITION OF SUITABLE FILL IN EMBANKMENTS AND OTHER FILL AREAS": DBBuffer(36, 4) = "M3": DBBuffer(36, 5) = 1125000: DBBuffer(36, 6) = 0.67: DBBuffer(36, 7) = 753750
DBBuffer(37, 1) = 37: DBBuffer(37, 2) = "500-7": DBBuffer(37, 3) = "IMPORTED SUITABLE FILL": DBBuffer(37, 4) = "M3": DBBuffer(37, 5) = 500: DBBuffer(37, 6) = 4.35: DBBuffer(37, 7) = 2175
DBBuffer(38, 1) = 38: DBBuffer(38, 2) = "500-8": DBBuffer(38, 3) = "DISPOSAL SURPLUS SUITABLE MATERIAL": DBBuffer(38, 4) = "M3": DBBuffer(38, 5) = 175000: DBBuffer(38, 6) = 0.6: DBBuffer(38, 7) = 105000
DBBuffer(39, 1) = 39: DBBuffer(39, 2) = "500-9": DBBuffer(39, 3) = "COMPACTION OF FILL IN EMBANKMENTS": DBBuffer(39, 4) = "M3": DBBuffer(39, 5) = 1125000: DBBuffer(39, 6) = 0.37: DBBuffer(39, 7) = 416250
DBBuffer(40, 1) = 40: DBBuffer(40, 2) = "500-10": DBBuffer(40, 3) = "COMPLETION OF FORMATION": DBBuffer(40, 4) = "M2": DBBuffer(40, 5) = 471000: DBBuffer(40, 6) = 0.07: DBBuffer(40, 7) = 32970
DBBuffer(41, 1) = 41: DBBuffer(41, 2) = "500-11": DBBuffer(41, 3) = "CLEARING AND REGARDING OF EXISTING WATERCOURSES": DBBuffer(41, 4) = "M3": DBBuffer(41, 5) = 1000: DBBuffer(41, 6) = 3: DBBuffer(41, 7) = 3000
DBBuffer(42, 1) = 42: DBBuffer(42, 2) = "500-12": DBBuffer(42, 3) = "TOPSOIL SPREADING": DBBuffer(42, 4) = "M2": DBBuffer(42, 5) = 35000: DBBuffer(42, 6) = 0.75: DBBuffer(42, 7) = 26250
DBBuffer(43, 1) = 43: DBBuffer(43, 2) = "500-13": DBBuffer(43, 3) = "ROCK BOLTING": DBBuffer(43, 4) = "LM": DBBuffer(43, 5) = 1500: DBBuffer(43, 6) = 97.5: DBBuffer(43, 7) = 146250
DBBuffer(44, 1) = 44: DBBuffer(44, 2) = "500-14": DBBuffer(44, 3) = "ROCK NAILS": DBBuffer(44, 4) = "LM": DBBuffer(44, 5) = 23000: DBBuffer(44, 6) = 12: DBBuffer(44, 7) = 276000
DBBuffer(45, 1) = 45: DBBuffer(45, 2) = "500-15": DBBuffer(45, 3) = "GALVANIZED NETTING": DBBuffer(45, 4) = "M2": DBBuffer(45, 5) = 6400: DBBuffer(45, 6) = 27: DBBuffer(45, 7) = 172800
DBBuffer(46, 1) = 46: DBBuffer(46, 2) = "500-16": DBBuffer(46, 3) = "GALVANIZED NETTING AND CONCRETING": DBBuffer(46, 4) = "M2": DBBuffer(46, 5) = 11400: DBBuffer(46, 6) = 90: DBBuffer(46, 7) = 1026000
DBBuffer(47, 1) = 47: DBBuffer(47, 2) = "500-17": DBBuffer(47, 3) = "CYCLOPEAN CONCRETE FOR THE TREATMENT OF CAVITIES": DBBuffer(47, 4) = "M3": DBBuffer(47, 5) = 2295: DBBuffer(47, 6) = 120: DBBuffer(47, 7) = 275400
DBBuffer(48, 1) = 48: DBBuffer(48, 2) = "500-18": DBBuffer(48, 3) = "STRUCTURAL EXCAVATION IN UNSUITABLE MATERIAL": DBBuffer(48, 4) = "M3": DBBuffer(48, 5) = 1000: DBBuffer(48, 6) = 3.75: DBBuffer(48, 7) = 3750
DBBuffer(49, 1) = 49: DBBuffer(49, 2) = "500-19": DBBuffer(49, 3) = "STRUCTURAL EXCAVATION IN SUITABLE MATERIAL (BRIDGE,RETAINING WALLS,GABIONS,DRAINAGE DITCHES)": DBBuffer(49, 4) = "M3": DBBuffer(49, 5) = 97000: DBBuffer(49, 6) = 2.4: DBBuffer(49, 7) = 232800
DBBuffer(50, 1) = 50: DBBuffer(50, 2) = "500-20": DBBuffer(50, 3) = "COMPACTION OF SUITABLE FILL ADJACENT TO STRUCTURES": DBBuffer(50, 4) = "M3": DBBuffer(50, 5) = 19500: DBBuffer(50, 6) = 0.45: DBBuffer(50, 7) = 8775
DBBuffer(51, 1) = 51: DBBuffer(51, 2) = "500-21": DBBuffer(51, 3) = "COMPACTION OF GRANULAR FILL ADJACENT TO STRUCTURES": DBBuffer(51, 4) = "M3": DBBuffer(51, 5) = 21100: DBBuffer(51, 6) = 0.9: DBBuffer(51, 7) = 18990
DBBuffer(52, 1) = 52: DBBuffer(52, 2) = "500-22": DBBuffer(52, 3) = "PROTECTION FENCE": DBBuffer(52, 4) = "LM": DBBuffer(52, 5) = 200: DBBuffer(52, 6) = 15: DBBuffer(52, 7) = 3000
DBBuffer(53, 1) = 53: DBBuffer(53, 2) = "600-1-1": DBBuffer(53, 3) = "PRECAST CONCRETE PIPE CULVERTS PIPE DIAMETER 1.5 M": DBBuffer(53, 4) = "LM": DBBuffer(53, 5) = 1150: DBBuffer(53, 6) = 311: DBBuffer(53, 7) = 357650
DBBuffer(54, 1) = 54: DBBuffer(54, 2) = "600-1-2": DBBuffer(54, 3) = "PRECAST CONCRETE PIPE CULVERTS PIPE DIAMETER 2 (1.50) M": DBBuffer(54, 4) = "LM": DBBuffer(54, 5) = 550: DBBuffer(54, 6) = 399: DBBuffer(54, 7) = 219450
DBBuffer(55, 1) = 55: DBBuffer(55, 2) = "600-2-1": DBBuffer(55, 3) = "REINFORCED CONCRETE BOX CULVERTS BOX (2.0X2.0)M": DBBuffer(55, 4) = "LM": DBBuffer(55, 5) = 230: DBBuffer(55, 6) = 375: DBBuffer(55, 7) = 86250
DBBuffer(56, 1) = 56: DBBuffer(56, 2) = "600-2-2": DBBuffer(56, 3) = "REINFORCED CONCRETE BOX CULVERTS BOX 2(2.0X2.0)M": DBBuffer(56, 4) = "LM": DBBuffer(56, 5) = 270: DBBuffer(56, 6) = 638: DBBuffer(56, 7) = 172260
DBBuffer(57, 1) = 57: DBBuffer(57, 2) = "600-2-3": DBBuffer(57, 3) = "REINFORCED CONCRETE BOX CULVERTS BOX 3(2.0X2.0)M": DBBuffer(57, 4) = "LM": DBBuffer(57, 5) = 190: DBBuffer(57, 6) = 902: DBBuffer(57, 7) = 171380
DBBuffer(58, 1) = 58: DBBuffer(58, 2) = "600-3-1": DBBuffer(58, 3) = "REINFORCED CONCRETE HEADWALL ELEMENTS FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 1.5 M/BOX (2.0X2.0)M": DBBuffer(58, 4) = "NO": DBBuffer(58, 5) = 86: DBBuffer(58, 6) = 1114: DBBuffer(58, 7) = 95804
DBBuffer(59, 1) = 59: DBBuffer(59, 2) = "600-3-2": DBBuffer(59, 3) = "REINFORCED CONCRETE HEADWALL ELEMENTS FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 2 (1.50) M / BOX (2.0X2.0)M": DBBuffer(59, 4) = "NO": DBBuffer(59, 5) = 21: DBBuffer(59, 6) = 1440: DBBuffer(59, 7) = 30240
DBBuffer(60, 1) = 60: DBBuffer(60, 2) = "600-3-3": DBBuffer(60, 3) = "REINFORCED CONCRETE HEADWALL ELEMENTS FOR PIPE CULVERT AND BOX CULVERTS BOX 3(2.0X2.0)M": DBBuffer(60, 4) = "NO": DBBuffer(60, 5) = 1: DBBuffer(60, 6) = 1618: DBBuffer(60, 7) = 1618
DBBuffer(61, 1) = 61: DBBuffer(61, 2) = "600-4-1": DBBuffer(61, 3) = "REINFORCED CONCRETE WING WALLS FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 1.5 M / BOX (2.0X2.0)M": DBBuffer(61, 4) = "NO": DBBuffer(61, 5) = 72: DBBuffer(61, 6) = 300: DBBuffer(61, 7) = 21600
DBBuffer(62, 1) = 62: DBBuffer(62, 2) = "600-4-2": DBBuffer(62, 3) = "REINFORCED CONCRETE WING WALLS FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 2 (1.50) M / BOX (2.0X2.0)M": DBBuffer(62, 4) = "NO": DBBuffer(62, 5) = 57: DBBuffer(62, 6) = 300: DBBuffer(62, 7) = 17100
DBBuffer(63, 1) = 63: DBBuffer(63, 2) = "600-4-3": DBBuffer(63, 3) = "REINFORCED CONCRETE WING WALLS FOR PIPE CULVERT AND BOX CULVERTS BOX 3(2.0X2.0)M": DBBuffer(63, 4) = "NO": DBBuffer(63, 5) = 13: DBBuffer(63, 6) = 409: DBBuffer(63, 7) = 5317
DBBuffer(64, 1) = 64: DBBuffer(64, 2) = "600-5-1": DBBuffer(64, 3) = "REINFORCED CONCRETE DROP MANHOLES FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 1.5 M / BOX (2.0X2.0)M": DBBuffer(64, 4) = "NO": DBBuffer(64, 5) = 6: DBBuffer(64, 6) = 425: DBBuffer(64, 7) = 2550
DBBuffer(65, 1) = 65: DBBuffer(65, 2) = "600-5-2": DBBuffer(65, 3) = "REINFORCED CONCRETE DROP MANHOLES FOR PIPE CULVERT AND BOX CULVERTS PIPE DIAMETER 2 (1.50) M / BOX (2.0X2.0)M": DBBuffer(65, 4) = "NO": DBBuffer(65, 5) = 6: DBBuffer(65, 6) = 995: DBBuffer(65, 7) = 5970
DBBuffer(66, 1) = 66: DBBuffer(66, 2) = "600-5-3": DBBuffer(66, 3) = "REINFORCED CONCRETE DROP MANHOLES FOR PIPE CULVERT AND BOX CULVERTS BOX 3(2.0X2.0)M": DBBuffer(66, 4) = "NO": DBBuffer(66, 5) = 2: DBBuffer(66, 6) = 1428: DBBuffer(66, 7) = 2856
DBBuffer(67, 1) = 67: DBBuffer(67, 2) = "600-6": DBBuffer(67, 3) = "RIP RAP PROTECTION WORKS (ROAD EMBANKMENT,BRIDGE LOCATIONS,DIVERSIONS) ROCK DIAMETER <> 1.10 M.)": DBBuffer(68, 4) = "M3": DBBuffer(68, 5) = 8000: DBBuffer(68, 6) = 12: DBBuffer(68, 7) = 96000
DBBuffer(69, 1) = 69: DBBuffer(69, 2) = "600-7": DBBuffer(69, 3) = "PRECAST / IN-SITU CONCRETE PROTECTION ( CLASS 20/20 ) FOR BERMS": DBBuffer(69, 4) = "M3": DBBuffer(69, 5) = 650: DBBuffer(69, 6) = 140.5: DBBuffer(69, 7) = 91325
DBBuffer(70, 1) = 70: DBBuffer(70, 2) = "600-8": DBBuffer(70, 3) = "PROTECTION FOR DROP INLET FACES": DBBuffer(70, 4) = "M3": DBBuffer(70, 5) = 650: DBBuffer(70, 6) = 140.5: DBBuffer(70, 7) = 91325
DBBuffer(71, 1) = 71: DBBuffer(71, 2) = "600-9": DBBuffer(71, 3) = "CONCRETE CHANNEL DOWN EMBANKMENT SIDE SLOPE ( SCOUR CHECKS )": DBBuffer(71, 4) = "M3": DBBuffer(71, 5) = 200: DBBuffer(71, 6) = 140.5: DBBuffer(71, 7) = 28100
DBBuffer(72, 1) = 72: DBBuffer(72, 2) = "600-10": DBBuffer(72, 3) = "GROUTED RIP-RAP PROTECTION WORKS": DBBuffer(72, 4) = "M3": DBBuffer(72, 5) = 13350: DBBuffer(72, 6) = 17.8: DBBuffer(72, 7) = 237630
DBBuffer(73, 1) = 73: DBBuffer(73, 2) = "600-11": DBBuffer(73, 3) = "LINED OPEN DRAIN DITCHES (SIDE DITCHES)": DBBuffer(73, 4) = "LM": DBBuffer(73, 5) = 16800: DBBuffer(73, 6) = 10.5: DBBuffer(73, 7) = 176400
DBBuffer(74, 1) = 74: DBBuffer(74, 2) = "600-12A": DBBuffer(74, 3) = "CONCRETE KERBS TYPE I": DBBuffer(74, 4) = "LM": DBBuffer(74, 5) = 11700: DBBuffer(74, 6) = 9.7: DBBuffer(74, 7) = 113490
DBBuffer(75, 1) = 75: DBBuffer(75, 2) = "600-12B": DBBuffer(75, 3) = "CONCRETE KERBS TYPE II": DBBuffer(75, 4) = "LM": DBBuffer(75, 5) = 9300: DBBuffer(75, 6) = 6.7: DBBuffer(75, 7) = 62310
DBBuffer(76, 1) = 76: DBBuffer(76, 2) = "600-13": DBBuffer(76, 3) = "DRAINAGE PIPE BEHIND STRUCTURES": DBBuffer(76, 4) = "LM": DBBuffer(76, 5) = 1700: DBBuffer(76, 6) = 14.2: DBBuffer(76, 7) = 24140
DBBuffer(77, 1) = 77: DBBuffer(77, 2) = "700-1": DBBuffer(77, 3) = "GRANULAR SUB BASE": DBBuffer(77, 4) = "M3": DBBuffer(77, 5) = 73000: DBBuffer(77, 6) = 3.9: DBBuffer(77, 7) = 284700
DBBuffer(78, 1) = 78: DBBuffer(78, 2) = "700-2": DBBuffer(78, 3) = "SHOULDER MATERIAL": DBBuffer(78, 4) = "M3": DBBuffer(78, 5) = 32000: DBBuffer(78, 6) = 7.2: DBBuffer(78, 7) = 230400
DBBuffer(79, 1) = 79: DBBuffer(79, 2) = "700-3": DBBuffer(79, 3) = "CRUSHED STONE ROAD BASE": DBBuffer(79, 4) = "M3": DBBuffer(79, 5) = 52000: DBBuffer(79, 6) = 21.6: DBBuffer(79, 7) = 1123200
DBBuffer(80, 1) = 80: DBBuffer(80, 2) = "800-1": DBBuffer(80, 3) = "PRIME COAT": DBBuffer(80, 4) = "KG": DBBuffer(80, 5) = 393000: DBBuffer(80, 6) = 0.67: DBBuffer(80, 7) = 263310
DBBuffer(81, 1) = 81: DBBuffer(81, 2) = "800-2": DBBuffer(81, 3) = "TACK COAT": DBBuffer(81, 4) = "KG": DBBuffer(81, 5) = 401800: DBBuffer(81, 6) = 0.97: DBBuffer(81, 7) = 389746
DBBuffer(82, 1) = 82: DBBuffer(82, 2) = "800-3": DBBuffer(82, 3) = "ASPHALTIC CONCRETE BASE COURSE": DBBuffer(82, 4) = "M3": DBBuffer(82, 5) = 16100: DBBuffer(82, 6) = 75: DBBuffer(82, 7) = 1207500
DBBuffer(83, 1) = 83: DBBuffer(83, 2) = "900-1": DBBuffer(83, 3) = "CAST-IN-PLACE REINFORCED CONCRETE CLASS 40 / 20": DBBuffer(83, 4) = "M3": DBBuffer(83, 5) = 15600: DBBuffer(83, 6) = 86.8: DBBuffer(83, 7) = 1354080
DBBuffer(84, 1) = 84: DBBuffer(84, 2) = "900-2a": DBBuffer(84, 3) = "A- CAST-IN-PLACE REINFORCED CONCRETE CLASS 35 / 20 ABUTMENT AND WING WALLS": DBBuffer(84, 4) = "M3": DBBuffer(84, 5) = 3150: DBBuffer(84, 6) = 85: DBBuffer(84, 7) = 267750
DBBuffer(85, 1) = 85: DBBuffer(85, 2) = "900-2b": DBBuffer(85, 3) = "B- CAST-IN-PLACE REINFORCED CONCRETE CLASS 35 / 20 APRON SLABS": DBBuffer(85, 4) = "M3": DBBuffer(85, 5) = 150: DBBuffer(85, 6) = 85: DBBuffer(85, 7) = 12750
DBBuffer(86, 1) = 86: DBBuffer(86, 2) = "900-2c": DBBuffer(86, 3) = "C- CAST-IN-PLACE REINFORCED CONCRETE CLASS 35 / 20 PIERS": DBBuffer(86, 4) = "M3": DBBuffer(86, 5) = 135: DBBuffer(86, 6) = 85: DBBuffer(86, 7) = 11475
DBBuffer(87, 1) = 87: DBBuffer(87, 2) = "900-2d": DBBuffer(87, 3) = "D- CAST-IN-PLACE REINFORCED CONCRETE CLASS 35 / 20 PIER FOUNDATION": DBBuffer(87, 4) = "M3": DBBuffer(87, 5) = 210: DBBuffer(87, 6) = 85: DBBuffer(87, 7) = 17850
DBBuffer(88, 1) = 88: DBBuffer(88, 2) = "900-2e": DBBuffer(88, 3) = "E- CAST-IN-PLACE REINFORCED CONCRETE CLASS 35 / 20 RETAINING WALLS": DBBuffer(88, 4) = "M3": DBBuffer(88, 5) = 25200: DBBuffer(88, 6) = 85: DBBuffer(88, 7) = 2142000
DBBuffer(89, 1) = 89: DBBuffer(89, 2) = "900-3": DBBuffer(89, 3) = "CAST-IN-PLACE PLAIN CONCRETE CLASS 15 / 25": DBBuffer(89, 4) = "M3": DBBuffer(89, 5) = 1850: DBBuffer(89, 6) = 82.3: DBBuffer(89, 7) = 152255
DBBuffer(90, 1) = 90: DBBuffer(90, 2) = "900-4": DBBuffer(90, 3) = "REINFORCEMENT": DBBuffer(90, 4) = "TONNE": DBBuffer(90, 5) = 6300: DBBuffer(90, 6) = 555: DBBuffer(90, 7) = 3496500
DBBuffer(91, 1) = 91: DBBuffer(91, 2) = "900-5a": DBBuffer(91, 3) = "A- PRECAST REINFORCED CONCRETE DECK ELEMENTS PANEL TYPE ""1"" INCLUDING REINFORCEMENT,AS SHOWN ON DRAWINGS": DBBuffer(91, 4) = "NO": DBBuffer(91, 5) = 114: DBBuffer(91, 6) = 402: DBBuffer(91, 7) = 45828
DBBuffer(92, 1) = 92: DBBuffer(92, 2) = "900-5b": DBBuffer(92, 3) = "B- PRECAST REINFORCED CONCRETE DECK ELEMENTS PANEL TYPE ""2"" INCLUDING REINFORCEMENT,AS SHOWN ON DRAWINGS": DBBuffer(92, 4) = "NO": DBBuffer(92, 5) = 28: DBBuffer(92, 6) = 304.5: DBBuffer(92, 7) = 8526
DBBuffer(93, 1) = 93: DBBuffer(93, 2) = "1200-1a": DBBuffer(93, 3) = "A- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 1150 KN VERTICAL CAPACITY - 160 KN HORIZ.": DBBuffer(93, 4) = "NO": DBBuffer(93, 5) = 8: DBBuffer(93, 6) = 10395: DBBuffer(93, 7) = 83160
DBBuffer(94, 1) = 94: DBBuffer(94, 2) = "1200-1b": DBBuffer(94, 3) = "B- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 800 KN VERTICAL CAPACITY - 120 KN HORIZ.": DBBuffer(94, 4) = "NO": DBBuffer(94, 5) = 8: DBBuffer(94, 6) = 10395: DBBuffer(94, 7) = 83160
DBBuffer(95, 1) = 95: DBBuffer(95, 2) = "1200-1c": DBBuffer(95, 3) = "C- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 1400 KN VERTICAL CAPACITY - 250 KN HORIZ.": DBBuffer(95, 4) = "NO": DBBuffer(95, 5) = 8: DBBuffer(95, 6) = 15592.5: DBBuffer(95, 7) = 124740
DBBuffer(96, 1) = 96: DBBuffer(96, 2) = "1200-1d": DBBuffer(96, 3) = "D- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 1000 KN VERTICAL CAPACITY - 200 KN HORIZ.": DBBuffer(96, 4) = "NO": DBBuffer(96, 5) = 8: DBBuffer(96, 6) = 15592.5: DBBuffer(96, 7) = 124740
DBBuffer(97, 1) = 97: DBBuffer(97, 2) = "1200-1e": DBBuffer(97, 3) = "E- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 1000 KN VERTICAL CAPACITY - 110 KN HORIZ.": DBBuffer(97, 4) = "NO": DBBuffer(97, 5) = 12: DBBuffer(97, 6) = 7087.5: DBBuffer(97, 7) = 85050
DBBuffer(98, 1) = 98: DBBuffer(98, 2) = "1200-1f": DBBuffer(98, 3) = " F- BRIDGE BEARINGS ELASTOMERIC BEARINGS - 700 KN VERTICAL CAPACITY - 75 KN HORIZ.": DBBuffer(98, 4) = "NO": DBBuffer(98, 5) = 12: DBBuffer(98, 6) = 7087.5: DBBuffer(98, 7) = 85050
DBBuffer(99, 1) = 99: DBBuffer(99, 2) = "1200-2": DBBuffer(99, 3) = "EXPANSION JOINTS": DBBuffer(99, 4) = "LM": DBBuffer(99, 5) = 370: DBBuffer(99, 6) = 22.5: DBBuffer(99, 7) = 8325
DBBuffer(100, 1) = 100: DBBuffer(100, 2) = "1200-3": DBBuffer(100, 3) = "BRIDGE DECK WATERPROOFING MEMBRANE": DBBuffer(100, 4) = "M2": DBBuffer(100, 5) = 2030: DBBuffer(100, 6) = 10.5: DBBuffer(100, 7) = 21315
DBBuffer(101, 1) = 101: DBBuffer(101, 2) = "1200-4": DBBuffer(101, 3) = "PEDESTRIAN HANDRAIL": DBBuffer(101, 4) = "LM": DBBuffer(101, 5) = 481: DBBuffer(101, 6) = 75: DBBuffer(101, 7) = 36075
DBBuffer(102, 1) = 102: DBBuffer(102, 2) = "1200-5": DBBuffer(102, 3) = "ROOF WATERPROOFING MEMBRANE": DBBuffer(102, 4) = "M2": DBBuffer(102, 5) = 10425: DBBuffer(102, 6) = 12: DBBuffer(102, 7) = 125100
DBBuffer(103, 1) = 103: DBBuffer(103, 2) = "1200-6": DBBuffer(103, 3) = "PERMEABLE BACKING": DBBuffer(103, 4) = "M3": DBBuffer(103, 5) = 335: DBBuffer(103, 6) = 15: DBBuffer(103, 7) = 5025
DBBuffer(104, 1) = 104: DBBuffer(104, 2) = "1200-7": DBBuffer(104, 3) = "DRAINAGE GULLIES FOR BRIDGE DECK": DBBuffer(104, 4) = "NO": DBBuffer(104, 5) = 24: DBBuffer(104, 6) = 150: DBBuffer(104, 7) = 3600
DBBuffer(105, 1) = 105: DBBuffer(105, 2) = "1300-1a": DBBuffer(105, 3) = "MARKER POSTS ROAD RESERVE BOUNDARY POSTS": DBBuffer(105, 4) = "NO": DBBuffer(105, 5) = 152: DBBuffer(105, 6) = 30: DBBuffer(105, 7) = 4560
DBBuffer(106, 1) = 106: DBBuffer(106, 2) = "1300-1b": DBBuffer(106, 3) = "MARKER POSTS EDGE MARKER POSTS": DBBuffer(106, 4) = "NO": DBBuffer(106, 5) = 1500: DBBuffer(106, 6) = 16.5: DBBuffer(106, 7) = 24750
DBBuffer(107, 1) = 107: DBBuffer(107, 2) = "1300-1c": DBBuffer(107, 3) = "MARKER POSTS KILOMETER MARKER POSTS": DBBuffer(107, 4) = "NO": DBBuffer(107, 5) = 76: DBBuffer(107, 6) = 16.5: DBBuffer(107, 7) = 1254
DBBuffer(108, 1) = 108: DBBuffer(108, 2) = "1300-2": DBBuffer(108, 3) = "PERMANENT ROAD SIGNS - SIGN POSTS": DBBuffer(108, 4) = "NO": DBBuffer(108, 5) = 380: DBBuffer(108, 6) = 25.2: DBBuffer(108, 7) = 9576
DBBuffer(109, 1) = 109: DBBuffer(109, 2) = "1300-3a": DBBuffer(109, 3) = "PERMANENT ROAD SIGNS - FACE PLATES <> 5 M2 (OVER 5 M2 )": DBBuffer(112, 4) = "NO": DBBuffer(112, 5) = 5: DBBuffer(112, 6) = 1050: DBBuffer(112, 7) = 5250
DBBuffer(113, 1) = 113: DBBuffer(113, 2) = "1300-4a": DBBuffer(113, 3) = "STEEL GUARD - RAIL": DBBuffer(113, 4) = "LM": DBBuffer(113, 5) = 4000: DBBuffer(113, 6) = 45: DBBuffer(113, 7) = 180000
DBBuffer(114, 1) = 114: DBBuffer(114, 2) = "1300-4b": DBBuffer(114, 3) = "CONCRETE BARRIER GUARD - RAIL": DBBuffer(114, 4) = "LM": DBBuffer(114, 5) = 4000: DBBuffer(114, 6) = 37.5: DBBuffer(114, 7) = 150000
DBBuffer(115, 1) = 115: DBBuffer(115, 2) = "1300-4c": DBBuffer(115, 3) = "MASONRY BARRIER GUARD - RAIL": DBBuffer(115, 4) = "LM": DBBuffer(115, 5) = 17000: DBBuffer(115, 6) = 37.5: DBBuffer(115, 7) = 637500
DBBuffer(116, 1) = 116: DBBuffer(116, 2) = "1300-5": DBBuffer(116, 3) = "BUS STOP SHELTER": DBBuffer(116, 4) = "NO": DBBuffer(116, 5) = 21: DBBuffer(116, 6) = 1125: DBBuffer(116, 7) = 23625
DBBuffer(117, 1) = 117: DBBuffer(117, 2) = "1300-6": DBBuffer(117, 3) = "ROAD LIGHTING IN SETTLEMENT AREAS": DBBuffer(117, 4) = "LM": DBBuffer(117, 5) = 4000: DBBuffer(117, 6) = 30: DBBuffer(117, 7) = 120000
DBBuffer(118, 1) = 118: DBBuffer(118, 2) = "1400-1": DBBuffer(118, 3) = "ROAD TRAFFIC MARKINGS - WHITE LINES": DBBuffer(118, 4) = "M2": DBBuffer(118, 5) = 16000: DBBuffer(118, 6) = 10.1: DBBuffer(118, 7) = 161600
DBBuffer(119, 1) = 119: DBBuffer(119, 2) = "1500-1": DBBuffer(119, 3) = "BUILT UP GIRDERS": DBBuffer(119, 4) = "TONNE": DBBuffer(119, 5) = 355: DBBuffer(119, 6) = 1132.394366: DBBuffer(119, 7) = 401999.99993
DBBuffer(120, 1) = 120: DBBuffer(120, 2) = "1500-2": DBBuffer(120, 3) = "CROSS DIAPHRAGMS": DBBuffer(120, 4) = "TONNE": DBBuffer(120, 5) = 60: DBBuffer(120, 6) = 1425: DBBuffer(120, 7) = 85500
DBBuffer(121, 1) = 121: DBBuffer(121, 2) = "1600-1": DBBuffer(121, 3) = "BUILDING UP GABIONS STRUCTURES": DBBuffer(121, 4) = "M3": DBBuffer(121, 5) = 90000: DBBuffer(121, 6) = 16.5: DBBuffer(121, 7) = 1485000
DBBuffer(122, 1) = 122: DBBuffer(122, 2) = "SP": DBBuffer(122, 3) = "DAYWORKS": DBBuffer(122, 4) = "LS": DBBuffer(122, 5) = 1: DBBuffer(122, 6) = 353000: DBBuffer(122, 7) = 353000
End Sub
Private Sub CreateUserForm()

On Error Resume Next
With Me
.Height = 426
.Width = 647
'.Picture = LoadPicture("C:\Documents and Settings\Administrator\Belgelerim\Mustafa ULUSARAÇ\VectorBackround.jpg")
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = fmPictureSizeModeStretch
.PictureTiling = False
.BackColor = vbWhite
With Image1
.Left = 6
.Top = 6
.Height = 24
.Width = 24
.BorderColor = &HFFFFFF
.BorderStyle = fmBorderStyleSingle
.BackStyle = fmBackStyleTransparent
'.Picture = LoadPicture("C:\Documents and Settings\Administrator\Belgelerim\Mustafa ULUSARAÇ\PBİD.ico").Picture = Resim(URL2)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
End With
With Label1
.Top = 6
.Left = 36
.Height = 12
.Width = 228
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Mustafa ULUSARAÇ"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectFlat
.TextAlign = fmTextAlignLeft
End With
With Label2
.Top = 18
.Left = 36
.Height = 12
.Width = 228
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "01ulusarac@superonline.com"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectFlat
.TextAlign = fmTextAlignLeft
End With
With Label3
.Top = 48
.Left = 6
.Height = 18
.Width = 36
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = ""
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label4
.Top = 36
.Left = 6
.Height = 12
.Width = 36
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "ID"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label5
.Top = 36
.Left = 42
.Height = 12
.Width = 66
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Position No"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label6
.Top = 36
.Left = 108
.Height = 12
.Width = 252
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Position Name"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label7
.Top = 36
.Left = 360
.Height = 12
.Width = 66
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Unit"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label8
.Top = 36
.Left = 426
.Height = 12
.Width = 66
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Quantity"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label9
.Top = 36
.Left = 492
.Height = 12
.Width = 66
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Price"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With Label10
.Top = 36
.Left = 558
.Height = 12
.Width = 78
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = "Amount"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With TextBox1
.Left = 42
.Top = 48
.Height = 18
.Width = 66
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With TextBox2
.Left = 108
.Top = 48
.Height = 18
.Width = 252
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With TextBox3
.Left = 360
.Top = 48
.Height = 18
.Width = 66
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With TextBox4
.Left = 426
.Top = 48
.Height = 18
.Width = 66
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With TextBox5
.Left = 492
.Top = 48
.Height = 18
.Width = 66
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With TextBox6
.Left = 558
.Top = 48
.Height = 18
.Width = 78
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = vbBlue
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
With ListBox1
.Left = 6
.Top = 66
.Height = 305.3
.Width = 630
.BackColor = &H80000005
.BorderStyle = fmBorderStyleNone
.BoundColumn = 1
.ColumnCount = 7
.ColumnWidths = "36;66;252;66;66;66;66;66"
.Font.Bold = False
.ForeColor = &H808000
.ListStyle = fmListStylePlain
.Locked = False
.MultiSelect = fmMultiSelectSingle
.SpecialEffect = fmSpecialEffectEtched
End With
With CommandButton1
.Left = 6
.Top = 378
.Height = 18
.Width = 72
.Caption = "Add Record"
.Font.Bold = True
.ForeColor = &H808000
End With
With CommandButton2
.Left = 78
.Top = 378
.Height = 18
.Width = 72
.Caption = "Delete Record"
.Font.Bold = True
.ForeColor = &H808000
End With
With CommandButton3
.Left = 156
.Top = 378
.Height = 18
.Width = 90
.Caption = "Cleare DataBase"
.Font.Bold = True
.ForeColor = &H808000
End With
With Label11
.Top = 378
.Left = 474
.Height = 18
.Width = 84
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Caption = " Total Amount"
.Font.Bold = True
.ForeColor = &H808000
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
End With
With TextBox7
.Left = 558
.Top = 378
.Height = 18
.Width = 78
.BackStyle = fmBackStyleOpaque
.AutoTab = False
.AutoSize = False
.AutoWordSelect = False
.BorderStyle = fmBorderStyleNone
.Font.Bold = False
.ForeColor = &H808000
.Locked = False
.MultiLine = False
.ScrollBars = fmScrollBarsNone
.SpecialEffect = fmSpecialEffectEtched
End With
End With
End Sub

'Module1

Option Explicit
Public Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Public Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Public IPic(15) As Byte
Public Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}" 'It may take a few seconds, please wait.

Public URL As String
Public Const URL1 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S7rn6KHVfNI/AAAAAAAACRs/fxVMg9YGzb4/s1600/VectorBackround.jpg" 'Microsoft Office Excel® Kod Kılavuzu [UserFormBackround]

Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg" 'Microsoft Office Excel® Kod Kılavuzu [PBİD Icon]
Sub FormAç() 'Open UserForm
On Error Resume Next
UserForm1.Show 0
End Sub
Public Function Resim(URL) As Picture 'Picture load frome web address...

On Error Resume Next
CLSIDFromString StrPtr(ClsID), IPic(0)
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim
End Function
'Sub ReferecesList()

' Dim Eleman, ElemanNo
' Sheets("ReferencesList").Select
' ElemanNo = 1
' For Each Eleman In ThisWorkbook.VBProject.References
' Cells(ElemanNo, 1) = "Name: "
' Cells(ElemanNo, 2) = Eleman.Name
' Cells(ElemanNo, 3) = ", Description: "
' Cells(ElemanNo, 4) = Eleman.Description
' Cells(ElemanNo, 5) = ", FullPath: "
' Cells(ElemanNo, 6) = Eleman.FullPath
' Cells(ElemanNo, 7) = ", Guid: "
' Cells(ElemanNo, 8) = Eleman.GUID
' Cells(ElemanNo, 9) = ", Major: "
' Cells(ElemanNo, 10) = Eleman.major
' Cells(ElemanNo, 11) = ", Minor: "
' Cells(ElemanNo, 12) = Eleman.minor
' ElemanNo = ElemanNo + 1
' Next Eleman
'End Sub

10 Ağustos 2010 Salı

Workbook Customize


'Module1
'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
'Description: Microsoft Forms 2.0 Object Library, FullPath: C:\WINDOWS\system32\FM20.DLL
Option Explicit
Private Declare Function GetActiveWindow32 Lib "USER32" Alias "GetActiveWindow" () As Integer
Private Declare Function SendMessage32 Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private i As Integer
Private WS As Worksheet
Private CB As CommandBar
Private CBP As CommandBarPopup
Private MNT(1 To 9999) As Object 'Menü Nesne Tercihi
Private AMNT(1 To 9999) As Object 'Alt Menü Nesne Tercihi
Private MSS As Integer 'Menü Sayfası Satırı
Private MH As Integer 'Menü Hiyerarşisi
Private SMH As Integer 'Sonraki Menü Hiyerarşisi
Private PvM As Variant 'Pozisyon Veya Makro
Private MB 'Menü Başlığı
Private MA 'Menü Ayırım
Private MS 'Menü Simgesi
Private MU 'Menü Uygulama
Private ExcelBaşlık As String, SayfaBaşlık As String
Private Simge As Long, Pencere As Long
Sub Auto_Open()

On Error Resume Next
Call Sayfa_Düzeni
Call Simge_Değiştir("C:\Program Files\Microsoft Office\OFFICE11\MSN.ico")
Call Exceli_Özel_Duruma_Getir
Call Menü_Boşalt
Call Menü_Yap
Sheets("Kapak").Select

End Sub
Private Sub Simge_Değiştir(SeçilenSimge As String)

On Error Resume Next
ExcelBaşlık = Application.Caption
SayfaBaşlık = ActiveWindow.Caption
ActiveWindow.Caption = "Program Bütçeleme ve İzleme Değerelendirme"
Application.Caption = "[PBİD®] "
Simge = ExtractIcon32(0, SeçilenSimge, 0)
Pencere = GetActiveWindow32()
SendMessage32 Pencere, &H80, 1, Simge 'Büyük Icon
SendMessage32 Pencere, &H80, 0, Simge 'Küçük Icon

End Sub
Private Sub Exceli_Özel_Duruma_Getir()

On Error GoTo Devam
Application.CommandBars("Toolbar List").Enabled = False 'CommandBars'daki Ters (RightClick) Tıkla PopUp Menü
For Each CB In Application.CommandBars

If CB.Type = msoBarTypePopup Then CB.Enabled = False 'Sheet'deki Ters Tıkla (RightClick) PopUp Menü

Next CB
Devam:
On Error Resume Next
With Application

.DisplayFormulaBar = False
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
.CommandBars("Standard").Visible = False
.CommandBars("Formatting").Visible = False
.CommandBars("Borders").Visible = False
.CommandBars("Chart").Visible = False
.CommandBars("Control Toolbox").Visible = False
.CommandBars("Drawing").Visible = False
.CommandBars("External Data").Visible = False
.CommandBars("Forms").Visible = False
.CommandBars("Formula Auditing").Visible = False
.CommandBars("List").Visible = False
.CommandBars("Picture").Visible = False
.CommandBars("PivotTable").Visible = False
.CommandBars("Protection").Visible = False
.CommandBars("Reviewing").Visible = False
.CommandBars("Stop Recording").Visible = False
.CommandBars("Text To Speech").Visible = False
.CommandBars("Visual Basic").Visible = False
.CommandBars("Web").Visible = False
.CommandBars("WordArt").Visible = False
.CommandBars("Microsoft Office Live Add-in").Visible = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "+{DEL}", ""
.OnKey "+{INSERT}", ""
.CellDragAndDrop = False

End With
Call Etkinlik(21, False) ' Cut
Call Etkinlik(19, False) ' Copy
Call Etkinlik(22, False) ' Paste
Call Etkinlik(755, False) 'Paste Special
With ActiveWindow

.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False

End With

End Sub
Private Sub Menü_Boşalt()

On Error GoTo Son
Do Until IsError(Application.CommandBars(1).Index)

i = Application.CommandBars(1).Index
Application.CommandBars(1).Controls(i).Delete

Loop
Son:

End Sub
Private Sub Menü_Yap()

On Error Resume Next
Set WS = ThisWorkbook.Sheets("Menü") 'Menü Sayfası
MSS = 2 'Menü Sayfası İlk Menü Satırı
For i = 1 To 999

Set MNT(i) = Nothing

Next i
Do Until VBA.IsEmpty(WS.Cells(MSS, 1))

With WS

MH = .Cells(MSS, 1) 'Menü Hiyerarşisi
MB = .Cells(MSS, 2) 'Menü Başlığı
PvM = .Cells(MSS, 3) 'Ana Menü Pozisyonu veya Menü Makro Adı
MA = .Cells(MSS, 4) 'Menüler Arası Ayrım
MS = .Cells(MSS, 5) 'Menü Simgesi
MU = .Cells(MSS, 6) 'Menü Uygulama [Enabled/Disabled]
SMH = .Cells(MSS + 1, 1) 'Sonraki Menü Hiyerarşisi

End With
Select Case MH

Case 1

Set MNT(MH) = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=PvM, Temporary:=True)
MNT(MH).Caption = MSS - 1 & ": " & MB
MNT(MH).BeginGroup = MA
MNT(MH).Enabled = MU

Case Is > 1

If SMH > MH Then

Set MNT(MH) = MNT(MH - 1).Controls.Add(Type:=msoControlPopup)
MNT(MH).Caption = MSS - 1 & ": " & MB
If MS <> "" Then MNT(MH).FaceId = MS
If MA <> "" Then MNT(MH).BeginGroup = MA
If MU <> "" Then MNT(MH).Enabled = MU

Else

Set MNT(MH) = MNT(MH - 1).Controls.Add(Type:=msoControlButton)
MNT(MH).Caption = MSS - 1 & ": " & MB
If MS <> "" Then MNT(MH).FaceId = MS
If MA <> "" Then MNT(MH).BeginGroup = MA
If MU <> "" Then MNT(MH).Enabled = MU
If PvM <> "" Then MNT(MH).OnAction = PvM

End If

End Select
MSS = MSS + 1

Loop

End Sub
Private Sub Exceli_Orjinal_Duruma_Getir()

On Error GoTo Devam
CommandBars("Toolbar List").Enabled = True 'CommandBars'daki Ters (RightClick) Tıkla PopUp Menü
For Each CB In CommandBars

If CB.Type = msoBarTypePopup Then CB.Enabled = True 'Sheet'deki Ters (RightClick) Tıkla PopUp Menü

Next CB
Devam:
On Error Resume Next
MenuBars(xlWorksheet).Reset
With Application

.DisplayFormulaBar = True
.DisplayStatusBar = True
.ShowWindowsInTaskbar = True
.CommandBars("Standard").Visible = True
.CommandBars("Formatting").Visible = True
.CommandBars("Borders").Visible = False
.CommandBars("Chart").Visible = False
.CommandBars("Control Toolbox").Visible = False
.CommandBars("Drawing").Visible = False
.CommandBars("External Data").Visible = False
.CommandBars("Forms").Visible = False
.CommandBars("Formula Auditing").Visible = False
.CommandBars("List").Visible = False
.CommandBars("Picture").Visible = False
.CommandBars("PivotTable").Visible = False
.CommandBars("Protection").Visible = False
.CommandBars("Reviewing").Visible = False
.CommandBars("Stop Recording").Visible = False
.CommandBars("Text To Speech").Visible = False
.CommandBars("Visual Basic").Visible = False
.CommandBars("Web").Visible = False
.CommandBars("WordArt").Visible = False
.CommandBars("Microsoft Office Live Add-in").Visible = False
.OnKey "^c"
.OnKey "^v"
.OnKey "+{DEL}"
.OnKey "+{INSERT}"
.CellDragAndDrop = True

End With
Call Etkinlik(21, True) ' Cut
Call Etkinlik(19, True) ' Copy
Call Etkinlik(22, True) ' Paste
Call Etkinlik(755, True) 'Paste Special
With ActiveWindow

.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True

End With
Call Simge_Değiştir("EXCEL.exe")
Application.Caption = ExcelBaşlık
ActiveWindow.Caption = SayfaBaşlık

End Sub
Private Sub Etkinlik(Id As Integer, Enabled As Boolean)

Dim CB As CommandBar
Dim C As CommandBarControl
For Each CB In Application.CommandBars

Set C = CB.FindControl(Id:=Id, recursive:=True)
If Not C Is Nothing Then C.Enabled = Enabled

Next CB

End Sub
Private Sub Sayfa_Düzeni()

On Error Resume Next
ThisWorkbook.Sheets("Menü").Select
If VBA.Err.Number > 0 Then 'Örnek menü sayfası kurar

ThisWorkbook.Worksheets.Add
ActiveSheet.Name = "Menü"
VBA.Err.Number = 0
ThisWorkbook.Sheets("Menü").Select
Range("A1").FormulaR1C1 = "Menü Hiyerarşisi": Range("B1").FormulaR1C1 = "Menü Başlığı": Range("C1").FormulaR1C1 = "Makro veya Pozisyonu": Range("D1").FormulaR1C1 = "Menü Ayırımı": Range("E1").FormulaR1C1 = "Menü Simgesi": Range("F1").FormulaR1C1 = "Menü Uygulama"
Range("A2").FormulaR1C1 = "1": Range("B2").FormulaR1C1 = "Dosya": Range("C2").FormulaR1C1 = "1": Range("D2").FormulaR1C1 = "": Range("E2").FormulaR1C1 = "": Range("F2").FormulaR1C1 = "TRUE"
Range("A3").FormulaR1C1 = "2": Range("B3").FormulaR1C1 = "Sakla ve Excel'e Dön": Range("C3").FormulaR1C1 = "Makro1": Range("D3").FormulaR1C1 = "": Range("E3").FormulaR1C1 = "3": Range("F3").FormulaR1C1 = "TRUE"
Range("A4").FormulaR1C1 = "2": Range("B4").FormulaR1C1 = "Sakla ve Excel'den Çık": Range("C4").FormulaR1C1 = "Makro2": Range("D4").FormulaR1C1 = "": Range("E4").FormulaR1C1 = "1640": Range("F4").FormulaR1C1 = "TRUE"
Range("A5").FormulaR1C1 = "1": Range("B5").FormulaR1C1 = "Menü1": Range("C5").FormulaR1C1 = "2": Range("D5").FormulaR1C1 = "": Range("E5").FormulaR1C1 = "": Range("F5").FormulaR1C1 = "TRUE"
Range("A6").FormulaR1C1 = "2": Range("B6").FormulaR1C1 = "Menü1.1": Range("C6").FormulaR1C1 = "Uyarı_Makrosu": Range("D6").FormulaR1C1 = "": Range("E6").FormulaR1C1 = "36": Range("F6").FormulaR1C1 = "TRUE"
Range("A7").FormulaR1C1 = "2": Range("B7").FormulaR1C1 = "Menü1.2": Range("C7").FormulaR1C1 = "Uyarı_Makrosu": Range("D7").FormulaR1C1 = "": Range("E7").FormulaR1C1 = "36": Range("F7").FormulaR1C1 = "TRUE"
Range("A8").FormulaR1C1 = "2": Range("B8").FormulaR1C1 = "Menü1.3": Range("C8").FormulaR1C1 = "Uyarı_Makrosu": Range("D8").FormulaR1C1 = "": Range("E8").FormulaR1C1 = "36": Range("F8").FormulaR1C1 = "TRUE"
Range("A9").FormulaR1C1 = "2": Range("B9").FormulaR1C1 = "Menü1.4": Range("C9").FormulaR1C1 = "": Range("D9").FormulaR1C1 = "": Range("E9").FormulaR1C1 = "": Range("F9").FormulaR1C1 = "TRUE"
Range("A10").FormulaR1C1 = "3": Range("B10").FormulaR1C1 = "Menü1.4.1": Range("C10").FormulaR1C1 = "Uyarı_Makrosu": Range("D10").FormulaR1C1 = "": Range("E10").FormulaR1C1 = "36": Range("F10").FormulaR1C1 = "TRUE"
Range("A11").FormulaR1C1 = "3": Range("B11").FormulaR1C1 = "Menü1.4.2": Range("C11").FormulaR1C1 = "Uyarı_Makrosu": Range("D11").FormulaR1C1 = "": Range("E11").FormulaR1C1 = "36": Range("F11").FormulaR1C1 = "TRUE"
Range("A12").FormulaR1C1 = "3": Range("B12").FormulaR1C1 = "Menü1.4.3": Range("C12").FormulaR1C1 = "Uyarı_Makrosu": Range("D12").FormulaR1C1 = "": Range("E12").FormulaR1C1 = "36": Range("F12").FormulaR1C1 = "TRUE"
Range("A13").FormulaR1C1 = "3": Range("B13").FormulaR1C1 = "Menü1.4.4": Range("C13").FormulaR1C1 = "": Range("D13").FormulaR1C1 = "": Range("E13").FormulaR1C1 = "": Range("F13").FormulaR1C1 = "TRUE"
Range("A14").FormulaR1C1 = "4": Range("B14").FormulaR1C1 = "Menü1.4.4.1": Range("C14").FormulaR1C1 = "Uyarı_Makrosu": Range("D14").FormulaR1C1 = "": Range("E14").FormulaR1C1 = "36": Range("F14").FormulaR1C1 = "TRUE"
Range("A15").FormulaR1C1 = "4": Range("B15").FormulaR1C1 = "Menü1.4.4.2": Range("C15").FormulaR1C1 = "Uyarı_Makrosu": Range("D15").FormulaR1C1 = "": Range("E15").FormulaR1C1 = "36": Range("F15").FormulaR1C1 = "TRUE"
Range("A16").FormulaR1C1 = "4": Range("B16").FormulaR1C1 = "Menü1.4.4.3": Range("C16").FormulaR1C1 = "Uyarı_Makrosu": Range("D16").FormulaR1C1 = "": Range("E16").FormulaR1C1 = "36": Range("F16").FormulaR1C1 = "TRUE"
Range("A17").FormulaR1C1 = "4": Range("B17").FormulaR1C1 = "Menü1.4.4.4": Range("C17").FormulaR1C1 = "": Range("D17").FormulaR1C1 = "": Range("E17").FormulaR1C1 = "": Range("F17").FormulaR1C1 = "TRUE"
Range("A18").FormulaR1C1 = "5": Range("B18").FormulaR1C1 = "Menü1.4.4.4.1": Range("C18").FormulaR1C1 = "Uyarı_Makrosu": Range("D18").FormulaR1C1 = "": Range("E18").FormulaR1C1 = "36": Range("F18").FormulaR1C1 = "TRUE"
Range("A19").FormulaR1C1 = "5": Range("B19").FormulaR1C1 = "Menü1.4.4.4.2": Range("C19").FormulaR1C1 = "Uyarı_Makrosu": Range("D19").FormulaR1C1 = "": Range("E19").FormulaR1C1 = "36": Range("F19").FormulaR1C1 = "TRUE"
Range("A20").FormulaR1C1 = "5": Range("B20").FormulaR1C1 = "Menü1.4.4.4.3": Range("C20").FormulaR1C1 = "Uyarı_Makrosu": Range("D20").FormulaR1C1 = "": Range("E20").FormulaR1C1 = "36": Range("F20").FormulaR1C1 = "TRUE"
Range("A21").FormulaR1C1 = "5": Range("B21").FormulaR1C1 = "Menü1.4.4.4.4": Range("C21").FormulaR1C1 = "": Range("D21").FormulaR1C1 = "": Range("E21").FormulaR1C1 = "": Range("F21").FormulaR1C1 = "TRUE"
Range("A22").FormulaR1C1 = "6": Range("B22").FormulaR1C1 = "Menü1.4.4.4.4.1": Range("C22").FormulaR1C1 = "Uyarı_Makrosu": Range("D22").FormulaR1C1 = "TRUE": Range("E22").FormulaR1C1 = "36": Range("F22").FormulaR1C1 = "FALSE"
Range("A23").FormulaR1C1 = "6": Range("B23").FormulaR1C1 = "Menü1.4.4.4.4.2": Range("C23").FormulaR1C1 = "Uyarı_Makrosu": Range("D23").FormulaR1C1 = "": Range("E23").FormulaR1C1 = "36": Range("F23").FormulaR1C1 = "FALSE"
Range("A24").FormulaR1C1 = "6": Range("B24").FormulaR1C1 = "Menü1.4.4.4.4.3": Range("C24").FormulaR1C1 = "Uyarı_Makrosu": Range("D24").FormulaR1C1 = "TRUE": Range("E24").FormulaR1C1 = "36": Range("F24").FormulaR1C1 = "FALSE"
Range("A25").FormulaR1C1 = "6": Range("B25").FormulaR1C1 = "Menü1.4.4.4.4.4": Range("C25").FormulaR1C1 = "Uyarı_Makrosu": Range("D25").FormulaR1C1 = "": Range("E25").FormulaR1C1 = "36": Range("F25").FormulaR1C1 = "FALSE"
Range("A26").FormulaR1C1 = "6": Range("B26").FormulaR1C1 = "Menü1.4.4.4.4.5": Range("C26").FormulaR1C1 = "Uyarı_Makrosu": Range("D26").FormulaR1C1 = "TRUE": Range("E26").FormulaR1C1 = "36": Range("F26").FormulaR1C1 = "FALSE"
Range("A27").FormulaR1C1 = "6": Range("B27").FormulaR1C1 = "Menü1.4.4.4.4.6": Range("C27").FormulaR1C1 = "Uyarı_Makrosu": Range("D27").FormulaR1C1 = "": Range("E27").FormulaR1C1 = "36": Range("F27").FormulaR1C1 = "FALSE"

Range("A28").FormulaR1C1 = "2": Range("B28").FormulaR1C1 = "Menü1.5": Range("C28").FormulaR1C1 = "": Range("D28").FormulaR1C1 = "": Range("E28").FormulaR1C1 = "": Range("F28").FormulaR1C1 = "TRUE"
Range("A29").FormulaR1C1 = "3": Range("B29").FormulaR1C1 = "Menü1.5.1": Range("C29").FormulaR1C1 = "Uyarı_Makrosu": Range("D29").FormulaR1C1 = "": Range("E29").FormulaR1C1 = "36": Range("F29").FormulaR1C1 = "TRUE"
Range("A30").FormulaR1C1 = "3": Range("B30").FormulaR1C1 = "Menü1.5.2": Range("C30").FormulaR1C1 = "Uyarı_Makrosu": Range("D30").FormulaR1C1 = "": Range("E30").FormulaR1C1 = "36": Range("F30").FormulaR1C1 = "TRUE"
Range("A31").FormulaR1C1 = "3": Range("B31").FormulaR1C1 = "Menü1.5.3": Range("C31").FormulaR1C1 = "Uyarı_Makrosu": Range("D31").FormulaR1C1 = "": Range("E31").FormulaR1C1 = "36": Range("F31").FormulaR1C1 = "TRUE"
Range("A32").FormulaR1C1 = "3": Range("B32").FormulaR1C1 = "Menü1.5.4": Range("C32").FormulaR1C1 = "Uyarı_Makrosu": Range("D32").FormulaR1C1 = "": Range("E32").FormulaR1C1 = "36": Range("F32").FormulaR1C1 = "TRUE"

Range("A33").FormulaR1C1 = "1": Range("B33").FormulaR1C1 = "Menü2": Range("C33").FormulaR1C1 = "3": Range("D33").FormulaR1C1 = "": Range("E33").FormulaR1C1 = "": Range("F33").FormulaR1C1 = "TRUE"
Range("A34").FormulaR1C1 = "2": Range("B34").FormulaR1C1 = "Menü2.1": Range("C34").FormulaR1C1 = "Uyarı_Makrosu": Range("D34").FormulaR1C1 = "": Range("E34").FormulaR1C1 = "36": Range("F34").FormulaR1C1 = "TRUE"
Range("A35").FormulaR1C1 = "2": Range("B35").FormulaR1C1 = "Menü2.2": Range("C35").FormulaR1C1 = "Uyarı_Makrosu": Range("D35").FormulaR1C1 = "": Range("E35").FormulaR1C1 = "36": Range("F35").FormulaR1C1 = "TRUE"
Range("A36").FormulaR1C1 = "2": Range("B36").FormulaR1C1 = "Menü2.3": Range("C36").FormulaR1C1 = "Uyarı_Makrosu": Range("D36").FormulaR1C1 = "TRUE": Range("E36").FormulaR1C1 = "36": Range("F36").FormulaR1C1 = "TRUE"
Range("A37").FormulaR1C1 = "2": Range("B37").FormulaR1C1 = "Menü2.4": Range("C37").FormulaR1C1 = "Uyarı_Makrosu": Range("D37").FormulaR1C1 = "": Range("E37").FormulaR1C1 = "36": Range("F37").FormulaR1C1 = "TRUE"
Range("A38").FormulaR1C1 = "2": Range("B38").FormulaR1C1 = "Menü2.5": Range("C38").FormulaR1C1 = "Uyarı_Makrosu": Range("D38").FormulaR1C1 = "": Range("E38").FormulaR1C1 = "36": Range("F38").FormulaR1C1 = "TRUE"
Range("A39").FormulaR1C1 = "2": Range("B39").FormulaR1C1 = "Menü2.6": Range("C39").FormulaR1C1 = "Uyarı_Makrosu": Range("D39").FormulaR1C1 = "TRUE": Range("E39").FormulaR1C1 = "36": Range("F39").FormulaR1C1 = "TRUE"
With Range("A1:F1")

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = True
.Font.ColorIndex = 2
With .Interior

.ColorIndex = 5
.Pattern = xlSolid

End With

End With
With Range("A1,D1,E1,F1")

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

End With
With Range("A2:F39")

.Font.ColorIndex = 5
.Locked = False
.FormulaHidden = False

End With
With Range("C1")

.AddComment
.Comment.Visible = False
.Comment.Text Text:="Menü Hiyerarşisi 1 olan satırlara 1 den başlamak üzere, ardışık numaralar verilir." & Chr(10) & ""
.ShapeRange.ScaleWidth 2.31, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft

End With
Columns("A:A").ColumnWidth = 6
Columns("B:B").ColumnWidth = 72
Columns("C:C").ColumnWidth = 18
Columns("D:F").ColumnWidth = 6
Range("A1:F340").Font.Size = 8
Rows("1:1").RowHeight = 54
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End If
ThisWorkbook.Sheets("Kapak").Select
If VBA.Err.Number > 0 Then 'Kapak Sayfasını kurar

ThisWorkbook.Worksheets.Add
ActiveSheet.Name = "Kapak"
VBA.Err.Number = 0
With ActiveWindow

.DisplayFormulas = False
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayZeros = False

End With
ActiveSheet.DisplayAutomaticPageBreaks = False
With Range("A1")

.ColumnWidth = 0.01
.RowHeight = 1

End With
Sheets("Kapak").ScrollArea = "A1"

End If
With ActiveWindow

.DisplayFormulas = False
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayZeros = False

End With
ActiveSheet.DisplayAutomaticPageBreaks = False

End Sub
'Menü Makroları--------------------------------------------------------------------------------------
Private Sub Uyarı_Makrosu()

MsgBox "Bir sorgulama oluşturulmamıştır...."

End Sub
Private Sub Makro1()

ThisWorkbook.Save
Call Exceli_Orjinal_Duruma_Getir

End Sub
Private Sub Makro2()

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.ScreenUpdating = False
Call Exceli_Orjinal_Duruma_Getir
Application.Quit

End Sub

Şirket Değerlemeye Yönelik İndirgenmiş Nakit Akımları [İNA] Hesaplama Yöntemi

 
'Module1

Sub INA_Kur()
    On Error Resume Next
    ActiveSheet.Unprotect
    ActiveWindow.FreezePanes = False
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "ŞİRKET DEĞERLEMEYE YÖNELİK İNDİRGENMİŞ NAKİT AKIMLARI [İNA] HESAPLAMA YÖNTEMİ"
    Columns("A:A").ColumnWidth = 6
    Columns("B:B").ColumnWidth = 94
    Columns("C:G").ColumnWidth = 14
    Range("A14").FormulaR1C1 = "İşlem Tanımı"
    Range("C14").FormulaR1C1 = "2010"
    Range("D14").FormulaR1C1 = "2011"
    Range("E14").FormulaR1C1 = "2012"
    Range("F14").FormulaR1C1 = "2013"
    Range("G14").FormulaR1C1 = "2014"
    Range("A15").FormulaR1C1 = "A"
    Range("A16").FormulaR1C1 = "B"
    Range("A17").FormulaR1C1 = "C"
    Range("A18").FormulaR1C1 = "C1"
    Range("A19").FormulaR1C1 = "C2"
    Range("A20").FormulaR1C1 = "C3"
    Range("A21").FormulaR1C1 = "C4"
    Range("A22").FormulaR1C1 = "D"
    Range("A23").FormulaR1C1 = "E"
    Range("A24").FormulaR1C1 = "F"
    Range("A25").FormulaR1C1 = "G"
    Range("B15").FormulaR1C1 = "Borçlanma Maliyeti [Rd]"
    Range("B16").FormulaR1C1 = "Vergi Oranı [Rt]"
    Range("B17").FormulaR1C1 = "Öz Kaynak Maliyeti (Rate cost of Equity= C1+ (C2 * (R3 - C1)) + C4 ) [Re][Capital Asset Pricing Model (CAPM)] "
    Range("B18").FormulaR1C1 = "Risksiz Getiri [Rf]"
    Range("B19").FormulaR1C1 = "Pay Senedinin Risk Endeksi (Beta) [B]"
    Range("B20").FormulaR1C1 = "Pay Senedi Pazarında Beklenen Getiri  [Rm]"
    Range("B21").FormulaR1C1 = "Ülke Riski [Rc]"
    Range("B22").FormulaR1C1 = "Sabit Büyüme Oranı"
    Range("B23").FormulaR1C1 = "Borç Ağırlığı ((e + f) / h)"
    Range("B24").FormulaR1C1 = "Öz Kaynak Ağırlığı (g / h)"
    Range("B25").FormulaR1C1 = "Ağırlıklı Ortlama Sermaye Maliyeti [Weighted Average Cost of Capital WACC] ((A * (1 - B) * E) + (C * F))"
    Range("C15").FormulaR1C1 = "8%"
    Range("C16").FormulaR1C1 = "20%"
    Range("C17").FormulaR1C1 = "=R[1]C+(R[2]C*(R[3]C-R[1]C))+R[4]C"
    Range("C18").FormulaR1C1 = "8%"
    Range("C19").FormulaR1C1 = "1.2"
    Range("C20").FormulaR1C1 = "13%"
    Range("C21").FormulaR1C1 = "5%"
    Range("C22").FormulaR1C1 = "2%"
    Range("C23").FormulaR1C1 = "=IF(R[101]C=0,0,(R[77]C+R[86]C)/R[101]C)"
    Range("C24").FormulaR1C1 = "=IF(R[100]C=0,0,R[93]C/R[100]C)"
    Range("C25").FormulaR1C1 = "=(R[-10]C*(1-R[-9]C)*R[-2]C)+(R[-8]C*R[-1]C)"
    Range("D15").FormulaR1C1 = "8%"
    Range("D16").FormulaR1C1 = "20%"
    Range("D17").FormulaR1C1 = "=R[1]C+(R[2]C*(R[3]C-R[1]C))+R[4]C"
    Range("D18").FormulaR1C1 = "8%"
    Range("D19").FormulaR1C1 = "1.2"
    Range("D20").FormulaR1C1 = "13%"
    Range("D21").FormulaR1C1 = "5%"
    Range("D22").FormulaR1C1 = "2%"
    Range("D23").FormulaR1C1 = "=IF(R[101]C=0,0,(R[77]C+R[86]C)/R[101]C)"
    Range("D24").FormulaR1C1 = "=IF(R[100]C=0,0,R[93]C/R[100]C)"
    Range("D25").FormulaR1C1 = "=(R[-10]C*(1-R[-9]C)*R[-2]C)+(R[-8]C*R[-1]C)"
    Range("E15").FormulaR1C1 = "8%"
    Range("E16").FormulaR1C1 = "20%"
    Range("E17").FormulaR1C1 = "=R[1]C+(R[2]C*(R[3]C-R[1]C))+R[4]C"
    Range("E18").FormulaR1C1 = "8%"
    Range("E19").FormulaR1C1 = "1.2"
    Range("E20").FormulaR1C1 = "13%"
    Range("E21").FormulaR1C1 = "5%"
    Range("E22").FormulaR1C1 = "2%"
    Range("E23").FormulaR1C1 = "=IF(R[101]C=0,0,(R[77]C+R[86]C)/R[101]C)"
    Range("E24").FormulaR1C1 = "=IF(R[100]C=0,0,R[93]C/R[100]C)"
    Range("E25").FormulaR1C1 = "=(R[-10]C*(1-R[-9]C)*R[-2]C)+(R[-8]C*R[-1]C)"
    Range("F15").FormulaR1C1 = "8%"
    Range("F16").FormulaR1C1 = "20%"
    Range("F17").FormulaR1C1 = "=R[1]C+(R[2]C*(R[3]C-R[1]C))+R[4]C"
    Range("F18").FormulaR1C1 = "8%"
    Range("F19").FormulaR1C1 = "1.2"
    Range("F20").FormulaR1C1 = "13%"
    Range("F21").FormulaR1C1 = "5%"
    Range("F22").FormulaR1C1 = "2%"
    Range("F23").FormulaR1C1 = "=IF(R[101]C=0,0,(R[77]C+R[86]C)/R[101]C)"
    Range("F24").FormulaR1C1 = "=IF(R[100]C=0,0,R[93]C/R[100]C)"
    Range("F25").FormulaR1C1 = "=(R[-10]C*(1-R[-9]C)*R[-2]C)+(R[-8]C*R[-1]C)"
    Range("G15").FormulaR1C1 = "8%"
    Range("G16").FormulaR1C1 = "20%"
    Range("G17").FormulaR1C1 = "=R[1]C+(R[2]C*(R[3]C-R[1]C))+R[4]C"
    Range("G18").FormulaR1C1 = "8%"
    Range("G19").FormulaR1C1 = "1.2"
    Range("G20").FormulaR1C1 = "13%"
    Range("G21").FormulaR1C1 = "5%"
    Range("G22").FormulaR1C1 = "2%"
    Range("G23").FormulaR1C1 = "=IF(R[101]C=0,0,(R[77]C+R[86]C)/R[101]C)"
    Range("G24").FormulaR1C1 = "=IF(R[100]C=0,0,R[93]C/R[100]C)"
    Range("G25").FormulaR1C1 = "=(R[-10]C*(1-R[-9]C)*R[-2]C)+(R[-8]C*R[-1]C)"
    Range("A27").FormulaR1C1 = "H"
    Range("A28").FormulaR1C1 = "I"
    Range("A29").FormulaR1C1 = "'1"
    Range("A30").FormulaR1C1 = "a"
    Range("A31").FormulaR1C1 = "b"
    Range("A32").FormulaR1C1 = "c"
    Range("A33").FormulaR1C1 = "'2"
    Range("A34").FormulaR1C1 = "'3"
    Range("A35").FormulaR1C1 = "'4"
    Range("A36").FormulaR1C1 = "a"
    Range("A37").FormulaR1C1 = "b"
    Range("A38").FormulaR1C1 = "c"
    Range("A39").FormulaR1C1 = "'5"
    Range("A40").FormulaR1C1 = "a"
    Range("A41").FormulaR1C1 = "b"
    Range("A42").FormulaR1C1 = "c"
    Range("A43").FormulaR1C1 = "'6"
    Range("A44").FormulaR1C1 = "'7"
    Range("A45").FormulaR1C1 = "'8"
    Range("A46").FormulaR1C1 = "J"
    Range("A47").FormulaR1C1 = "'1"
    Range("A48").FormulaR1C1 = "a"
    Range("A49").FormulaR1C1 = "b"
    Range("A50").FormulaR1C1 = "c"
    Range("A51").FormulaR1C1 = "d"
    Range("A52").FormulaR1C1 = "e"
    Range("A53").FormulaR1C1 = "f"
    Range("A54").FormulaR1C1 = "'2"
    Range("A55").FormulaR1C1 = "a"
    Range("A56").FormulaR1C1 = "b"
    Range("A57").FormulaR1C1 = "c"
    Range("A58").FormulaR1C1 = "d"
    Range("A59").FormulaR1C1 = "'3"
    Range("A60").FormulaR1C1 = "a"
    Range("A61").FormulaR1C1 = "b"
    Range("A62").FormulaR1C1 = "'4"
    Range("A63").FormulaR1C1 = "'5"
    Range("A64").FormulaR1C1 = "a"
    Range("A65").FormulaR1C1 = "b"
    Range("A66").FormulaR1C1 = "'6"
    Range("A67").FormulaR1C1 = "'7"
    Range("A68").FormulaR1C1 = "a"
    Range("A69").FormulaR1C1 = "b"
    Range("A70").FormulaR1C1 = "c"
    Range("A71").FormulaR1C1 = "'8"
    Range("A72").FormulaR1C1 = "a"
    Range("A73").FormulaR1C1 = "b"
    Range("A74").FormulaR1C1 = "c"
    Range("A75").FormulaR1C1 = "'9"
    Range("A76").FormulaR1C1 = "'10"
    Range("A77").FormulaR1C1 = "K"
    Range("A78").FormulaR1C1 = "L"
    Range("A79").FormulaR1C1 = "M"
    Range("B27").FormulaR1C1 = "DÖNEM BAŞI NAKİT MEVCUDU"
    Range("B28").FormulaR1C1 = "DÖNEM İÇİ NAKİT GİRİŞLERİ"
    Range("B29").FormulaR1C1 = "Satışlardan Elde Edilen Nakit"
    Range("B30").FormulaR1C1 = "Net Satışlar"
    Range("B31").FormulaR1C1 = "Ticari Alacaklardaki Azalışlar"
    Range("B32").FormulaR1C1 = "Ticari Alacaklardaki Artışlar (-)"
    Range("B33").FormulaR1C1 = "Diğer Faaliyetlerden Olağan Gelir ve Karlardan Dolayı Sağlanan Nakit"
    Range("B34").FormulaR1C1 = "Olağandışı Gelir ve Karlardan Sağlanan Nakit"
    Range("B35").FormulaR1C1 = "Kısa Vadeli Yabancı Kaynaklardaki Artışlardan Sağlanan Nakit (Alımlarla İlgili Olmayan)"
    Range("B36").FormulaR1C1 = "Menkul Kıymet İhraçlarından"
    Range("B37").FormulaR1C1 = "Alınan Krediler"
    Range("B38").FormulaR1C1 = "Diğer Artışlar"
    Range("B39").FormulaR1C1 = "Uzun Vadeli Yabancı Kaynaklardaki Artışlardan Sağlanan Nakit (Alımlarla İlgili Olmayan)"
    Range("B40").FormulaR1C1 = "Menkul Kıymet İhraçlarından"
    Range("B41").FormulaR1C1 = "Alınan Krediler"
    Range("B42").FormulaR1C1 = "Diğer Artışlar"
    Range("B43").FormulaR1C1 = "Sermaye Artışından Sağlanan Nakit"
    Range("B44").FormulaR1C1 = "Hisse Senedi İhraç Primlerinden Sağlanan Nakit"
    Range("B45").FormulaR1C1 = "Diğer Nakit Girişleri"
    Range("B46").FormulaR1C1 = "DÖNEM İÇİ NAKİT ÇIKIŞLARI"
    Range("B47").FormulaR1C1 = "Maliyetlerden Kaynaklanan Nakit Çıkışları"
    Range("B48").FormulaR1C1 = "Satışların Maliyeti"
    Range("B49").FormulaR1C1 = "Stoklardaki Artışlar"
    Range("B50").FormulaR1C1 = "Ticari Borçlardaki (Alımlardan Kaynaklanan) Azalışlar"
    Range("B51").FormulaR1C1 = "Ticari Borçlardaki (Alımlardan Kaynaklanan) Artışlar (-)"
    Range("B52").FormulaR1C1 = "Amortisman ve Nakit Çıkışı Gerektirmeyen Giderler (-)"
    Range("B53").FormulaR1C1 = "Stoklardaki Azalışlar (-)"
    Range("B54").FormulaR1C1 = "Faaliyet Giderlerine İlişkin Nakit Çıkışları"
    Range("B55").FormulaR1C1 = "Araştırma ve Geliştirme Giderleri"
    Range("B56").FormulaR1C1 = "Pazarlama Satış ve Dağıtım Giderleri"
    Range("B57").FormulaR1C1 = "Genel Yönetim Giderleri"
    Range("B58").FormulaR1C1 = "Amortisman ve Nakit Çıkışı Gerektirmeyen Diğer Giderler (-)"
    Range("B59").FormulaR1C1 = "Diğer Faaliyetlerden Olağan Gider ve Zararlara İlişkin Nakit Çıkışları"
    Range("B60").FormulaR1C1 = "Diğer Faaliyetlerle İlgili Olağan Gider ve Zararlar"
    Range("B61").FormulaR1C1 = "Amortisman ve Nakit Çıkışı Gerektirmeyen Diğer Gider ve Zararlar (-)"
    Range("B62").FormulaR1C1 = "Finansman Giderlerinden Dolayı Nakit Çıkışları "
    Range("B63").FormulaR1C1 = "Olağandışı Gider ve Zararlardan Dolayı Nakit Çıkışı"
    Range("B64").FormulaR1C1 = "Olağandışı Gider ve Zararlar"
    Range("B65").FormulaR1C1 = "Amortisman ve Nakit Çıkışı Gerektirmeyen Diğer Gider ve Zararlar (-)"
    Range("B66").FormulaR1C1 = "Duran Varlık Yatırımlarına İlişkin Nakit Çıkışları"
    Range("B67").FormulaR1C1 = "Kısa Vadeli Yabancı Kaynak Ödemeleri (Alımlarla İlgili Olmayan)"
    Range("B68").FormulaR1C1 = "Menkul Kıymetler Anapara Ödemeleri"
    Range("B69").FormulaR1C1 = "Alınan Krediler Anapara Ödemeleri"
    Range("B70").FormulaR1C1 = "Diğer Ödemeler"
    Range("B71").FormulaR1C1 = "Uzun Vadeli Yabancı Kaynak Ödemeleri (Alımlarla İlgili Olmayan)"
    Range("B72").FormulaR1C1 = "Menkul Kıymetler Anapara Ödemeleri"
    Range("B73").FormulaR1C1 = "Alınan Krediler Anapara Ödemeleri"
    Range("B74").FormulaR1C1 = "Diğer Ödemeler"
    Range("B75").FormulaR1C1 = "Ödenen Vergi ve Benzerleri"
    Range("B76").FormulaR1C1 = "Diğer Nakit Çıkışları"
    Range("B77").FormulaR1C1 = "DÖNEM SONU NAKİT MEVCUDU (H + I - J)"
    Range("B78").FormulaR1C1 = "NAKİT ARTIŞI VEYA AZALIŞI (I - J)"
    Range("B79").FormulaR1C1 = "FAİZ ÖNCESİ ve VERGİ SONRASI NOMİNAL NET NAKİT ARTIŞI VEYA AZALIŞI (L + J4)"
    Range("C27").FormulaR1C1 = "0"
    Range("C28").FormulaR1C1 = "=R[1]C+R[5]C+R[6]C+R[7]C+R[11]C+R[15]C+R[16]C+R[17]C"
    Range("C29").FormulaR1C1 = "=R[1]C+R[2]C-R[3]C"
    Range("C30").FormulaR1C1 = "90000"
    Range("C31").FormulaR1C1 = ""
    Range("C32").FormulaR1C1 = "780"
    Range("C33").FormulaR1C1 = ""
    Range("C34").FormulaR1C1 = ""
    Range("C35").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("C36").FormulaR1C1 = ""
    Range("C37").FormulaR1C1 = ""
    Range("C38").FormulaR1C1 = ""
    Range("C39").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("C40").FormulaR1C1 = ""
    Range("C41").FormulaR1C1 = ""
    Range("C42").FormulaR1C1 = ""
    Range("C43").FormulaR1C1 = ""
    Range("C44").FormulaR1C1 = ""
    Range("C45").FormulaR1C1 = ""
    Range("C46").FormulaR1C1 = "=R[1]C+R[8]C+R[13]C+R[16]C+R[17]C+R[20]C+R[21]C+R[25]C+R[29]C+R[30]C"
    Range("C47").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C-R[4]C-R[5]C-R[6]C"
    Range("C48").FormulaR1C1 = "52500"
    Range("C49").FormulaR1C1 = ""
    Range("C50").FormulaR1C1 = ""
    Range("C51").FormulaR1C1 = "910"
    Range("C52").FormulaR1C1 = "2700"
    Range("C53").FormulaR1C1 = ""
    Range("C54").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C-R[4]C"
    Range("C55").FormulaR1C1 = ""
    Range("C56").FormulaR1C1 = "4800"
    Range("C57").FormulaR1C1 = "3850"
    Range("C58").FormulaR1C1 = ""
    Range("C59").FormulaR1C1 = "=R[1]C-R[2]C"
    Range("C60").FormulaR1C1 = ""
    Range("C61").FormulaR1C1 = ""
    Range("C62").FormulaR1C1 = "2900"
    Range("C63").FormulaR1C1 = "=R[1]C-R[2]C"
    Range("C64").FormulaR1C1 = ""
    Range("C65").FormulaR1C1 = ""
    Range("C66").FormulaR1C1 = "9000"
    Range("C67").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("C68").FormulaR1C1 = ""
    Range("C69").FormulaR1C1 = ""
    Range("C70").FormulaR1C1 = ""
    Range("C71").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("C72").FormulaR1C1 = ""
    Range("C73").FormulaR1C1 = ""
    Range("C74").FormulaR1C1 = ""
    Range("C75").FormulaR1C1 = "5190"
    Range("C76").FormulaR1C1 = ""
    Range("C77").FormulaR1C1 = "=R[-50]C+R[-49]C-R[-31]C"
    Range("C78").FormulaR1C1 = "=R[-49]C-R[-32]C"
    Range("C79").FormulaR1C1 = "=R[-1]C+R[-17]C"
    Range("D27").FormulaR1C1 = "=R[55]C[-1]"
    Range("D28").FormulaR1C1 = "=R[1]C+R[5]C+R[6]C+R[7]C+R[11]C+R[15]C+R[16]C+R[17]C"
    Range("D29").FormulaR1C1 = "=R[1]C+R[2]C-R[3]C"
    Range("D30").FormulaR1C1 = "100000"
    Range("D31").FormulaR1C1 = ""
    Range("D32").FormulaR1C1 = "1330"
    Range("D33").FormulaR1C1 = ""
    Range("D34").FormulaR1C1 = ""
    Range("D35").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("D36").FormulaR1C1 = ""
    Range("D37").FormulaR1C1 = ""
    Range("D38").FormulaR1C1 = ""
    Range("D39").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("D40").FormulaR1C1 = ""
    Range("D41").FormulaR1C1 = ""
    Range("D42").FormulaR1C1 = ""
    Range("D43").FormulaR1C1 = ""
    Range("D44").FormulaR1C1 = ""
    Range("D45").FormulaR1C1 = ""
    Range("D46").FormulaR1C1 = "=R[1]C+R[8]C+R[13]C+R[16]C+R[17]C+R[20]C+R[21]C+R[25]C+R[29]C+R[30]C"
    Range("D47").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C-R[4]C-R[5]C-R[6]C"
    Range("D48").FormulaR1C1 = "60000"
    Range("D49").FormulaR1C1 = "2000"
    Range("D50").FormulaR1C1 = ""
    Range("D51").FormulaR1C1 = "1170"
    Range("D52").FormulaR1C1 = "3000"
    Range("D53").FormulaR1C1 = ""
    Range("D54").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C-R[4]C"
    Range("D55").FormulaR1C1 = ""
    Range("D56").FormulaR1C1 = "5000"
    Range("D57").FormulaR1C1 = "4000"
    Range("D58").FormulaR1C1 = ""
    Range("D59").FormulaR1C1 = "=R[1]C-R[2]C"
    Range("D60").FormulaR1C1 = ""
    Range("D61").FormulaR1C1 = ""
    Range("D62").FormulaR1C1 = "3000"
    Range("D63").FormulaR1C1 = "=R[1]C-R[2]C"
    Range("D64").FormulaR1C1 = ""
    Range("D65").FormulaR1C1 = ""
    Range("D66").FormulaR1C1 = "10000"
    Range("D67").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("D68").FormulaR1C1 = ""
    Range("D69").FormulaR1C1 = ""
    Range("D70").FormulaR1C1 = ""
    Range("D71").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("D72").FormulaR1C1 = ""
    Range("D73").FormulaR1C1 = ""
    Range("D74").FormulaR1C1 = ""
    Range("D75").FormulaR1C1 = "5600"
    Range("D76").FormulaR1C1 = ""
    Range("D77").FormulaR1C1 = "=R[-50]C+R[-49]C-R[-31]C"
    Range("D78").FormulaR1C1 = "=R[-49]C-R[-32]C"
    Range("D79").FormulaR1C1 = "=R[-1]C+R[-17]C"
    Range("E27").FormulaR1C1 = "=R[50]C[-1]"
    Range("E28").FormulaR1C1 = "=R[1]C+R[5]C+R[6]C+R[7]C+R[11]C+R[15]C+R[16]C+R[17]C"
    Range("E29").FormulaR1C1 = "=R[1]C+R[2]C-R[3]C"
    Range("E30").FormulaR1C1 = "110000"
    Range("E31").FormulaR1C1 = ""
    Range("E32").FormulaR1C1 = "830"
    Range("E33").FormulaR1C1 = ""
    Range("E34").FormulaR1C1 = ""
    Range("E35").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("E36").FormulaR1C1 = ""
    Range("E37").FormulaR1C1 = ""
    Range("E38").FormulaR1C1 = ""
    Range("E39").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("E40").FormulaR1C1 = ""
    Range("E41").FormulaR1C1 = ""
    Range("E42").FormulaR1C1 = ""
    Range("E43").FormulaR1C1 = ""
    Range("E44").FormulaR1C1 = ""
    Range("E45").FormulaR1C1 = ""
    Range("E46").FormulaR1C1 = "=R[1]C+R[8]C+R[13]C+R[16]C+R[17]C+R[20]C+R[21]C+R[25]C+R[29]C+R[30]C"
    Range("E47").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C-R[4]C-R[5]C-R[6]C"
    Range("E48").FormulaR1C1 = "66000"
    Range("E49").FormulaR1C1 = "500"
    Range("E50").FormulaR1C1 = ""
    Range("E51").FormulaR1C1 = "380"
    Range("E52").FormulaR1C1 = "3300"
    Range("E53").FormulaR1C1 = ""
    Range("E54").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C-R[4]C"
    Range("E55").FormulaR1C1 = ""
    Range("E56").FormulaR1C1 = "5100"
    Range("E57").FormulaR1C1 = "4080"
    Range("E58").FormulaR1C1 = ""
    Range("E59").FormulaR1C1 = "=R[1]C-R[2]C"
    Range("E60").FormulaR1C1 = ""
    Range("E61").FormulaR1C1 = ""
    Range("E62").FormulaR1C1 = "3090"
    Range("E63").FormulaR1C1 = "=R[1]C-R[2]C"
    Range("E64").FormulaR1C1 = ""
    Range("E65").FormulaR1C1 = ""
    Range("E66").FormulaR1C1 = "11000"
    Range("E67").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("E68").FormulaR1C1 = ""
    Range("E69").FormulaR1C1 = ""
    Range("E70").FormulaR1C1 = ""
    Range("E71").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("E72").FormulaR1C1 = ""
    Range("E73").FormulaR1C1 = ""
    Range("E74").FormulaR1C1 = ""
    Range("E75").FormulaR1C1 = "6346"
    Range("E76").FormulaR1C1 = ""
    Range("E77").FormulaR1C1 = "=R[-50]C+R[-49]C-R[-31]C"
    Range("E78").FormulaR1C1 = "=R[-49]C-R[-32]C"
    Range("E79").FormulaR1C1 = "=R[-1]C+R[-17]C"
    Range("F27").FormulaR1C1 = "=R[50]C[-1]"
    Range("F28").FormulaR1C1 = "=R[1]C+R[5]C+R[6]C+R[7]C+R[11]C+R[15]C+R[16]C+R[17]C"
    Range("F29").FormulaR1C1 = "=R[1]C+R[2]C-R[3]C"
    Range("F30").FormulaR1C1 = "121000"
    Range("F31").FormulaR1C1 = ""
    Range("F32").FormulaR1C1 = "920"
    Range("F33").FormulaR1C1 = ""
    Range("F34").FormulaR1C1 = ""
    Range("F35").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("F36").FormulaR1C1 = ""
    Range("F37").FormulaR1C1 = ""
    Range("F38").FormulaR1C1 = ""
    Range("F39").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("F40").FormulaR1C1 = ""
    Range("F41").FormulaR1C1 = ""
    Range("F42").FormulaR1C1 = ""
    Range("F43").FormulaR1C1 = ""
    Range("F44").FormulaR1C1 = ""
    Range("F45").FormulaR1C1 = ""
    Range("F46").FormulaR1C1 = "=R[1]C+R[8]C+R[13]C+R[16]C+R[17]C+R[20]C+R[21]C+R[25]C+R[29]C+R[30]C"
    Range("F47").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C-R[4]C-R[5]C-R[6]C"
    Range("F48").FormulaR1C1 = "72600"
    Range("F49").FormulaR1C1 = "550"
    Range("F50").FormulaR1C1 = ""
    Range("F51").FormulaR1C1 = "550"
    Range("F52").FormulaR1C1 = "=3.63*1000"
    Range("F53").FormulaR1C1 = ""
    Range("F54").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C-R[4]C"
    Range("F55").FormulaR1C1 = ""
    Range("F56").FormulaR1C1 = "5200"
    Range("F57").FormulaR1C1 = "=4.16*1000"
    Range("F58").FormulaR1C1 = ""
    Range("F59").FormulaR1C1 = "=R[1]C-R[2]C"
    Range("F60").FormulaR1C1 = ""
    Range("F61").FormulaR1C1 = ""
    Range("F62").FormulaR1C1 = "3180"
    Range("F63").FormulaR1C1 = "=R[1]C-R[2]C"
    Range("F64").FormulaR1C1 = ""
    Range("F65").FormulaR1C1 = ""
    Range("F66").FormulaR1C1 = "12100"
    Range("F67").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("F68").FormulaR1C1 = ""
    Range("F69").FormulaR1C1 = ""
    Range("F70").FormulaR1C1 = ""
    Range("F71").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("F72").FormulaR1C1 = ""
    Range("F73").FormulaR1C1 = ""
    Range("F74").FormulaR1C1 = ""
    Range("F75").FormulaR1C1 = "7172"
    Range("F76").FormulaR1C1 = ""
    Range("F77").FormulaR1C1 = "=R[-50]C+R[-49]C-R[-31]C"
    Range("F78").FormulaR1C1 = "=R[-49]C-R[-32]C"
    Range("F79").FormulaR1C1 = "=R[-1]C+R[-17]C"
    Range("G27").FormulaR1C1 = "=R[50]C[-1]"
    Range("G28").FormulaR1C1 = "=R[1]C+R[5]C+R[6]C+R[7]C+R[11]C+R[15]C+R[16]C+R[17]C"
    Range("G29").FormulaR1C1 = "=R[1]C+R[2]C-R[3]C"
    Range("G30").FormulaR1C1 = "133100"
    Range("G31").FormulaR1C1 = ""
    Range("G32").FormulaR1C1 = "1010"
    Range("G33").FormulaR1C1 = ""
    Range("G34").FormulaR1C1 = ""
    Range("G35").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("G36").FormulaR1C1 = ""
    Range("G37").FormulaR1C1 = ""
    Range("G38").FormulaR1C1 = ""
    Range("G39").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("G40").FormulaR1C1 = ""
    Range("G41").FormulaR1C1 = ""
    Range("G42").FormulaR1C1 = ""
    Range("G43").FormulaR1C1 = ""
    Range("G44").FormulaR1C1 = ""
    Range("G45").FormulaR1C1 = ""
    Range("G46").FormulaR1C1 = "=R[1]C+R[8]C+R[13]C+R[16]C+R[17]C+R[20]C+R[21]C+R[25]C+R[29]C+R[30]C"
    Range("G47").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C-R[4]C-R[5]C-R[6]C"
    Range("G48").FormulaR1C1 = "79860"
    Range("G49").FormulaR1C1 = "610"
    Range("G50").FormulaR1C1 = ""
    Range("G51").FormulaR1C1 = "610"
    Range("G52").FormulaR1C1 = "=3.99*1000"
    Range("G53").FormulaR1C1 = ""
    Range("G54").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C-R[4]C"
    Range("G55").FormulaR1C1 = ""
    Range("G56").FormulaR1C1 = "5310"
    Range("G57").FormulaR1C1 = "=4.24*1000"
    Range("G58").FormulaR1C1 = ""
    Range("G59").FormulaR1C1 = "=R[1]C-R[2]C"
    Range("G60").FormulaR1C1 = ""
    Range("G61").FormulaR1C1 = ""
    Range("G62").FormulaR1C1 = "3280"
    Range("G63").FormulaR1C1 = "=R[1]C-R[2]C"
    Range("G64").FormulaR1C1 = ""
    Range("G65").FormulaR1C1 = ""
    Range("G66").FormulaR1C1 = "13310"
    Range("G67").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("G68").FormulaR1C1 = ""
    Range("G69").FormulaR1C1 = ""
    Range("G70").FormulaR1C1 = ""
    Range("G71").FormulaR1C1 = "=R[1]C+R[2]C+R[3]C"
    Range("G72").FormulaR1C1 = ""
    Range("G73").FormulaR1C1 = ""
    Range("G74").FormulaR1C1 = ""
    Range("G75").FormulaR1C1 = "8082"
    Range("G76").FormulaR1C1 = ""
    Range("G77").FormulaR1C1 = "=R[-50]C+R[-49]C-R[-31]C"
    Range("G78").FormulaR1C1 = "=R[-49]C-R[-32]C"
    Range("G79").FormulaR1C1 = "=R[-1]C+R[-17]C"
    Range("A81").FormulaR1C1 = "N"
    Range("A82").FormulaR1C1 = "'1"
    Range("A83").FormulaR1C1 = "'2"
    Range("A84").FormulaR1C1 = "'3"
    Range("A85").FormulaR1C1 = "'4"
    Range("A86").FormulaR1C1 = "'5"
    Range("A87").FormulaR1C1 = "'6"
    Range("A88").FormulaR1C1 = "'7"
    Range("A89").FormulaR1C1 = "'8"
    Range("A90").FormulaR1C1 = "O"
    Range("A91").FormulaR1C1 = "'1"
    Range("A92").FormulaR1C1 = "'2"
    Range("A93").FormulaR1C1 = "'3"
    Range("A94").FormulaR1C1 = "'4"
    Range("A95").FormulaR1C1 = "'5"
    Range("A96").FormulaR1C1 = "'6"
    Range("A97").FormulaR1C1 = "'7"
    Range("A98").FormulaR1C1 = "'8"
    Range("A99").FormulaR1C1 = "P"
    Range("A100").FormulaR1C1 = "Q"
    Range("A101").FormulaR1C1 = "'1"
    Range("A102").FormulaR1C1 = "'2"
    Range("A103").FormulaR1C1 = "'3"
    Range("A104").FormulaR1C1 = "'4"
    Range("A105").FormulaR1C1 = "'5"
    Range("A106").FormulaR1C1 = "'6"
    Range("A107").FormulaR1C1 = "'7"
    Range("A108").FormulaR1C1 = "'8"
    Range("A109").FormulaR1C1 = "R"
    Range("A110").FormulaR1C1 = "'1"
    Range("A111").FormulaR1C1 = "'2"
    Range("A112").FormulaR1C1 = "'3"
    Range("A113").FormulaR1C1 = "'4"
    Range("A114").FormulaR1C1 = "'5"
    Range("A115").FormulaR1C1 = "'6"
    Range("A116").FormulaR1C1 = "'7"
    Range("A117").FormulaR1C1 = "S"
    Range("A118").FormulaR1C1 = "'1"
    Range("A119").FormulaR1C1 = "'2"
    Range("A120").FormulaR1C1 = "'3"
    Range("A121").FormulaR1C1 = "'4"
    Range("A122").FormulaR1C1 = "'5"
    Range("A123").FormulaR1C1 = "'6"
    Range("A124").FormulaR1C1 = "T"
    Range("A125").FormulaR1C1 = "Kontrol"
    Range("B81").FormulaR1C1 = "DÖNEN VARLIKLAR "
    Range("B82").FormulaR1C1 = "Hazır Değerler"
    Range("B83").FormulaR1C1 = "Menkul Kıymetler"
    Range("B84").FormulaR1C1 = "Ticari Alacaklar"
    Range("B85").FormulaR1C1 = "Diğer Alacaklar"
    Range("B86").FormulaR1C1 = "Stoklar"
    Range("B87").FormulaR1C1 = "Yıllara Yaygın İnşaat ve Onarım Maliyetleri"
    Range("B88").FormulaR1C1 = "Gelecek Aylara Ait Giderler ve Gelir Tahakkukları"
    Range("B89").FormulaR1C1 = "Diğer Dönen Varlıklar"
    Range("B90").FormulaR1C1 = "DURAN VARLIKLAR"
    Range("B91").FormulaR1C1 = "Ticari Alacaklar"
    Range("B92").FormulaR1C1 = "Diğer Alacaklar"
    Range("B93").FormulaR1C1 = "Mali Duran Varlıklar"
    Range("B94").FormulaR1C1 = "Maddi Duran Varlıklar"
    Range("B95").FormulaR1C1 = "Maddi Olmayan Duran Varlıklar"
    Range("B96").FormulaR1C1 = "Özel Tükenmeye Tabi Varlıklar"
    Range("B97").FormulaR1C1 = "Gelecek Yıllara Ait Giderler ve GelirTahakkukları"
    Range("B98").FormulaR1C1 = "Diğer Duran Varlıklar"
    Range("B99").FormulaR1C1 = "AKTİF TOPLAMI (N + O)"
    Range("B100").FormulaR1C1 = "KISA VADELİ YABANCI KAYNAKLAR"
    Range("B101").FormulaR1C1 = "Mali Borçlar"
    Range("B102").FormulaR1C1 = "Ticari Borçlar"
    Range("B103").FormulaR1C1 = "Diğer Borçlar"
    Range("B104").FormulaR1C1 = "Alınan Avanslar"
    Range("B105").FormulaR1C1 = "Ödenecek Vergi ve Yükümlülükler"
    Range("B106").FormulaR1C1 = "Borç ve Gider Karşılıkları"
    Range("B107").FormulaR1C1 = "Gelecek Aylara Ait Gelirler ve Gider Tahakkukları"
    Range("B108").FormulaR1C1 = "Diğer Kısa Vadeli Yabancı Kaynaklar"
    Range("B109").FormulaR1C1 = "UZUN VADELİ YABANCI KAYNAKLAR"
    Range("B110").FormulaR1C1 = "Mali Borçlar"
    Range("B111").FormulaR1C1 = "Ticari Borçlar"
    Range("B112").FormulaR1C1 = "Diğer Borçlar"
    Range("B113").FormulaR1C1 = "Alınan Avanslar"
    Range("B114").FormulaR1C1 = "Borç ve Gider Karşılıkları"
    Range("B115").FormulaR1C1 = "Gelecek Yıllara Ait Gelir ve Gider Kaynakları"
    Range("B116").FormulaR1C1 = "Diğer Uzun Vadeli Yabancı Kaynaklar"
    Range("B117").FormulaR1C1 = "ÖZ KAYNAKLAR"
    Range("B118").FormulaR1C1 = "Ödenmiş Sermaye"
    Range("B119").FormulaR1C1 = "Sermaye Yedekleri"
    Range("B120").FormulaR1C1 = "Kâr Yedekleri"
    Range("B121").FormulaR1C1 = "Geçmiş Yıl Kârları"
    Range("B122").FormulaR1C1 = "Dönem Net Kârı"
    Range("B123").FormulaR1C1 = "Geçmiş Yıl Zararları"
    Range("B124").FormulaR1C1 = "PASİF TOPLAMI (Q + R + S)"
    Range("B125").FormulaR1C1 = ""
    Range("C81").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("C82").FormulaR1C1 = "14590"
    Range("C83").FormulaR1C1 = ""
    Range("C84").FormulaR1C1 = "7000"
    Range("C85").FormulaR1C1 = ""
    Range("C86").FormulaR1C1 = "3000"
    Range("C87").FormulaR1C1 = ""
    Range("C88").FormulaR1C1 = ""
    Range("C89").FormulaR1C1 = ""
    Range("C90").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("C91").FormulaR1C1 = ""
    Range("C92").FormulaR1C1 = ""
    Range("C93").FormulaR1C1 = "285410"
    Range("C94").FormulaR1C1 = ""
    Range("C95").FormulaR1C1 = ""
    Range("C96").FormulaR1C1 = ""
    Range("C97").FormulaR1C1 = ""
    Range("C98").FormulaR1C1 = ""
    Range("C99").FormulaR1C1 = "=R[-18]C+R[-9]C"
    Range("C100").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("C101").FormulaR1C1 = "106000"
    Range("C102").FormulaR1C1 = "4000"
    Range("C103").FormulaR1C1 = ""
    Range("C104").FormulaR1C1 = ""
    Range("C105").FormulaR1C1 = ""
    Range("C106").FormulaR1C1 = ""
    Range("C107").FormulaR1C1 = ""
    Range("C108").FormulaR1C1 = ""
    Range("C109").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
    Range("C110").FormulaR1C1 = ""
    Range("C111").FormulaR1C1 = ""
    Range("C112").FormulaR1C1 = ""
    Range("C113").FormulaR1C1 = ""
    Range("C114").FormulaR1C1 = ""
    Range("C115").FormulaR1C1 = ""
    Range("C116").FormulaR1C1 = ""
    Range("C117").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
    Range("C118").FormulaR1C1 = "200000"
    Range("C119").FormulaR1C1 = ""
    Range("C120").FormulaR1C1 = ""
    Range("C121").FormulaR1C1 = ""
    Range("C122").FormulaR1C1 = ""
    Range("C123").FormulaR1C1 = ""
    Range("C124").FormulaR1C1 = "=R[-24]C+R[-15]C+R[-7]C"
    Range("C125").FormulaR1C1 = "=R[-26]C-R[-1]C"
    Range("D81").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("D82").FormulaR1C1 = "=R[-5]C"
    Range("D83").FormulaR1C1 = "=RC[-1]"
    Range("D84").FormulaR1C1 = "=RC[-1]+R[-52]C-R[-53]C"
    Range("D85").FormulaR1C1 = "=RC[-1]"
    Range("D86").FormulaR1C1 = "=RC[-1]+R[-37]C-R[-33]C"
    Range("D87").FormulaR1C1 = "=RC[-1]"
    Range("D88").FormulaR1C1 = "=RC[-1]"
    Range("D89").FormulaR1C1 = "=+RC[-1]+R[-13]C"
    Range("D90").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("D91").FormulaR1C1 = "=RC[-1]"
    Range("D92").FormulaR1C1 = "=RC[-1]"
    Range("D93").FormulaR1C1 = "=RC[-1]+R[-27]C-R[-41]C-R[-28]C-R[-32]C-R[-35]C"
    Range("D94").FormulaR1C1 = "=RC[-1]"
    Range("D95").FormulaR1C1 = "=RC[-1]"
    Range("D96").FormulaR1C1 = "=RC[-1]"
    Range("D97").FormulaR1C1 = "=RC[-1]"
    Range("D98").FormulaR1C1 = "=RC[-1]"
    Range("D99").FormulaR1C1 = "=R[-18]C+R[-9]C"
    Range("D100").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("D101").FormulaR1C1 = "=RC[-1]+R[-64]C-R[-32]C"
    Range("D102").FormulaR1C1 = "=RC[-1]+R[-51]C-R[-52]C"
    Range("D103").FormulaR1C1 = "=+RC[-1]+R[-58]C"
    Range("D104").FormulaR1C1 = "=RC[-1]"
    Range("D105").FormulaR1C1 = "=RC[-1]"
    Range("D106").FormulaR1C1 = "=RC[-1]"
    Range("D107").FormulaR1C1 = "=RC[-1]"
    Range("D108").FormulaR1C1 = "=RC[-1]+R[-72]C+R[-70]C-R[-40]C-R[-38]C"
    Range("D109").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
    Range("D110").FormulaR1C1 = "=RC[-1]+R[-69]C-R[-37]C"
    Range("D111").FormulaR1C1 = "=RC[-1]"
    Range("D112").FormulaR1C1 = "=RC[-1]"
    Range("D113").FormulaR1C1 = "=RC[-1]"
    Range("D114").FormulaR1C1 = "=RC[-1]"
    Range("D115").FormulaR1C1 = "=RC[-1]"
    Range("D116").FormulaR1C1 = "=RC[-1]+R[-76]C+R[-74]C-R[-44]C-R[-42]C"
    Range("D117").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
    Range("D118").FormulaR1C1 = "=RC[-1]+R[-75]C"
    Range("D119").FormulaR1C1 = "=RC[-1]"
    Range("D120").FormulaR1C1 = "=RC[-1]+R[-90]C-R[-72]C-R[-65]C-R[-64]C-R[-63]C-R[-60]C-R[-58]C-R[-56]C-R[-45]C+R[-87]C+R[-86]C+R[-76]C"
    Range("D121").FormulaR1C1 = "=RC[-1]"
    Range("D122").FormulaR1C1 = "=RC[-1]"
    Range("D123").FormulaR1C1 = "=RC[-1]"
    Range("D124").FormulaR1C1 = "=R[-24]C+R[-15]C+R[-7]C"
    Range("D125").FormulaR1C1 = "=R[-26]C-R[-1]C"
    Range("E81").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("E82").FormulaR1C1 = "=R[-5]C"
    Range("E83").FormulaR1C1 = "=RC[-1]"
    Range("E84").FormulaR1C1 = "=RC[-1]+R[-52]C-R[-53]C"
    Range("E85").FormulaR1C1 = "=RC[-1]"
    Range("E86").FormulaR1C1 = "=RC[-1]+R[-37]C-R[-33]C"
    Range("E87").FormulaR1C1 = "=RC[-1]"
    Range("E88").FormulaR1C1 = "=RC[-1]"
    Range("E89").FormulaR1C1 = "=+RC[-1]+R[-13]C"
    Range("E90").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("E91").FormulaR1C1 = "=RC[-1]"
    Range("E92").FormulaR1C1 = "=RC[-1]"
    Range("E93").FormulaR1C1 = "=RC[-1]+R[-27]C-R[-41]C-R[-28]C-R[-32]C-R[-35]C"
    Range("E94").FormulaR1C1 = "=RC[-1]"
    Range("E95").FormulaR1C1 = "=RC[-1]"
    Range("E96").FormulaR1C1 = "=RC[-1]"
    Range("E97").FormulaR1C1 = "=RC[-1]"
    Range("E98").FormulaR1C1 = "=RC[-1]"
    Range("E99").FormulaR1C1 = "=R[-18]C+R[-9]C"
    Range("E100").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("E101").FormulaR1C1 = "=RC[-1]+R[-64]C-R[-32]C"
    Range("E102").FormulaR1C1 = "=RC[-1]+R[-51]C-R[-52]C"
    Range("E103").FormulaR1C1 = "=+RC[-1]+R[-58]C"
    Range("E104").FormulaR1C1 = "=RC[-1]"
    Range("E105").FormulaR1C1 = "=RC[-1]"
    Range("E106").FormulaR1C1 = "=RC[-1]"
    Range("E107").FormulaR1C1 = "=RC[-1]"
    Range("E108").FormulaR1C1 = "=RC[-1]+R[-72]C+R[-70]C-R[-40]C-R[-38]C"
    Range("E109").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
    Range("E110").FormulaR1C1 = "=RC[-1]+R[-69]C-R[-37]C"
    Range("E111").FormulaR1C1 = "=RC[-1]"
    Range("E112").FormulaR1C1 = "=RC[-1]"
    Range("E113").FormulaR1C1 = "=RC[-1]"
    Range("E114").FormulaR1C1 = "=RC[-1]"
    Range("E115").FormulaR1C1 = "=RC[-1]"
    Range("E116").FormulaR1C1 = "=RC[-1]+R[-76]C+R[-74]C-R[-44]C-R[-42]C"
    Range("E117").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
    Range("E118").FormulaR1C1 = "=RC[-1]+R[-75]C"
    Range("E119").FormulaR1C1 = "=RC[-1]"
    Range("E120").FormulaR1C1 = "=RC[-1]+R[-90]C-R[-72]C-R[-65]C-R[-64]C-R[-63]C-R[-60]C-R[-58]C-R[-56]C-R[-45]C+R[-87]C+R[-86]C+R[-76]C"
    Range("E121").FormulaR1C1 = "=RC[-1]"
    Range("E122").FormulaR1C1 = "=RC[-1]"
    Range("E123").FormulaR1C1 = "=RC[-1]"
    Range("E124").FormulaR1C1 = "=R[-24]C+R[-15]C+R[-7]C"
    Range("E125").FormulaR1C1 = "=R[-26]C-R[-1]C"
    Range("F81").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("F82").FormulaR1C1 = "=R[-5]C"
    Range("F83").FormulaR1C1 = "=RC[-1]"
    Range("F84").FormulaR1C1 = "=RC[-1]+R[-52]C-R[-53]C"
    Range("F85").FormulaR1C1 = "=RC[-1]"
    Range("F86").FormulaR1C1 = "=RC[-1]+R[-37]C-R[-33]C"
    Range("F87").FormulaR1C1 = "=RC[-1]"
    Range("F88").FormulaR1C1 = "=RC[-1]"
    Range("F89").FormulaR1C1 = "=+RC[-1]+R[-13]C"
    Range("F90").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("F91").FormulaR1C1 = "=RC[-1]"
    Range("F92").FormulaR1C1 = "=RC[-1]"
    Range("F93").FormulaR1C1 = "=RC[-1]+R[-27]C-R[-41]C-R[-28]C-R[-32]C-R[-35]C"
    Range("F94").FormulaR1C1 = "=RC[-1]"
    Range("F95").FormulaR1C1 = "=RC[-1]"
    Range("F96").FormulaR1C1 = "=RC[-1]"
    Range("F97").FormulaR1C1 = "=RC[-1]"
    Range("F98").FormulaR1C1 = "=RC[-1]"
    Range("F99").FormulaR1C1 = "=R[-18]C+R[-9]C"
    Range("F100").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("F101").FormulaR1C1 = "=RC[-1]+R[-64]C-R[-32]C"
    Range("F102").FormulaR1C1 = "=RC[-1]+R[-51]C-R[-52]C"
    Range("F103").FormulaR1C1 = "=+RC[-1]+R[-58]C"
    Range("F104").FormulaR1C1 = "=RC[-1]"
    Range("F105").FormulaR1C1 = "=RC[-1]"
    Range("F106").FormulaR1C1 = "=RC[-1]"
    Range("F107").FormulaR1C1 = "=RC[-1]"
    Range("F108").FormulaR1C1 = "=RC[-1]+R[-72]C+R[-70]C-R[-40]C-R[-38]C"
    Range("F109").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
    Range("F110").FormulaR1C1 = "=RC[-1]+R[-69]C-R[-37]C"
    Range("F111").FormulaR1C1 = "=RC[-1]"
    Range("F112").FormulaR1C1 = "=RC[-1]"
    Range("F113").FormulaR1C1 = "=RC[-1]"
    Range("F114").FormulaR1C1 = "=RC[-1]"
    Range("F115").FormulaR1C1 = "=RC[-1]"
    Range("F116").FormulaR1C1 = "=RC[-1]+R[-76]C+R[-74]C-R[-44]C-R[-42]C"
    Range("F117").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
    Range("F118").FormulaR1C1 = "=RC[-1]+R[-75]C"
    Range("F119").FormulaR1C1 = "=RC[-1]"
    Range("F120").FormulaR1C1 = "=RC[-1]+R[-90]C-R[-72]C-R[-65]C-R[-64]C-R[-63]C-R[-60]C-R[-58]C-R[-56]C-R[-45]C+R[-87]C+R[-86]C+R[-76]C"
    Range("F121").FormulaR1C1 = "=RC[-1]"
    Range("F122").FormulaR1C1 = "=RC[-1]"
    Range("F123").FormulaR1C1 = "=RC[-1]"
    Range("F124").FormulaR1C1 = "=R[-24]C+R[-15]C+R[-7]C"
    Range("F125").FormulaR1C1 = "=R[-26]C-R[-1]C"
    Range("G81").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("G82").FormulaR1C1 = "=R[-5]C"
    Range("G83").FormulaR1C1 = "=RC[-1]"
    Range("G84").FormulaR1C1 = "=RC[-1]+R[-52]C-R[-53]C"
    Range("G85").FormulaR1C1 = "=RC[-1]"
    Range("G86").FormulaR1C1 = "=RC[-1]+R[-37]C-R[-33]C"
    Range("G87").FormulaR1C1 = "=RC[-1]"
    Range("G88").FormulaR1C1 = "=RC[-1]"
    Range("G89").FormulaR1C1 = "=+RC[-1]+R[-13]C"
    Range("G90").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("G91").FormulaR1C1 = "=RC[-1]"
    Range("G92").FormulaR1C1 = "=RC[-1]"
    Range("G93").FormulaR1C1 = "=RC[-1]+R[-27]C-R[-41]C-R[-28]C-R[-32]C-R[-35]C"
    Range("G94").FormulaR1C1 = "=RC[-1]"
    Range("G95").FormulaR1C1 = "=RC[-1]"
    Range("G96").FormulaR1C1 = "=RC[-1]"
    Range("G97").FormulaR1C1 = "=RC[-1]"
    Range("G98").FormulaR1C1 = "=RC[-1]"
    Range("G99").FormulaR1C1 = "=R[-18]C+R[-9]C"
    Range("G100").FormulaR1C1 = "=SUM(R[1]C:R[8]C)"
    Range("G101").FormulaR1C1 = "=RC[-1]+R[-64]C-R[-32]C"
    Range("G102").FormulaR1C1 = "=RC[-1]+R[-51]C-R[-52]C"
    Range("G103").FormulaR1C1 = "=+RC[-1]+R[-58]C"
    Range("G104").FormulaR1C1 = "=RC[-1]"
    Range("G105").FormulaR1C1 = "=RC[-1]"
    Range("G106").FormulaR1C1 = "=RC[-1]"
    Range("G107").FormulaR1C1 = "=RC[-1]"
    Range("G108").FormulaR1C1 = "=RC[-1]+R[-72]C+R[-70]C-R[-40]C-R[-38]C"
    Range("G109").FormulaR1C1 = "=SUM(R[1]C:R[7]C)"
    Range("G110").FormulaR1C1 = "=RC[-1]+R[-69]C-R[-37]C"
    Range("G111").FormulaR1C1 = "=RC[-1]"
    Range("G112").FormulaR1C1 = "=RC[-1]"
    Range("G113").FormulaR1C1 = "=RC[-1]"
    Range("G114").FormulaR1C1 = "=RC[-1]"
    Range("G115").FormulaR1C1 = "=RC[-1]"
    Range("G116").FormulaR1C1 = "=RC[-1]+R[-76]C+R[-74]C-R[-44]C-R[-42]C"
    Range("G117").FormulaR1C1 = "=SUM(R[1]C:R[6]C)"
    Range("G118").FormulaR1C1 = "=RC[-1]+R[-75]C"
    Range("G119").FormulaR1C1 = "=RC[-1]"
    Range("G120").FormulaR1C1 = "=RC[-1]+R[-90]C-R[-72]C-R[-65]C-R[-64]C-R[-63]C-R[-60]C-R[-58]C-R[-56]C-R[-45]C+R[-87]C+R[-86]C+R[-76]C"
    Range("G121").FormulaR1C1 = "=RC[-1]"
    Range("G122").FormulaR1C1 = "=RC[-1]"
    Range("G123").FormulaR1C1 = "=RC[-1]"
    Range("G124").FormulaR1C1 = "=R[-24]C+R[-15]C+R[-7]C"
    Range("G125").FormulaR1C1 = "=R[-26]C-R[-1]C"
    Range("A127").FormulaR1C1 = "U"
    Range("A128").FormulaR1C1 = "V"
    Range("A129").FormulaR1C1 = "W"
    Range("A130").FormulaR1C1 = "X"
    Range("A131").FormulaR1C1 = "Y"
    Range("A132").FormulaR1C1 = "Z"
    Range("A133").FormulaR1C1 = "AA"
    Range("A134").FormulaR1C1 = "AB"
    Range("A135").FormulaR1C1 = "AC"
    Range("A136").FormulaR1C1 = "AD"
    Range("B127").FormulaR1C1 = "FAİZ ÖNCESİ İNDİRGENMİŞ NAKİT ARTIŞI VEYA AZALIŞI (M / (1 + G)^0)"
    Range("B128").FormulaR1C1 = "FAİZ ÖNCESİ İNDİRGENMİŞ KÜMÜLATİF NAKİT ARTIŞI VEYA AZALIŞI (U)"
    Range("B129").FormulaR1C1 = "BEŞİNCİ ve SONRASI YILLARA AİT FAİZ ÖNCESİ NOMİNAL NAKİT ARTIŞI VEYA AZALIŞI (M)"
    Range("B130").FormulaR1C1 = "BEŞİNCİ ve SONRASI YILLARA AİT FAİZ ÖNCESİ NOMİNAL NİHAİ NAKİT ARTIŞI VEYA AZALIŞININ İNDİRGENMİŞ DEĞERİ (((W * (1 + D)) / (G - D)) / (1 + G) ^ 4)"
    Range("B131").FormulaR1C1 = "İNDİRGENMİŞ FİRMA DEĞERİ (V + X)"
    Range("B132").FormulaR1C1 = "RAPOR TARİHİNDEKİ FİNANSAL BORÇLAR (Q.1 + R.1)"
    Range("B133").FormulaR1C1 = "İNDİRGENMİŞ ÖZ KAYNAK DEĞERİ (Y - Z)"
    Range("B134").FormulaR1C1 = "PEŞTAMALLIK"
    Range("B135").FormulaR1C1 = "BİRİKMİŞ KIDEM TAZMİNATI KARŞILIĞI"
    Range("B136").FormulaR1C1 = "SATIŞA ESAS ÖZ KAYNAK DEĞERİ (AA + AB - AC)"
    Range("C127").FormulaR1C1 = "=R[-48]C/(1+R[-102]C)^0"
    Range("C128").FormulaR1C1 = "=R[-1]C"
    Range("D127").FormulaR1C1 = "=R[-48]C/(1+R[-102]C)^1"
    Range("D128").FormulaR1C1 = "=R[-1]C+RC[-1]"
    Range("E127").FormulaR1C1 = "=R[-48]C/(1+R[-102]C)^2"
    Range("E128").FormulaR1C1 = "=R[-1]C+RC[-1]"
    Range("F127").FormulaR1C1 = "=R[-48]C/(1+R[-102]C)^3"
    Range("F128").FormulaR1C1 = "=R[-1]C+RC[-1]"
    Range("G127").FormulaR1C1 = "=R[-48]C/(1+R[-102]C)^4"
    Range("G128").FormulaR1C1 = "=R[-1]C+RC[-1]"
    Range("G129").FormulaR1C1 = "=R[-50]C"
    Range("G130").FormulaR1C1 = "=((R[-1]C*(1+R[-108]C))/(R[-105]C-R[-108]C))/(1+R[-105]C)^4"
    Range("G131").FormulaR1C1 = "=R[-3]C+R[-1]C"
    Range("G132").FormulaR1C1 = "=R[-31]C[-4]+R[-22]C[-4]"
    Range("G133").FormulaR1C1 = "=R[-2]C-R[-1]C"
    Range("G134").FormulaR1C1 = "0"
    Range("G135").FormulaR1C1 = "0"
    Range("G136").FormulaR1C1 = "=R[-3]C+R[-2]C-R[-1]C"
    Call Yazi_Kur("A1:G1", True, "Arial Narrow", 14, "Bold", 3, 3, 255, True, "General")
    Call Yazi_Kur("A14:B14", True, "Arial Narrow", 10, "Bold", 3, 3, 0, True, "General")
    Call Yazi_Kur("C14:G14", False, "Arial Narrow", 10, "Bold", 3, 3, 0, True, "General")
    Call Yazi_Kur("A15:G25", False, "Arial Narrow", 10, "Normal", 2, 2, 0, True, "General")
    Call Yazi_Kur("C15:G16", False, "Arial Narrow", 10, "Normal", 1, 1, 16711680, True, "0.00%")
    Call Yazi_Kur("C17:G17", False, "Arial Narrow", 10, "Normal", 1, 1, 0, False, "0.00%")
    Call Yazi_Kur("C18:G18", False, "Arial Narrow", 10, "Normal", 1, 1, 16711680, True, "0.00%")
    Call Yazi_Kur("C19:G19", False, "Arial Narrow", 10, "Normal", 1, 1, 16711680, False, "0.0000")
    Call Yazi_Kur("C20:G22", False, "Arial Narrow", 10, "Normal", 1, 1, 16711680, True, "0.00%")
    Call Yazi_Kur("C23:G25", False, "Arial Narrow", 10, "Normal", 1, 1, 0, False, "0.00%")
    Call Yazi_Kur("A27:G79", False, "Arial Narrow", 10, "Normal", 2, 2, 0, True, "General")
    Call Yazi_Kur("C27:G79", False, "Arial Narrow", 10, "Normal", 1, 1, 0, True, "#,##0.00TL")
    Call Yazi_Kur("C27,C30:G34,C36:G38,C40:G45,C48:G53,C55:G58,C60:G62,C64:G66,C68:G70,C72:G76", False, "Arial Narrow", 10, "Normal", 1, 1, 16711680, False, "#,##0.00TL")
    Call Yazi_Kur("A81:B125", False, "Arial Narrow", 10, "Normal", 2, 2, 0, True, "General")
    Call Yazi_Kur("C81:G125", False, "Arial Narrow", 10, "Normal", 1, 1, 0, True, "#,##0.00TL")
    Call Yazi_Kur("C82:C89,C91:C98,C101:C108,C110:C116,C118:C123", False, "Arial Narrow", 10, "Normal", 1, 1, 16711680, False, "#,##0.00TL")
    Call Yazi_Kur("A127:B136", False, "Arial Narrow", 10, "Normal", 2, 2, 0, True, "General")
    Call Yazi_Kur("B129:F129,B130:F130,B131:F131,B132:F132,B133:F133,B134:F134,B135:F135,B136:F136", True, "Arial Narrow", 10, "Normal", 2, 2, 0, True, "General")
    Call Yazi_Kur("C127:G128,G129:G136", False, "Arial Narrow", 10, "Normal", 1, 1, 0, True, "#,##0.00TL")
    Call Yazi_Kur("G134:G135", False, "Arial Narrow", 10, "Normal", 1, 1, 16711680, False, "#,##0.00TL")
    Call Cizgi_Kur("A14:G25")
    Call Cizgi_Kur("A14:G14")
    Call Cizgi_Kur("C14:G14")
    Call Cizgi_Kur("C15:G25")
    Call Cizgi_Kur("A27:G79")
    Call Cizgi_Kur("C27:G79")
    Call Cizgi_Kur("A81:G125")
    Call Cizgi_Kur("C81:G125")
    Call Cizgi_Kur("A127:G136")
    Call Cizgi_Kur("C127:G136")
    Range("A18:B21,A29:B29,A33:B35,A39:B39,A43:B45,A47:B47,A54:B54,A59:B59,A62:B63,A66:B67,A71:B71,A75:B76").NumberFormat = "    @"
    Range("A30:B32,A36:B38,A40:B42,A48:B53,A55:B58,A60:B61,A64:B65,A68:B70,A72:B74").NumberFormat = "        @"
    Range("A82:B89,A91:B98,A101:B108,A110:B116,A118:B123").NumberFormat = "    @"
    Rows("2:2").RowHeight = 6
    Rows("26:26").RowHeight = 6
    Rows("80:80").RowHeight = 6
    Rows("126:126").RowHeight = 6
    Call Not_Kur
    Call Grup_Kur
    Rows("3:13").Delete Shift:=xlUp
    Call Yazi_Kur("A122:A122", False, "Arial Narrow", 10, "Bold", 2, 2, 0, True, "General")
    Call Yazi_Kur("B122:F122", True, "Arial Narrow", 10, "Bold", 2, 2, 0, True, "General")
    Call Yazi_Kur("G122:G122", True, "Arial Narrow", 10, "Bold", 1, 1, 0, True, "#,##0.00TL")
    Call Yazi_Kur("A125:A125", False, "Arial Narrow", 10, "Bold", 2, 2, 0, True, "General")
    Call Yazi_Kur("B125:F125", True, "Arial Narrow", 10, "Bold", 2, 2, 0, True, "General")
    Call Yazi_Kur("G125:G125", True, "Arial Narrow", 10, "Bold", 1, 1, 0, True, "#,##0.00TL")
    Range("A4").Select
    ActiveWindow.FreezePanes = True
    With Range("A3:G3").Interior
        .Pattern = xlLightUp
        .PatternThemeColor = xlThemeColorDark1
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .PatternTintAndShade = -0.249946592608417
    End With
    ActiveSheet.Protect
    Range("G125").Select
End Sub
Private Sub Yazi_Kur(ByVal Alan As String, ByVal Birlesme As Boolean, ByVal Karakter As String, ByVal Boy As Long, ByVal Koyuluk As String, ByVal YanHiza As Long, ByVal DikHiza As Long, ByVal Renk As Long, ByVal Kilit As Boolean, ByVal FormatNo As String)

    On Error Resume Next
    With Range(Alan)
        .HorizontalAlignment = YanHiza
        .VerticalAlignment = DikHiza
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = True
        .ReadingOrder = xlContext
        .MergeCells = Birlesme
        .Locked = Kilit
        .NumberFormat = FormatNo
        With .Font
            .Name = Karakter
            .FontStyle = Koyuluk
            .Size = Boy
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = True
            .Underline = xlUnderlineStyleNone
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
            .Color = Renk
        End With
    End With
End Sub
Private Sub Cizgi_Kur(ByVal Alan As String)

    On Error Resume Next
    With Range(Alan)
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlHairline
        End With
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlHairline
        End With
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlHairline
        End With
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlHairline
        End With
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ThemeColor = 1
            .TintAndShade = -0.249946592608417
            .Weight = xlHairline
        End With
        With .Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ThemeColor = 1
            .TintAndShade = -0.249946592608417
            .Weight = xlHairline
        End With
    End With
End Sub
Private Sub Not_Kur()

    On Error Resume Next
    With Range("B19")
        .AddComment
        With .Comment
            .Visible = False
            .Text Text:="Beta Katsayısı: Bir hissenin beta katsayısı hisse senetinin pazar riskinin bir ölçüsüdür. " & _
            "Hisse senedinin Beta katsayısı, hisse senedinin endekse karşı duyarlılığını(volatility) göstermektedir." & Chr(10)
            .Text Text:="Beta Katsayısı: ß" & Chr(10) & "ß=1 ise hissenin hareketi endeksle aynı (ortalama risk) " & Chr(10) & _
            "ß<1 ise ise hissenin hareketi endeksten daha yavaş (az riskli, düşük volatilite) " & Chr(10) & _
            "ß>1 ise ise hissenin hareketi endeksten daha hızlı" _
            , Start:=200
            .Text Text:=" (daha riskli, yüksek volatilite) " & Chr(10) & "" & Chr(10) & _
            "Eğer bir hissenin betası 1 ise, endeksin %10 arttığı bir dönemde o hissenin %10 değer kazanması, " & _
            "endeksin %10 düştüğü bir dönemde ise o hissenin %10 düşmesi beklenir." _
            , Start:=400
            .Text Text:=" Diğer taraftan, eğer bir hissenin betası 0.5 ise endeksin %10 yükseldiği bir dönemde o hissenin %5 yükselmesi, " & _
            "endeksin %10 düştüğü bir dönemde ise, o hissenin %5 düşmesi beklenir. Aynı şekilde bi" _
            , Start:=600
            .Text Text:= _
            "r hissenin betası 1.5 ise, endeksin %10 arttığı bir dönemde o hissenin %15 değer kazanması, " & _
            "endeksin %10 düştüğü bir dönemde o hissenin %15 düşmesi beklenir. " & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" _
            , Start:=800
            With .Shape
                .Width = 300
                .Height = 300
            End With
        End With
    End With
    With Range("B25")
        .AddComment
        With .Comment
            .Visible = False
            .Text Text:= _
                "WACC oranı hesaplanırken; konuya yatırımcının kendi ülkesinden bakış açısı boyutu getirilmiştir. Bir başka ifadeyle; " & _
                "(rf) risksiz getirinin yatırımcının ülkesinden, (rm) beklenen getirinin de yatırımda bulunulacak ülkenin sermaye piyasasından " & _
                "alınması kabul edilmiştir. Rf nin göreceli pozisyonu da; (rm-rf) risk pirimini subjektif bir (beta) katsayısıyla düzeltilm" & _
                "şılmıştır. “Gerçeği Arama” gayreti içinde olma asabiyle de yatırımcıyı koruma arzusu ile CAPM oranı ülke riski denen bir başka " & _
                "subjektif katsayı ile bir kere daha düzeltilmektedir. Bu durumda da Alman yatırımcı ile kriz içinde çırpınan Yunanlı yatırımcının " & _
                "Türkiyedeki sermaye piyasasına bakış açısı eşitlenmiş sayılmaktadır. Görüleceği üzere CAPM sebebiyle sağlam bir" & _
                "yürünmüyor izlenimi doğmaktadır. Halbuki “Şirket Değerleme” raporunda yer alan kabuller ve koşullar durum tespiti niteliğinde " & _
                "olmaktan daha öteye gitmemelidir. Dolayısıyla da WACC iskonto oranının yatırımcı adına hesaplanması yerine yatırımcıdan talep edilmesi; " & _
                "hem gerçeği arama sürecini destekleyecek ve hem de yatırımcıya risk alma fırsatı verecektir."
            With .Shape
                .Width = 300
                .Height = 300
            End With
        End With
    End With
    With Range("B133")
        .AddComment
        With .Comment
            .Visible = False
            .Text Text:= _
                "Özellikle İNA yönteminde öne çıkan gelecekteki net nakit akımı kalemlerinin sonsuz projeksiyonda kabul edilip " & _
                "dört yıllık detaylı bir planlamadan sonraki yılların rapor tarihine indirgenmesi yanı sıra; değerlemesi yapılan " & _
                "şirketin elinde tuttuğu imtiyazlı projelere ait projeksiyonların imtiyaz süresince sınırlı olduğunu ve imtiyaz süresi " & _
                "yenilenebilir projelerde yenileme tarihindeki sabit ve İHDB yatırım kalemlerinin hesaba katılması gerekliliği dikkate alınmalıdır."
            With .Shape
                .Width = 300
                .Height = 150
            End With
        End With
    End With
        With Range("B136")
        .AddComment
        With .Comment
            .Visible = False
            .Text Text:= _
                "Yine İNA yönteminde öne çıkan diğer bir hususta; Dönem Başı Nakit + Rapor Tarihinden Sonra Gerçekleşecek Net Nakit " & _
                "Girişlerinin Rapor Tarihine İndirgenmiş Değeri denkleminin, Süreklilik İlkesi ne dayandırılak Değerleme Raporunu satın alan " & _
                "müşterinin haklarını korunacağı yaklaşımı, aslında raportörün ""Gerçeği Arama"" davranış modeliyle taban tabana ters düş" & _
                "ülmektedir. Çünkü bu yöntemde; sonsuza kadar gelir tahmini yapılması sonucunda, şirkete ileride nakit girişi yaratacak nakit " & _
                "dişi varlıklar 1TL izdeğer kapsamında düşünülmektedir. Halbuki yeni yatırımcının makul bir süre sonunda hisselerini nakte çevirerek " & _
                "başka bir yatırıma yönelme isteği inkar edilemez bir diğer gerçektir. Bu durumda da örnekte olduğu gibi, bu yönteme" & _
                ") göre aldığı hisseleri, alternatif değerleme yöntemlerinin bir diğeriyle daha fazla bir değerde satmak isteyecektir. " & _
                "Bu durumda Süreklilik ilkesinin karşısına Dönemsellik ilkesini koyup tasfiye esasına göre hesap yapmanın; “Gerçeği Arama” " & _
                "sürecinde yapılabilecek en sağlıklı davranış olacaktır."
            With .Shape
                .Width = 300
                .Height = 280
            End With
        End With
    End With
End Sub
Private Sub Grup_Kur()

    On Error Resume Next
    Rows("30:32").Rows.Group
    Rows("36:38").Rows.Group
    Rows("40:42").Rows.Group
    Rows("48:53").Rows.Group
    Rows("55:58").Rows.Group
    Rows("60:61").Rows.Group
    Rows("64:65").Rows.Group
    Rows("68:70").Rows.Group
    Rows("72:74").Rows.Group
    Rows("47:76").Rows.Group
    Rows("29:45").Rows.Group
    Rows("82:89").Rows.Group
    Rows("91:98").Rows.Group
    Rows("101:108").Rows.Group
    Rows("110:116").Rows.Group
    Rows("118:123").Rows.Group
    Rows("18:21").Rows.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

Blog Arşivi

Gadget

Bu içerik henüz şifreli bağlantı üzerinden kullanılamıyor.

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
Anadolu Üniversitesi Açık Öğretim Fakültesi