Microsoft Office Excel ® Kod Kılavuzu

Create XML Paper Specification (xps) Files

2012-01-20T00:01:00.017+02:00

'UserForm1

'A. Available References List

'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'5) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\Windows\SysWOW64\FM20.DLL

'B. Available Tools List

'1) İmage1, Label1, Label2
'2) Label3, TextBox1, CommandButton1, CommandButton2, CommandButton3
'3) TextBox2

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Metin As String
Private Son As Boolean
Private Yeri As Long
Private Dosya As String
Private Komut As Long
Private Tarih As Date
Private DosyaNo As Long
Private i As Long
Private Bellek(1 To 1044, 1 To 2)
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] Create XML Paper Specification (xps) Files"
Call Veri1_Kur
Call Veri2_Kur
Call Veri3_Kur
Call Ekran_Kur

End Sub
Private Sub CommandButton1_Click()

On Error GoTo Hata
Metin = VBA.Replace(TextBox2.Text, VBA.Chr$(13), "")
With TextBox2

.SetFocus
Yeri = VBA.InStr(1, Metin, TextBox1, vbTextCompare)
If Yeri = 0 Then

TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = VBA.Len(TextBox1)
Exit Sub

End If
.SelStart = Yeri - 1
.SelLength = VBA.Len(TextBox1)
Sonrakini_Bul (.SelStart + VBA.Len(TextBox1))

End With
Exit Sub
Hata:
MsgBox VBA.Err.Number & " - " & VBA.Err.Description, vbCritical, "[PBİD®]"

End Sub
Private Sub CommandButton2_Click()

On Error GoTo Hata
With TextBox2

If Son Then

Son = False
i = 1

Else

i = .SelStart + VBA.Len(TextBox1)

End If
.SetFocus
Yeri = VBA.InStr(i + 1, Metin, TextBox1, vbTextCompare)
.SelStart = Yeri - 1
.SelLength = VBA.Len(TextBox1)
Call Sonrakini_Bul(.SelStart + VBA.Len(TextBox1))

End With
Exit Sub
Hata:
MsgBox VBA.Err.Number & " - " & VBA.Err.Description, vbCritical, "[PBİD®]"

End Sub
Private Sub CommandButton3_Click()

On Error GoTo Hata
Call Dosya_Sakla
Komut = ShellExecute(0, "Print", Dosya, 0, 0, vbHide)
Tarih = VBA.DateAdd("s", 3, Now())
Do While Tarih > VBA.Now()

DoEvents

Loop
VBA.Kill Dosya
Exit Sub
Hata:
MsgBox VBA.Err.Number & " - " & VBA.Err.Description, vbCritical, "[PBİD®]"

End Sub
Private Sub TextBox1_Change()

On Error Resume Next
CommandButton2.Visible = False
CommandButton1.Visible = True

End Sub
Private Sub UserForm_Activate()

On Error Resume Next
CommandButton2.Visible = False

End Sub
Sub Sonrakini_Bul(x As Long)

On Error GoTo Hata
Yeri = VBA.InStr(i + 1, Metin, TextBox1, vbTextCompare)
If Yeri > 0 Then

CommandButton2.Visible = True
CommandButton1.Visible = False

Else

Son = True

End If
Exit Sub
Hata:
MsgBox VBA.Err.Number & " - " & VBA.Err.Description, vbCritical, "[PBİD®]"

End Sub
Sub Dosya_Sakla()

On Error GoTo Hata
DosyaNo = VBA.FreeFile
Dosya = ThisWorkbook.Path & "\xpsDosya.txt"
Open Dosya For Output As #DosyaNo
Print #DosyaNo, TextBox2.Text
Close #DosyaNo
Exit Sub
Hata:
MsgBox VBA.Err.Number & " - " & VBA.Err.Description, vbCritical, "[PBİD®]"

End Sub
Private Sub Ekran_Kur()

On Error Resume Next
With Me

.BackColor = vbWhite
.Height = 376
.Width = 454
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectFlat
With Image1

.Top = 6
.Left = 6
.Height = 24
.Width = 24
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Picture = Resim(URL2)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False

End With
With Label1

.Left = 36
.Top = 6
.Height = 12
.Width = 240
.Caption = "Mustafa ULUSARAÇ"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue

End With
With Label2

.Left = 36
.Top = 18
.Height = 12
.Width = 240
.Caption = "01ulusarac@superonline.com"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue

End With
With Label3

.Left = 6
.Top = 36
.Height = 18
.Width = 54
.Caption = " Find Text"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H404000
.TextAlign = fmTextAlignLeft

End With
With TextBox1

.Left = 60
.Top = 36
.Height = 18
.Width = 246
.BackStyle = fmBackStyleOpaque
.BackColor = vbWhite
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.ScrollBars = fmScrollBarsNone
.MultiLine = False
.Font.Name = "Arial"
.ForeColor = vbBlue
.TextAlign = fmTextAlignLeft

End With
With CommandButton1

.Left = 312
.Top = 36
.Height = 18
.Width = 54
.Caption = "Find"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.ForeColor = &H404000
.Font.Bold = True

End With
With CommandButton2

.Left = 312
.Top = 36
.Height = 18
.Width = 54
.Caption = "Find Next"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.ForeColor = &H404000
.Font.Bold = True

End With
With CommandButton3

.Left = 372
.Top = 36
.Height = 18
.Width = 72
.Caption = "Create xps File"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.ForeColor = &H404000
.Font.Bold = True

End With
With TextBox2

.Left = 6
.Top = 60
.Height = 288
.Width = 438
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.ScrollBars = fmScrollBarsBoth
.MultiLine = True
.Font.Name = "Arial"
.Font.Size = 10
.ForeColor = &H404000
.TextAlign = fmTextAlignLeft
Metin = ""
For i = 1 To 1044

Metin = Metin & Bellek(i, 1) & Bellek(i, 2) & VBA.vbCrLf

Next i
.Text = Metin
Metin = ""

End With

End Sub
Private Sub Veri1_Kur()

On Error Resume Next
Bellek(1, 1) = "1) (Amount) recoverable:": Bellek(1, 2) = " Geri kazanılabilir tutar"
Bellek(2, 1) = "2) Corridor:": Bellek(2, 2) = " Tazminat yükümlülüğü aralığı (1)"
Bellek(3, 1) = "3) Cost of sales method:": Bellek(3, 2) = " Satışların maliyeti yöntemi (2)"
Bellek(4, 1) = "4) Acceptable under IFRSs:": Bellek(4, 2) = " UFRS ye göre kabul edilebilir (UFRS 1)"
Bellek(5, 1) = "5) Accountability of management:": Bellek(5, 2) = " Yönetimin sorumluluğu (UFRS 1)"
Bellek(6, 1) = "6) Accounting:": Bellek(6, 2) = " Muhasebe"
Bellek(7, 1) = "7) Accounting estimate:": Bellek(7, 2) = " Muhasebe tahmini"
Bellek(8, 1) = "8) Accounting for inventories:": Bellek(8, 2) = " Stokların muhasebeleştirilmesi(UMS 2)"
Bellek(9, 1) = "9) Accounting income:": Bellek(9, 2) = " Muhasebe geliri (karı) (3) "
Bellek(10, 1) = "10) Accounting model:": Bellek(10, 2) = " Muhasebe modeli"
Bellek(11, 1) = "11) Accounting period:": Bellek(11, 2) = " Muhasebe dönemi, Hesap dönemi"
Bellek(12, 1) = "12) Accounting policy:": Bellek(12, 2) = " Muhasebe politikası "
Bellek(13, 1) = "13) Accounting principle:": Bellek(13, 2) = " Muhasebe ilkesi"
Bellek(14, 1) = "14) Accounting profit:": Bellek(14, 2) = " Muhasebe karı / Ticari Kar"
Bellek(15, 1) = "15) Accounting record:": Bellek(15, 2) = " Muhasebe kaydı "
Bellek(16, 1) = "16) Accounting treatment:": Bellek(16, 2) = " Muhasebeleştirme yöntemi"
Bellek(17, 1) = "17) Accounts receivable:": Bellek(17, 2) = " Alıcılar"
Bellek(18, 1) = "18) Accrual basis:": Bellek(18, 2) = " Tahakkuk esası"
Bellek(19, 1) = "19) Accrual basis of accounting:": Bellek(19, 2) = " Tahakkuk esasına göre muhasebeleştirme"
Bellek(20, 1) = "20) Accrued liabilities:": Bellek(20, 2) = " Borç tahakkukları "
Bellek(21, 1) = "21) Accumulated (amortisation, interest, profit or loss):": Bellek(21, 2) = " Birikmiş (itfa payları, faiz, kar veya zarar) (UFRS 1) "
Bellek(22, 1) = "22) Accumulated profit or loss:": Bellek(22, 2) = " Geçmiş yıllar karları veya zararları "
Bellek(23, 1) = "23) Accumulated compensated absences:": Bellek(23, 2) = " Birikmiş ücretli izinler (4)"
Bellek(24, 1) = "24) Achieve comparabilitiy:": Bellek(24, 2) = " Karşılaştırılabilirliğin sağlanması"
Bellek(25, 1) = "25) Acquiree:": Bellek(25, 2) = " Edindiren "
Bellek(26, 1) = "26) Acquirer:": Bellek(26, 2) = " Edinen "
Bellek(27, 1) = "27) Acquisition:": Bellek(27, 2) = " Edinme, (elde etme, iktisap etme)"
Bellek(28, 1) = "28) Active market:": Bellek(28, 2) = " Aktif piyasa"
Bellek(29, 1) = "29) Actuarial assumptions:": Bellek(29, 2) = " Aktuaryal varsayımlar"
Bellek(30, 1) = "30) Actuarial gains and losses:": Bellek(30, 2) = " Aktuaryal karlar ve zararlar"
Bellek(31, 1) = "31) Actuarial present values of promised retirement benefits:": Bellek(31, 2) = " Taahhüt edilen emeklilik gelirlerinin aktuaryal bugünkü değeri"
Bellek(32, 1) = "32) Actuarial valuation:": Bellek(32, 2) = " Aktuaryal değerleme"
Bellek(33, 1) = "33) Actuarial valuation method:": Bellek(33, 2) = " Aktuaryal değerleme yöntemi"
Bellek(34, 1) = "34) Additional comparative information:": Bellek(34, 2) = " Karşılaştırmalı ek bilgi (UFRS 1) "
Bellek(35, 1) = "35) Additional consideration:": Bellek(35, 2) = " Ek teminat ( tazminat) "
Bellek(36, 1) = "36) Adjust for consolidation procedures:": Bellek(36, 2) = " Konsolidasyon düzeltmesi (UFRS 1) "
Bellek(37, 1) = "37) Adjusted weighted- average shares:": Bellek(37, 2) = " Ağırlıklı ortalamaya göre düzeltilmiş hisse senetleri sayısı (UMS 33)"
Bellek(38, 1) = "38) Adjusting event ( after the balance sheet date):": Bellek(38, 2) = " Bilanço tarihinden sonra ortaya çıkan ve düzeltme gerektiren olaylar "
Bellek(39, 1) = "39) Administrative expenses:": Bellek(39, 2) = " Genel yönetim giderleri"
Bellek(40, 1) = "40) Admission fees:": Bellek(40, 2) = " Giriş aidatları "
Bellek(41, 1) = "41) Advance:": Bellek(41, 2) = " Avans"
Bellek(42, 1) = "42) Adverse event:": Bellek(42, 2) = " Olumsuz gelişme"
Bellek(43, 1) = "43) After- tax amount:": Bellek(43, 2) = " Vergi sonrası tutar"
Bellek(44, 1) = "44) Agency:": Bellek(44, 2) = " Acente"
Bellek(45, 1) = "45) Aggregate:": Bellek(45, 2) = " Toplam"
Bellek(46, 1) = "46) Aggregation:": Bellek(46, 2) = " Toplama"
Bellek(47, 1) = "47) Agricultural activitiy:": Bellek(47, 2) = " Tarımsal faaliyet (UMS 2)"
Bellek(48, 1) = "48) Agricultural activitiy:": Bellek(48, 2) = " Tarımsal faaliyet (5)"
Bellek(49, 1) = "49) Agricultural produce:": Bellek(49, 2) = " Tarımsal ürün (UMS 41)"
Bellek(50, 1) = "50) Allocation:": Bellek(50, 2) = " Dağıtım ( tahsis) "
Bellek(51, 1) = "51) Allowance:": Bellek(51, 2) = " Tahsisat, ödenek, karşılık"
Bellek(52, 1) = "52) Allowed alternative treatment:": Bellek(52, 2) = " Kabul edilebilir alternatif yöntem"
Bellek(53, 1) = "53) Amortisation:": Bellek(53, 2) = " Amortisman ( itfa) "
Bellek(54, 1) = "54) Amortisation method:": Bellek(54, 2) = " Amortisman yöntemi (itfa yöntemi) "
Bellek(55, 1) = "55) Amortisation period:": Bellek(55, 2) = " Amortisman dönemi (itfa dönemi) "
Bellek(56, 1) = "56) Amortised cost:": Bellek(56, 2) = " İtfa edilmiş maliyet "
Bellek(57, 1) = "57) Amortised cost of a financial asset or financial liability:": Bellek(57, 2) = " Finansal varlık veya yükümlülüklerin etkin faiz yöntemiyle hesaplanan itfa edilmiş değeri "
Bellek(58, 1) = "58) Amount of inventories:": Bellek(58, 2) = " Stokların tutarı (UMS 2)"
Bellek(59, 1) = "59) Amount per share:": Bellek(59, 2) = " Hisse başına tutar (UMS 33)"
Bellek(60, 1) = "60) Amounts recognised (in the balance sheet and income statement):": Bellek(60, 2) = " Kayda alınan/Muhasebeleştirilen tutarlar (Bilanço ve gelir tablosunda) "
Bellek(61, 1) = "61) Analysis:": Bellek(61, 2) = " Analiz etme"
Bellek(62, 1) = "62) Annual leave:": Bellek(62, 2) = " Yıllık izin"
Bellek(63, 1) = "63) Annual periods:": Bellek(63, 2) = " Yıllık dönemler (UMS 33)"
Bellek(64, 1) = "64) Annuitant:": Bellek(64, 2) = " Yıllık sigortalı (ED 5)"
Bellek(65, 1) = "65) Annuitisation:": Bellek(65, 2) = " Sigorta poliçesinin sağlayacağı düzenli yıllık gelir tutarı (6)"
Bellek(66, 1) = "66) Annuity:": Bellek(66, 2) = " Yıllık düzenli gelir (ED 5) (7) "
Bellek(67, 1) = "67) Antidilution:": Bellek(67, 2) = " Hisse senetlerinde artış olsa bile hisse başına karın artışı ya da hisse başına zararın azalışı (UMS 33) (8)"
Bellek(68, 1) = "68) Antidilutive:": Bellek(68, 2) = " Hisse başına kar artışı ya da hisse başına zarar azalışı etkisine sebep olan (UMS 33) (9)"
Bellek(69, 1) = "69) Appendix:": Bellek(69, 2) = " Ek"
Bellek(70, 1) = "70) Application of Requirements:": Bellek(70, 2) = " Koşulların( kuralların, gereklerin) uygulanması (UFRS 1) "
Bellek(71, 1) = "71) Arms length transaction:": Bellek(71, 2) = " Piyasa şartlarında muvazaasız işlem"
Bellek(72, 1) = "72) Asking price:": Bellek(72, 2) = " Teklif fiyatı "
Bellek(73, 1) = "73) Assess:": Bellek(73, 2) = " Değer biçmek"
Bellek(74, 1) = "74) Asset:": Bellek(74, 2) = " Varlık ( aktif)"
Bellek(75, 1) = "75) Asset exchange transactions:": Bellek(75, 2) = " Varlık takas/değişim işlemleri (UMS 16)"
Bellek(76, 1) = "76) Assets acquired:": Bellek(76, 2) = " Edinilen varlıklar (UFRS 1) "
Bellek(77, 1) = "77) Assets held by a long- term employee benefit fund:": Bellek(77, 2) = " Uzun vadeli emeklilik fonlarının sahip olduğu varlıklar "
Bellek(78, 1) = "78) Associate:": Bellek(78, 2) = " İştirak"
Bellek(79, 1) = "79) Audit report:": Bellek(79, 2) = " Denetim raporu (UFRS 1) "
Bellek(80, 1) = "80) Authorise (financial statements for issue):": Bellek(80, 2) = " Onaylama (finansal tabloların yayınlanması için)"
Bellek(81, 1) = "81) Available- for sale financial assets:": Bellek(81, 2) = " Satılmaya hazır finansal varlıklar "
Bellek(82, 1) = "82) Balance sheet:": Bellek(82, 2) = " Bilanço "
Bellek(83, 1) = "83) Balance sheet date:": Bellek(83, 2) = " Bilanço tarihi "
Bellek(84, 1) = "84) Balance sheet liability method:": Bellek(84, 2) = " Bilanço yükümlülük metodu"
Bellek(85, 1) = "85) Bank:": Bellek(85, 2) = " Banka"
Bellek(86, 1) = "86) Bank overdraft:": Bellek(86, 2) = " Borçlu cari hesap"
Bellek(87, 1) = "87) Bankruptcy:": Bellek(87, 2) = " İflas"
Bellek(88, 1) = "88) Basic earnings per share:": Bellek(88, 2) = " Adi hisse başına kar"
Bellek(89, 1) = "89) Basis for Conclusions:": Bellek(89, 2) = " Gerekçe (UFRS 1) "
Bellek(90, 1) = "90) Benchmark treatment:": Bellek(90, 2) = " Temel Yöntem "
Bellek(91, 1) = "91) Benefit:": Bellek(91, 2) = " Fayda "
Bellek(92, 1) = "92) Benefit (cont):": Bellek(92, 2) = " Personel sosyal yardımları "
Bellek(93, 1) = "93) Benefit obligation:": Bellek(93, 2) = " Sağlanan faydalara ilişkin yükümlülükler (UFRS 1)"
Bellek(94, 1) = "94) Benefit to users:": Bellek(94, 2) = " Kullanıcılara sağlanan faydalar (UFRS 1) "
Bellek(95, 1) = "95) Best estimate:": Bellek(95, 2) = " En iyi tahmin (öngörü)"
Bellek(96, 1) = "96) Bias:": Bellek(96, 2) = " Peşin hüküm, taraflı, yanlı"
Bellek(97, 1) = "97) Bid bonds:": Bellek(97, 2) = " Teminat tahvilleri "
Bellek(98, 1) = "98) Bid price:": Bellek(98, 2) = " İhale (teklif) fiyatı "
Bellek(99, 1) = "99) Binding sale agreement:": Bellek(99, 2) = " Bağlayıcı (vazgeçilmez) satış anlaşması "
Bellek(100, 1) = "100) Biological asset:": Bellek(100, 2) = " Canlı varlık "
Bellek(101, 1) = "101) Biological transformation:": Bellek(101, 2) = " Biyolojik dönüşüm"
Bellek(102, 1) = "102) Board of directors:": Bellek(102, 2) = " Yönetim kurulu"
Bellek(103, 1) = "103) Bonus issue:": Bellek(103, 2) = " Bedelsiz hisse senedi verilmesi (UMS 33)"
Bellek(104, 1) = "104) Bonus plan:": Bellek(104, 2) = " İkramiye planı"
Bellek(105, 1) = "105) Book of contracts:": Bellek(105, 2) = " Poliçeler bütünü (ED 5) "
Bellek(106, 1) = "106) Book value:": Bellek(106, 2) = " Defter değeri "
Bellek(107, 1) = "107) Borrowing costs:": Bellek(107, 2) = " Borçlanma maliyetleri"
Bellek(108, 1) = "108) Bottom- up test:": Bellek(108, 2) = " Esastan başlayarak sonuca gidilen test "
Bellek(109, 1) = "109) Business combination:": Bellek(109, 2) = " İşletme birleşmeleri "
Bellek(110, 1) = "110) Business segment:": Bellek(110, 2) = " faaliyet alanı / iş dalı /"
Bellek(111, 1) = "111) Business unit:": Bellek(111, 2) = " İşletme birimi "
Bellek(112, 1) = "112) Buying segment:": Bellek(112, 2) = " Satın alan bölüm / iş dalı"
Bellek(113, 1) = "113) By- product:": Bellek(113, 2) = " Yan (tali) ürün "
Bellek(114, 1) = "114) Call options:": Bellek(114, 2) = " Alım opsiyonu"
Bellek(115, 1) = "115) Callable:": Bellek(115, 2) = " İhbarlı (vadeden önce ödenebilir, değiştirilebilir, geri çağrılabilir) "
Bellek(116, 1) = "116) Cap:": Bellek(116, 2) = " Faiz tavanı ( tavan faiz oranı) "
Bellek(117, 1) = "117) Capital:": Bellek(117, 2) = " Sermaye "
Bellek(118, 1) = "118) Capital appreciation:": Bellek(118, 2) = " Sermaye kazancı (gayrimenkullerle ilgili) (UMS 4O) "
Bellek(119, 1) = "119) Capital asset pricing model:": Bellek(119, 2) = " Sermaye varlıkları fiyatlandırma modeli "
Bellek(120, 1) = "120) Capital contribution:": Bellek(120, 2) = " Sermaye artırımı"
Bellek(121, 1) = "121) Capital expenditure:": Bellek(121, 2) = " Yatırım harcaması "
Bellek(122, 1) = "122) Capital gain:": Bellek(122, 2) = " sermaye kazancı (yatırım araçlarının satışından ya da değer artışından elde edilen gelir )"
Bellek(123, 1) = "123) Capital maintenance:": Bellek(123, 2) = " Sermayenin korunması "
Bellek(124, 1) = "124) Capital maintenance adjustment:": Bellek(124, 2) = " Sermayenin korunması ile ilgili düzeltme (10)"
Bellek(125, 1) = "125) Capitalisation:": Bellek(125, 2) = " Aktifleştirme"
Bellek(126, 1) = "126) Capitalisation of interest:": Bellek(126, 2) = " Faizin aktifleştirilmesi"
Bellek(127, 1) = "127) Carried at cost:": Bellek(127, 2) = " Maliyet bedeliyle gösterme"
Bellek(128, 1) = "128) Carry forward:": Bellek(128, 2) = " Aktarma, taşıma (nakli yekun) "
Bellek(129, 1) = "129) Carrying amount:": Bellek(129, 2) = " Defter değeri / taşınan değer"
Bellek(130, 1) = "130) Cash:": Bellek(130, 2) = " Nakit"
Bellek(131, 1) = "131) Cash (cont.):": Bellek(131, 2) = " Kasa"
Bellek(132, 1) = "132) Cash basis:": Bellek(132, 2) = " Nakit esası"
Bellek(133, 1) = "133) Cash equivalents:": Bellek(133, 2) = " Nakit benzerleri (geçici yatırımlar) "
Bellek(134, 1) = "134) Cash flow:": Bellek(134, 2) = " Nakit akışı "
Bellek(135, 1) = "135) Cash flow risk:": Bellek(135, 2) = " Nakit akış riski "
Bellek(136, 1) = "136) Cash flow statement= Statement of cash flows:": Bellek(136, 2) = " Nakit akış tablosu "
Bellek(137, 1) = "137) Cash generating unit:": Bellek(137, 2) = " Nakit yaratan birim "
Bellek(138, 1) = "138) Cash inflow:": Bellek(138, 2) = " Nakit girişi"
Bellek(139, 1) = "139) Cash on hand:": Bellek(139, 2) = " Nakit mevcudu"
Bellek(140, 1) = "140) Cash outflow:": Bellek(140, 2) = " Nakit çıkışı"
Bellek(141, 1) = "141) Cash payments:": Bellek(141, 2) = " Nakit ödemeler "
Bellek(142, 1) = "142) Cash price equivalent:": Bellek(142, 2) = " Peşin fiyat eşdeğeri (11) (UMS 16) "
Bellek(143, 1) = "143) Cash proceeds:": Bellek(143, 2) = " Nakit tahsilat "
Bellek(144, 1) = "144) Cash surrender value:": Bellek(144, 2) = " Nakit teslim değeri (12) (ED 5) "
Bellek(145, 1) = "145) Catastrophe bond:": Bellek(145, 2) = " Afet poliçesi (13)"
Bellek(146, 1) = "146) Catastrophe provisions:": Bellek(146, 2) = " Afet poliçesi karşılıkları "
Bellek(147, 1) = "147) Cedant:": Bellek(147, 2) = " Sedan ( sigortalanan sigortacı) (ED 5)"
Bellek(148, 1) = "148) Certificates of deposit:": Bellek(148, 2) = " Mevduat sertifikaları "
Bellek(149, 1) = "149) Cessation (of capitalisation):": Bellek(149, 2) = " Aktifleştirilmenin durdurulması"
Bellek(150, 1) = "150) Chief executive officer:": Bellek(150, 2) = " İcra Kurulu Başkanı / Genel Müdür"
Bellek(151, 1) = "151) Claim:": Bellek(151, 2) = " Talep, hak, dava etme"
Bellek(152, 1) = "152) Class A preference share:": Bellek(152, 2) = " A tipi imtiyazlı hisse (UMS 33) "
Bellek(153, 1) = "153) Class of assets:": Bellek(153, 2) = " Varlıklar sınıfı "
Bellek(154, 1) = "154) Class of property, plant and equipment:": Bellek(154, 2) = " Maddi duran varlıklar grubu (UMS 16) "
Bellek(155, 1) = "155) Classification:": Bellek(155, 2) = " Sınıflandırma "
Bellek(156, 1) = "156) Classification of inventory:": Bellek(156, 2) = " Stokların sınıflandırılması (UMS 2)"
Bellek(157, 1) = "157) Close members of the family of the individual:": Bellek(157, 2) = " Bireyin yakın aile fertleri / Raporlayan kuruluşların kararlarında etkin olan grup şirketleri (UMS 24) "
Bellek(158, 1) = "158) Closing market prices:": Bellek(158, 2) = " Borsa kapanış fiyatları (UMS 33)"
Bellek(159, 1) = "159) Closing rate:": Bellek(159, 2) = " Kapanış kuru, fiyatı"
Bellek(160, 1) = "160) Collateral:": Bellek(160, 2) = " Teminat, güvence "
Bellek(161, 1) = "161) Collateralised (asset, borrowing):": Bellek(161, 2) = " Teminata bağlanmış (varlık, borç) (transfer edilen finansal araç karşılığında) "
Bellek(162, 1) = "162) Collectability:": Bellek(162, 2) = " Tahsil edilebilirlik"
Bellek(163, 1) = "163) Collection:": Bellek(163, 2) = " Tahsilat"
Bellek(164, 1) = "164) Commencement:": Bellek(164, 2) = " Başlangıç"
Bellek(165, 1) = "165) Commencement of the lease term:": Bellek(165, 2) = " Finansal kiralama sözleşmesinin başlangıcı (UMS 17) Commercial substance"
Bellek(166, 1) = "166) Commision:": Bellek(166, 2) = " Komisyon"
Bellek(167, 1) = "167) Commitment:": Bellek(167, 2) = " Taahhüt"
Bellek(168, 1) = "168) Commodity:": Bellek(168, 2) = " Ticari mal "
Bellek(169, 1) = "169) Comparability:": Bellek(169, 2) = " Karşılaştırılabilirlik"
Bellek(170, 1) = "170) Comparability over time:": Bellek(170, 2) = " Zaman sürecinde karşılaştırılabilirlik (UFRS 1) "
Bellek(171, 1) = "171) Comparable interim period:": Bellek(171, 2) = " Karşılaştırılabilir ara dönem (UFRS 1)"
Bellek(172, 1) = "172) Comparative balance sheet:": Bellek(172, 2) = " Karşılaştırmalı bilanço (UFRS 1)"
Bellek(173, 1) = "173) Comparative information:": Bellek(173, 2) = " Karşılaştırmalı bilgi"
Bellek(174, 1) = "174) Compensated absences :": Bellek(174, 2) = "Ücretli izinler (UMS 19) "
Bellek(175, 1) = "175) Completeness:": Bellek(175, 2) = " Tamlık, bütünlük (15)"
Bellek(176, 1) = "176) Compliance with International Accounting Standards:": Bellek(176, 2) = " Uluslararası Muhasebe Standartlarına Uyumluluk"
Bellek(177, 1) = "177) Component:": Bellek(177, 2) = " Kısım, bölüm, kalem, unsur, özellikli içerik (16)"
Bellek(178, 1) = "178) Compound financial instruments:": Bellek(178, 2) = " Ortaklık ve alacaklılık hakkını sağlayan (bileşik) finansal araçlar (UMS 32) "
Bellek(179, 1) = "179) Compound instrument:": Bellek(179, 2) = " Bileşik araç "
Bellek(180, 1) = "180) Concentration of (credit etc) risk:": Bellek(180, 2) = " Risk yoğunlaşması (kredi vb.) (IFRSI)"
Bellek(181, 1) = "181) Configuration of the cash flows:": Bellek(181, 2) = " Nakit akışlarının niteliği (UMS 16, 40) "
Bellek(182, 1) = "182) Consequential amendment:": Bellek(182, 2) = " En son düzenleme (UFRS 1)"
Bellek(183, 1) = "183) Consideration:": Bellek(183, 2) = " Ödenen, karşılık olarak verilen (UMS 16) "
Bellek(184, 1) = "184) Consolidated balance sheet:": Bellek(184, 2) = " Konsolide bilanço (UFRS 1)"
Bellek(185, 1) = "185) Consolidated financial statements:": Bellek(185, 2) = " Konsolide finansal tablolar "
Bellek(186, 1) = "186) Consolidated group:": Bellek(186, 2) = " Konsolide edilmiş şirketler grubu"
Bellek(187, 1) = "187) Consolidation:": Bellek(187, 2) = " Konsolidasyon"
Bellek(188, 1) = "188) Consolidation purposes:": Bellek(188, 2) = " Konsolidasyon amaçları (UFRS 1)"
Bellek(189, 1) = "189) Construction contract:": Bellek(189, 2) = " İnşaat taahhüdü (sözleşmesi) "
Bellek(190, 1) = "190) Constructive obligation:": Bellek(190, 2) = " Zımni kabulden doğan yükümlülük"
Bellek(191, 1) = "191) Contingency:": Bellek(191, 2) = " Koşullu "
Bellek(192, 1) = "192) Contingent asset:": Bellek(192, 2) = " Koşullu varlık "
Bellek(193, 1) = "193) Contingent liability:": Bellek(193, 2) = " Koşullu borç-yükümlülük "
Bellek(194, 1) = "194) Contingent rent:": Bellek(194, 2) = " Koşullu kira (17) "
Bellek(195, 1) = "195) Contingent share agreement:": Bellek(195, 2) = " Koşullu yeni hisse senedi çıkarma sözleşmesi "
Bellek(196, 1) = "196) Contingently issuable shares:": Bellek(196, 2) = " Koşula bağlı çıkarılabilir hisse senetleri (UMS 33) "
Bellek(197, 1) = "197) Continuing operations:": Bellek(197, 2) = " Sürdürülen faaliyetler (UMS 33) "
Bellek(198, 1) = "198) Contract:": Bellek(198, 2) = " Sözleşme"
Bellek(199, 1) = "199) Contracts that may be settled in (ordinary) shares or cash:": Bellek(199, 2) = " Ödemesi hisse alımı ya da nakitle yapılabilen sözleşmeler (UMS 33)"
Bellek(200, 1) = "200) Contractual arrangement:": Bellek(200, 2) = " Sözleşmeye bağlı düzenleme"
Bellek(201, 1) = "201) Contractual obligation:": Bellek(201, 2) = " Sözleşmeye bağlı yükümlülük (ED 5)"
Bellek(202, 1) = "202) Contractual rights:": Bellek(202, 2) = " Sözleşmeden doğan haklar, sigorta sözleşmesine bağlı haklar "
Bellek(203, 1) = "203) Contribution:": Bellek(203, 2) = " Katkı"
Bellek(204, 1) = "204) Control:": Bellek(204, 2) = " Kontrol (UMS 27)"
Bellek(205, 1) = "205) Control (of an asset):": Bellek(205, 2) = " Varlıktan ekonomik yarar sağlama gücü "
Bellek(206, 1) = "206) Control (of an enterprise):": Bellek(206, 2) = " Bir işletmenin kontrolü; (işletme faaliyetlerinden yarar sağlamak üzere finansal ve faaliyet politikalarını yönetme gücü.) "
Bellek(207, 1) = "207) Control number:": Bellek(207, 2) = " Kontrol sayısı ( dönem net karının potansiyel hisse senedi ihracına etkisini açıklamak üzere)"
Bellek(208, 1) = "208) Convenience translation:": Bellek(208, 2) = " Uygunluk çevirisi ( finansal tabloların farklı para ile ifade edilmesi) "
Bellek(209, 1) = "209) Convergence:": Bellek(209, 2) = "Yakınlaşma/Yakınsama"
Bellek(210, 1) = "210) Conversion option:": Bellek(210, 2) = " Değiştirme (dönüştürme) hakkı (finansal araçlarla ilgili) "
Bellek(211, 1) = "211) Convertible bonds:": Bellek(211, 2) = " Hisse senedine dönüştürülebilir tahvil "
Bellek(212, 1) = "212) Convertible debt:": Bellek(212, 2) = " Dönüştürülebilir borç (UMS 33)"
Bellek(213, 1) = "213) Convertible instruments:": Bellek(213, 2) = " Dönüştürülebilir araçlar (UMS 33)"
Bellek(214, 1) = "214) Convertible preference share:": Bellek(214, 2) = " Dönüştürülebilir imtiyazlı hisse senedi (UMS 33)"
Bellek(215, 1) = "215) Copyright:": Bellek(215, 2) = " Telif hakkı"
Bellek(216, 1) = "216) Corporate assets:": Bellek(216, 2) = " Şirket varlıkları (bölümlere tahsis konusuyla ilgili) "
Bellek(217, 1) = "217) Cost:": Bellek(217, 2) = " Maliyet"
Bellek(218, 1) = "218) Cost formula:": Bellek(218, 2) = " Maliyet hesaplama tekniği (stoklarla ilgili) "
Bellek(219, 1) = "219) Cost method:": Bellek(219, 2) = " Maliyet yöntemi ( yatırımlarla ilgili) (UMS 27)"
Bellek(220, 1) = "220) Cost method:": Bellek(220, 2) = " Maliyet yöntemi ( stoklarla ilgili) (UMS 2)"
Bellek(221, 1) = "221) Cost model:": Bellek(221, 2) = " Maliyet modeli ( bilançodaki maddi duran varlıkların gösterimi) (UMS 16)"
Bellek(222, 1) = "222) Cost of an acquisition:": Bellek(222, 2) = " Elde etme maliyeti (ödenen bedel veya değiştirilen varlığın gerçeğe uygun değeri) "
Bellek(223, 1) = "223) Cost of an asset acquired in exchange or part exchange for dissimilar asset:": Bellek(223, 2) = " Benzer olmayan bir varlıkla tamamen veya kısmen takas edilen/değiştirilen varlığın maliyeti "
Bellek(224, 1) = "224) Cost of an asset acquired in exchange or part exchange for similar asset:": Bellek(224, 2) = " Benzer bir varlıkla tamamen veya kısmen takas edilen/değiştirilen varlığın maliyeti "
Bellek(225, 1) = "225) Cost of an investment:": Bellek(225, 2) = " Yatırım maliyeti "
Bellek(226, 1) = "226) Cost of conversion:": Bellek(226, 2) = " Dönüştürme maliyeti"
Bellek(227, 1) = "227) Cost of inventories:": Bellek(227, 2) = " Stokların maliyeti"
Bellek(228, 1) = "228) Cost of inventories of a Service Provider:": Bellek(228, 2) = " Hizmet sağlayan İşletmelerinin stok maliyeti (UMS 2)"
Bellek(229, 1) = "229) Cost of purchase:": Bellek(229, 2) = " Alış maliyeti "
Bellek(230, 1) = "230) Cost plus contract:": Bellek(230, 2) = " Maliyet artı kar sözleşmesi (UMS 11)"
Bellek(231, 1) = "231) Cost plus method:": Bellek(231, 2) = " Maliyet artı kar yöntemi (UMS 11) "
Bellek(232, 1) = "232) Cost recovery approach:": Bellek(232, 2) = " Geri kazanılabilir maliyet yaklaşımı"
Bellek(233, 1) = "233) Cost- based measurement:": Bellek(233, 2) = " Maliyete dayalı ölçüm (UFRS 1)"
Bellek(234, 1) = "234) Cost of conversion:": Bellek(234, 2) = " Dönüştürme maliyeti"
Bellek(235, 1) = "235) Costs of disposal:": Bellek(235, 2) = " Elden çıkarma maliyetleri"
Bellek(236, 1) = "236) Country of incorporation or residence:": Bellek(236, 2) = " Şirketin kuruluş yeri veya ikametgahı (UMS 27)"
Bellek(237, 1) = "237) Credit derivative default product:": Bellek(237, 2) = " Ödenmeme riskine karşı geliştirilen türev ürün"
Bellek(238, 1) = "238) Credit facilities:": Bellek(238, 2) = " Kredilendirme araçları"
Bellek(239, 1) = "239) Credit insurance contract:": Bellek(239, 2) = " Kredi sigorta poliçesi (ED 5)"
Bellek(240, 1) = "240) Credit risk:": Bellek(240, 2) = " Kredi riski "
Bellek(241, 1) = "241) Creditors:": Bellek(241, 2) = " Kredi verenler "
Bellek(242, 1) = "242) Creditworthiness:": Bellek(242, 2) = " Kredi değerliliği (borçluların güvenilirlik göstergesi)"
Bellek(243, 1) = "243) CTDs (Cumulative Translation Differences):": Bellek(243, 2) = " Birikimli Çevirim Farkları (UFRS 1) "
Bellek(244, 1) = "244) Cumulative preference dividends:": Bellek(244, 2) = " İmtiyazlı hisse senetleri birikimli temettüleri "
Bellek(245, 1) = "245) Currency risk:": Bellek(245, 2) = " Döviz riski "
Bellek(246, 1) = "246) Currency translation:": Bellek(246, 2) = " Farklı para birimine çevirme"
Bellek(247, 1) = "247) Currency units:": Bellek(247, 2) = " Para birimleri"
Bellek(248, 1) = "248) Current asset:": Bellek(248, 2) = " Dönen varlık"
Bellek(249, 1) = "249) Current cost:": Bellek(249, 2) = " Cari maliyet"
Bellek(250, 1) = "250) Current cost approach:": Bellek(250, 2) = " Cari maliyet yaklaşımı"
Bellek(251, 1) = "251) Current investment:": Bellek(251, 2) = "Kısa vadeli yatırım"
Bellek(252, 1) = "252) Current liabilities:": Bellek(252, 2) = " Kısa vadeli borçlar"
Bellek(253, 1) = "253) Current service cost:": Bellek(253, 2) = " Cari hizmet maliyeti"
Bellek(254, 1) = "254) Current tax:": Bellek(254, 2) = " Dönem vergisi "
Bellek(255, 1) = "255) Curtailment:": Bellek(255, 2) = " Azaltma (UMS 19)"
Bellek(256, 1) = "256) Date of acquisiton:": Bellek(256, 2) = " Edinme tarihi"
Bellek(257, 1) = "257) Date of transition to IFRS:": Bellek(257, 2) = " Uluslararası finansal raporlama standartlarına (UFRS) geçiş tarihi "
Bellek(258, 1) = "258) Dealing securities:": Bellek(258, 2) = " İşlem gören menkul kıymetler"
Bellek(259, 1) = "259) Death benefit:": Bellek(259, 2) = " Ölüm yardımı (Ölüme bağlı tazminatın nasıl hesaplanacağı kapsamında) (ED5)"
Bellek(260, 1) = "260) Debt:": Bellek(260, 2) = " Borç "
Bellek(261, 1) = "261) Debt instrument:": Bellek(261, 2) = " Borçlanma aracı (UMS 32)"
Bellek(262, 1) = "262) Debt securities:": Bellek(262, 2) = " Borçlanma senetleri (UMS 14) "
Bellek(263, 1) = "263) Decision tree:": Bellek(263, 2) = " Karar ağacı"
Bellek(264, 1) = "264) Decision- useful information:": Bellek(264, 2) = " Karar için yararlı bilgi (UFRS 1)"
Bellek(265, 1) = "265) Deductible temporary difference:": Bellek(265, 2) = " İndirilebilir geçici fark"
Bellek(266, 1) = "266) Deemed cost:": Bellek(266, 2) = " Tahmini/Beklenen Maliyet (18) (UFRS 1) "
Bellek(267, 1) = "267) Defer:": Bellek(267, 2) = " Erteleme"
Bellek(268, 1) = "268) Deferral method:": Bellek(268, 2) = " Erteleme yöntemi"
Bellek(269, 1) = "269) Deferred acquisition costs:": Bellek(269, 2) = " Aktifleştirilen (ertelenen) edinme maliyetleri (ED 5) "
Bellek(270, 1) = "270) Deferred tax:": Bellek(270, 2) = " Ertelenmiş vergi (UFRS 1)"
Bellek(271, 1) = "271) Deferred tax assets:": Bellek(271, 2) = " Ertelenmiş vergi varlıkları"
Bellek(272, 1) = "272) Deferred tax liabilities:": Bellek(272, 2) = " Ertelenmiş vergi yükümlülükleri"
Bellek(273, 1) = "273) Defined benefit liability:": Bellek(273, 2) = " Belirlenmiş tazminat borcu (kesintisi)"
Bellek(274, 1) = "274) Defined benefit obligation:": Bellek(274, 2) = " Belirlenmiş tazminat yükümlülüğü"
Bellek(275, 1) = "275) Defined benefit obligation (present value of):": Bellek(275, 2) = " Belirlenmiş tazminat yükümlülüğünün bugünkü değeri"
Bellek(276, 1) = "276) Defined benefit plans:": Bellek(276, 2) = " Belirlenmiş fayda esaslı planlar (IAS 19)"
Bellek(277, 1) = "277) Defined contribution plans:": Bellek(277, 2) = " İşverenin tazminata katkı paylı (prim ödemeli) planları "
Bellek(278, 1) = "278) Demand deposits:": Bellek(278, 2) = " Vadesiz mevduatlar "
Bellek(279, 1) = "279) Demerger:": Bellek(279, 2) = " Şirket bölünmesi, işletmenin bir bölümünü ayırarak elden çıkarma (UMS 35)"
Bellek(280, 1) = "280) Demonstrably committed:": Bellek(280, 2) = " Taahhüt edilen tazminat (19)"
Bellek(281, 1) = "281) Deposit accounting:": Bellek(281, 2) = " Mevduata dayalı poliçeler (ED 5) "
Bellek(282, 1) = "282) Deposit component:": Bellek(282, 2) = " Yaşam sigortalarının mevduat birimi (ED 5)"
Bellek(283, 1) = "283) Depreciable amount:": Bellek(283, 2) = " Amortismana tabi tutar (20) (UMS 16)"
Bellek(284, 1) = "284) Depreciable assets:": Bellek(284, 2) = " Amortismana tabi varlıklar"
Bellek(285, 1) = "285) Depreciated replacement cost approach:": Bellek(285, 2) = " İtfa edilen yenileme maliyeti yaklaşımı (21) (UMS 16)"
Bellek(286, 1) = "286) Depreciation:": Bellek(286, 2) = " Amortisman "
Bellek(287, 1) = "287) Depreciation methods:": Bellek(287, 2) = " Amortisman yöntemleri (UFRS 1)"
Bellek(288, 1) = "288) Derecognise (a financial instrument):": Bellek(288, 2) = " Bir finansal varlık veya borcun bilanço dışında bırakılması"
Bellek(289, 1) = "289) Derecognition:": Bellek(289, 2) = " Bilanço dışı bırakma "
Bellek(290, 1) = "290) Derivative:": Bellek(290, 2) = " Türev "
Bellek(291, 1) = "291) Derivative financial instruments:": Bellek(291, 2) = " Türev finansal araçlar "
Bellek(292, 1) = "292) Determination of cost:": Bellek(292, 2) = " Maliyetin belirlenmesi (UMS 2)"
Bellek(293, 1) = "293) Development:": Bellek(293, 2) = " Geliştirme"
Bellek(294, 1) = "294) Development cost:": Bellek(294, 2) = " Geliştirme maliyetleri"
Bellek(295, 1) = "295) Diluted earnings per share:": Bellek(295, 2) = " Hisse senetlerinde artış olduğu takdirde hisse başına kazanç (UMS 33) "
Bellek(296, 1) = "296) Dilution:": Bellek(296, 2) = " Hisse senetlerinde artış olduğu takdirde hisse başına karın azalışı ya da hisse başına zararın artışı (22) (UMS 33) "
Bellek(297, 1) = "297) Dilutive effect:": Bellek(297, 2) = " Hisse başına kar azalışı ya da hisse başına zarar artışı etkisi (UMS 33) "
Bellek(298, 1) = "298) Dilutive potential ordinary shares:": Bellek(298, 2) = " Sulandırma etkisi olan potansiyel hisse senetleri Diminishing balance method"
Bellek(299, 1) = "299) Direct insurance contract:": Bellek(299, 2) = " Reasürans sözleşmesi olmayan sigorta poliçesi (ED 5)"
Bellek(300, 1) = "300) Direct labour:": Bellek(300, 2) = " Direkt (dolaysız) işçilik"
Bellek(301, 1) = "301) Direct method of reporting cash flows from operating activities:": Bellek(301, 2) = " İşletme faaliyetlerine ilişkin nakit akışlarının raporlanmasında direkt (brüt) yöntem "
Bellek(302, 1) = "302) Direct operating expenses:": Bellek(302, 2) = " Direkt faaliyet (işletme) giderleri (UMS 40)"
Bellek(303, 1) = "303) Directors:": Bellek(303, 2) = " Yöneticiler (müdürler)"
Bellek(304, 1) = "304) Disclose:": Bellek(304, 2) = " Açıklamak"
Bellek(305, 1) = "305) Disclosure:": Bellek(305, 2) = " Açıklama "
Bellek(306, 1) = "306) Disclosure (cont):": Bellek(306, 2) = " Kamuoyunu Aydınlatma"
Bellek(307, 1) = "307) Disclosure and Presentation:": Bellek(307, 2) = " Açıklama ve sunma (UFRS 1)"
Bellek(308, 1) = "308) Disclosure of government assistance:": Bellek(308, 2) = " Devlet yardımlarının açıklanması (UMS 20)"
Bellek(309, 1) = "309) Discontinued (operations):": Bellek(309, 2) = " (Elden çıkarılacak işletme veya birimlerine ait) Durdurulan/sona erdirilen (faaliyetler) (ED 4)"
Bellek(310, 1) = "310) Discontinuing operations:": Bellek(310, 2) = " Durdurulan/sona erdirilen faaliyetler (elden çıkarılacak işletme veya birimlerine ait (ED 4) "
Bellek(311, 1) = "311) Discount rate:": Bellek(311, 2) = " İskonto oranı"
Bellek(312, 1) = "312) Discounted basis:": Bellek(312, 2) = " İskonto esası (sigortacının yükümlülük hesaplaması) (ED 5) "
Bellek(313, 1) = "313) Discounting:": Bellek(313, 2) = " İskonto etme"
Bellek(314, 1) = "314) Discretionary participation feature:": Bellek(314, 2) = " İsteğe bağlı katılım şekli (23)"
Bellek(315, 1) = "315) Disposal consideration:": Bellek(315, 2) = " Elden çıkarma bedeli (24)"
Bellek(316, 1) = "316) Dividend yield:": Bellek(316, 2) = "Temettü getirisi "
Bellek(317, 1) = "317) Dividends:": Bellek(317, 2) = " Temettüler"
Bellek(318, 1) = "318) Doubtful debts:": Bellek(318, 2) = " Şüpheli alacaklar (UMS 24)"
Bellek(319, 1) = "319) Downstream transactions:": Bellek(319, 2) = " İştirak ve bağlı ortaklıklarla yapılan grup içi işlemler (25)"
Bellek(320, 1) = "320) Dual trigger contract:": Bellek(320, 2) = " Çifte etki yaratan sigorta poliçesi (26) (ED 5) "
Bellek(321, 1) = "321) Earlier application is encouraged:": Bellek(321, 2) = " Erken uygulama teşvik edilir (27) (UMS 33) "
Bellek(322, 1) = "322) Earnings:": Bellek(322, 2) = " Kazançlar, karlar "
Bellek(323, 1) = "323) Earnings- diluted:": Bellek(323, 2) = " Hisse senetlerinde artış olduğu takdirde kazançlar (28) (UMS 33) "
Bellek(324, 1) = "324) Earnings contingency:": Bellek(324, 2) = " Koşula bağlı kazançlar (UMS 33)"
Bellek(325, 1) = "325) Earnings per share:": Bellek(325, 2) = " Hisse başına kar (UMS 33) "
Bellek(326, 1) = "326) Economic benefits:": Bellek(326, 2) = " Ekonomik yararlar (29) (UFRS 1) "
Bellek(327, 1) = "327) Economic life:": Bellek(327, 2) = " Faydalı ekonomik ömür (30) "
Bellek(328, 1) = "328) Effect of assumed conversions:": Bellek(328, 2) = " Varsayılan dönüştürme etkisi (31) (UMS 33)"
Bellek(329, 1) = "329) Effective date:": Bellek(329, 2) = " Yürürlük tarihi"
Bellek(330, 1) = "330) Effective interest method:": Bellek(330, 2) = " Etkin faiz yöntemi(32) (UMS 39) "
Bellek(331, 1) = "331) Effects of Changes in Foreign Exchange Rates:": Bellek(331, 2) = " Kur değişim etkileri (UFRS 1)"
Bellek(332, 1) = "332) Elligible for capitalisation:": Bellek(332, 2) = " Aktifleştirilebilir (33) (UMS 23) "
Bellek(333, 1) = "333) Embedded derivative:": Bellek(333, 2) = " Melez bir üründe gömülü/saklı türev ürünü, (34) (UMS 32) "
Bellek(334, 1) = "334) Employee benefits:": Bellek(334, 2) = " Çalışanlara sağlanan faydalar (35) (UMS 19) "
Bellek(335, 1) = "335) Employee share ownership plan:": Bellek(335, 2) = " Personelin hisse alarak ortak olma planı (36) (UMS 19) "
Bellek(336, 1) = "336) Employee turnover rates:": Bellek(336, 2) = " Personelin işten ayrılma hızı "
Bellek(337, 1) = "337) Employer payroll taxes and insurance contributions:": Bellek(337, 2) = " İşverenin ücret vergisi ve sosyal sigorta primleri (UFRS 1) "
Bellek(338, 1) = "338) Enactment:": Bellek(338, 2) = " Yasalaştırma, kanunun kabulü (UMS 12)"
Bellek(339, 1) = "339) Enhanced Disclosure:": Bellek(339, 2) = " Geniş kapsamlı açıklamalar (37) (UFRS 1)"
Bellek(340, 1) = "340) Enterprise:": Bellek(340, 2) = " İşletme, teşebbüs"
Bellek(341, 1) = "341) Enterprise (cont):": Bellek(341, 2) = " Girişim"
Bellek(342, 1) = "342) Enterprises whose shares are (not) publicly traded:": Bellek(342, 2) = " Hisseleri borsada işlem gören (görmeyen) şirketler "
Bellek(343, 1) = "343) Entity:": Bellek(343, 2) = " İşletme, ( Teşebbüs, işletme bölümü , tüzel kişi)"
Bellek(344, 1) = "344) Entity- specific value:": Bellek(344, 2) = " İşletmeye özgü değer(38) (UMS 16) "
Bellek(345, 1) = "345) Equalisation provisions:": Bellek(345, 2) = " Denkleştirme karşılıkları (UMS 8) Sigortacılık riskleri genel karşılıkları "
Bellek(346, 1) = "346) Equity:": Bellek(346, 2) = " Özkaynak "
Bellek(347, 1) = "347) Equity capital:": Bellek(347, 2) = " Özkaynak (ortaklarca konulan sermaye)"
Bellek(348, 1) = "348) Equity compensation benefits :": Bellek(348, 2) = "Özkaynak (dahili) tazmin karşılıkları"
Bellek(349, 1) = "349) Equity compensation plans (= Share(=Stock) compensation plans):": Bellek(349, 2) = " Özkaynak (dahili) tazmin planları (39) (UMS 27) "
Bellek(350, 1) = "350) Equity component:": Bellek(350, 2) = " Özkaynak kalemi (UFRS 1) "
Bellek(351, 1) = "351) Equity index:": Bellek(351, 2) = " Özkaynak endeksi (40) (UMS 15)"
Bellek(352, 1) = "352) Equity instrument:": Bellek(352, 2) = " Özkaynağa dayalı finansal araç (41) (ED 5) "
Bellek(353, 1) = "353) Equity method:": Bellek(353, 2) = " Özkaynak yöntemi (UMS 28) "
Bellek(354, 1) = "354) Equity securities:": Bellek(354, 2) = " Özkaynak senetleri/ Hisse senedine dayalı menkul kıymetler (UMS 14)"
Bellek(355, 1) = "355) Equity (cont):": Bellek(355, 2) = " Özkaynak "
Bellek(356, 1) = "356) Estimated costs:": Bellek(356, 2) = " Tahmini maliyetler (UMS 2)"
Bellek(357, 1) = "357) Event- driven fair value measurement:": Bellek(357, 2) = " Olaya dayalı gerçeğe uygun değer ölçümü (42) "
Bellek(358, 1) = "358) Events occuring after the balance sheet date:": Bellek(358, 2) = " Bilanço tarihinden sonra ortaya çıkan olaylar "
Bellek(359, 1) = "359) Exchange difference:": Bellek(359, 2) = " Kur farkı "
Bellek(360, 1) = "360) Exchange of assets:": Bellek(360, 2) = " Varlıkların takası, değişimi, trampası (43)"
Bellek(361, 1) = "361) Exchange rate:": Bellek(361, 2) = " Takas/değişim oranı, döviz kuru "
Bellek(362, 1) = "362) Exchange transaction:": Bellek(362, 2) = " Değişim, takas işlemi (44) (UMS 40) "
Bellek(363, 1) = "363) Executory contract:": Bellek(363, 2) = " Belirli koşullar altında yürürlüğe girecek sözleşmeler (45)"
Bellek(364, 1) = "364) Exemptions:": Bellek(364, 2) = " Muafiyetler (UFRS 1)"
Bellek(365, 1) = "365) Exercise date:": Bellek(365, 2) = " Yürürlük tarihi (46) "
Bellek(366, 1) = "366) Exercise of rights:": Bellek(366, 2) = " Hakların kullanımı (47) (UMS33) "
Bellek(367, 1) = "367) Exercise price:": Bellek(367, 2) = " Uygulanacak fiyat (48) "
Bellek(368, 1) = "368) Expected value:": Bellek(368, 2) = " Beklenen (tahmini) değer"
Bellek(369, 1) = "369) Expenditure:": Bellek(369, 2) = " Harcama"
Bellek(370, 1) = "370) Expenses:": Bellek(370, 2) = " Giderler"
Bellek(371, 1) = "371) Experience account:": Bellek(371, 2) = " Aktuaryal varsayıma dayalı hesap"
Bellek(372, 1) = "372) Experience adjustments:": Bellek(372, 2) = " Aktuaryal varsayımla gerçekleşen arasındaki fark düzeltmeleri"
Bellek(373, 1) = "373) Expiry date:": Bellek(373, 2) = " Geçersiz olacağı tarih / Vade tarihi (UMS 12) "
Bellek(374, 1) = "374) Explicit and unreserved statement of compliance:": Bellek(374, 2) = " Açık ve koşulsuz uyum tablosu (49) (UFRS 1)"
Bellek(375, 1) = "375) Exposure draft:": Bellek(375, 2) = " Nihai taslak "
Bellek(376, 1) = "376) Extraordinary items:": Bellek(376, 2) = " Olağandışı kalemler "
Bellek(377, 1) = "377) Face (of Financial Statements or Notes):": Bellek(377, 2) = " İçerik (Finansal Tablolar veya Dipnotlar) (UMS 1)"
Bellek(378, 1) = "378) Fair presentation:": Bellek(378, 2) = " Gerçeğe uygun sunum"
Bellek(379, 1) = "379) Fair value:": Bellek(379, 2) = " Gerçeğe uygun değer "
Bellek(380, 1) = "380) Fair value measurement:": Bellek(380, 2) = " Gerçeğe uygun değer ölçümü (UFRS 1) "
Bellek(381, 1) = "381) Fair value (cont):": Bellek(381, 2) = " Gerçeğe uygun değer "
Bellek(382, 1) = "382) Faithful representation:": Bellek(382, 2) = " Güvenilir olma (UFRS 1)"
Bellek(383, 1) = "383) Fees:": Bellek(383, 2) = " Aidatlar, ücretler"
Bellek(384, 1) = "384) Fellow subsidiary:": Bellek(384, 2) = " Aynı daldaki bağlı ortaklık (UMS 24)"
Bellek(385, 1) = "385) Fidelity bonds:": Bellek(385, 2) = " Suistimale karşı korumalı tahvil (ED 5)"
Bellek(386, 1) = "386) FIFO (first- in, first- out):": Bellek(386, 2) = " FİFO (ilk giren ilk çıkar)"
Bellek(387, 1) = "387) FIFO Formula:": Bellek(387, 2) = " Fifo formülü (50) (UMS 2)"
Bellek(388, 1) = "388) Finance lease:": Bellek(388, 2) = " Finansal kiralama "
Bellek(389, 1) = "389) Finance lease obligations:": Bellek(389, 2) = " Finansal kiralama yükümlülükleri"
Bellek(390, 1) = "390) Financial asset:": Bellek(390, 2) = " Finansal varlık (51) "
Bellek(391, 1) = "391) Financial asset or liability held for trading:": Bellek(391, 2) = " Ticari amaçla bulundurulan finansal varlık veya borç "
Bellek(392, 1) = "392) Financial asset (cont.):": Bellek(392, 2) = " Finansal varlık"
Bellek(393, 1) = "393) Financial capital:": Bellek(393, 2) = " Finansal sermaye"
Bellek(394, 1) = "394) Financial guarantee:": Bellek(394, 2) = " Finansal teminat"
Bellek(395, 1) = "395) Financial institution:": Bellek(395, 2) = " Finansal kuruluş"
Bellek(396, 1) = "396) Financial instruments:": Bellek(396, 2) = " Finansal araçlar (52)"
Bellek(397, 1) = "397) Financial liability:": Bellek(397, 2) = " Finansal borç (53) "
Bellek(398, 1) = "398) Financial performance:": Bellek(398, 2) = " Finansal performans (başarı) (54) (UFRS 1)"
Bellek(399, 1) = "399) Financial performance:": Bellek(399, 2) = " Finansal performans"
Bellek(400, 1) = "400) Financial position:": Bellek(400, 2) = " Finansal durum "
Bellek(401, 1) = "401) Financial reporting:": Bellek(401, 2) = " Finansal raporlama"
Bellek(402, 1) = "402) Financial review:": Bellek(402, 2) = " Finansal inceleme"
Bellek(403, 1) = "403) Financial risk:": Bellek(403, 2) = " Finansal risk (ED 5)"
Bellek(404, 1) = "404) Financial statements:": Bellek(404, 2) = " Finansal tablolar "
Bellek(405, 1) = "405) Financial statements (cont) :": Bellek(405, 2) = " Finansal tablolar "
Bellek(406, 1) = "406) Financial statements (cont) :": Bellek(406, 2) = " Finansal tablolar"
Bellek(407, 1) = "407) Financial year- to- date basis:": Bellek(407, 2) = " Mali yıl esası (55)"
Bellek(408, 1) = "408) Financing activities:": Bellek(408, 2) = " Finansman faaliyetleri"
Bellek(409, 1) = "409) Financing device:": Bellek(409, 2) = " Finansman aracı (56)"
Bellek(410, 1) = "410) Finished good:": Bellek(410, 2) = " Mamul "
Bellek(411, 1) = "411) Firm commitment:": Bellek(411, 2) = " Tam bağlılık (57) "
Bellek(412, 1) = "412) Firm sales contract :": Bellek(412, 2) = "Kesin satış sözleşmesi(58) (UMS 2)"
Bellek(413, 1) = "413) First IFRS financial statements:": Bellek(413, 2) = " UFRS Standartlarına göre ilk kez düzenlenen finansal tablolar (UFRS 1)"
Bellek(414, 1) = "414) First- time adopter:": Bellek(414, 2) = " İlk kez UFRS uyarlayıcısı (UFRS 1)"
Bellek(415, 1) = "415) First- time adoption:": Bellek(415, 2) = " İlk kez UFRS uyarlaması (UFRS 1)"
Bellek(416, 1) = "416) First- time Application:": Bellek(416, 2) = " İlk kez UFRS uygulaması (UFRS 1)"
Bellek(417, 1) = "417) Fixed asset:": Bellek(417, 2) = " Duran varlık"
Bellek(418, 1) = "418) Fixed price contract:": Bellek(418, 2) = " Sabit fiyatlı sözleşme "
Bellek(419, 1) = "419) Fixed production overheads:": Bellek(419, 2) = " Sabit genel üretim giderleri "
Bellek(420, 1) = "420) Floating rate:": Bellek(420, 2) = " Dalgalı kur"
Bellek(421, 1) = "421) Floor:": Bellek(421, 2) = " Taban oran (59)"
Bellek(422, 1) = "422) Forecast:": Bellek(422, 2) = " Tahmin, öngörü"
Bellek(423, 1) = "423) Forecast transaction:": Bellek(423, 2) = " Taahhüt edilmemiş ama gerçekleşmesi muhtemel işlem (UMS 21)"
Bellek(424, 1) = "424) Foreign currency:": Bellek(424, 2) = " Yabancı para (döviz) "
Bellek(425, 1) = "425) Foreign currency derivatives:": Bellek(425, 2) = " Yabancı para türev araçları veya yabancı paraya dayalı türev araçları (UMS 21) "
Bellek(426, 1) = "426) Foreign currency transaction:": Bellek(426, 2) = " Yabancı para işlemi "
Bellek(427, 1) = "427) Foreign currency translation:": Bellek(427, 2) = " Yabancı para çevirimi"
Bellek(428, 1) = "428) Foreign entity:": Bellek(428, 2) = " Yabancı işletme, birim, kuruluş "
Bellek(429, 1) = "429) Foreign exchange contract:": Bellek(429, 2) = " Yabancı para alım/satım sözleşmeleri"
Bellek(430, 1) = "430) Foreign Exchange Rates:": Bellek(430, 2) = " Döviz kurları (UFRS 1)"
Bellek(431, 1) = "431) Foreign operation:": Bellek(431, 2) = " Dış ülkedeki bağlı işletme (60)"
Bellek(432, 1) = "432) Forgivable loans:": Bellek(432, 2) = " Geri ödenmesi kreditörce talep edilmeyebilecek krediler (61)"
Bellek(433, 1) = "433) Forward contract:": Bellek(433, 2) = " Vadeli işlem sözleşmesi (Forward sözleşmesi)"
Bellek(434, 1) = "434) Framework:": Bellek(434, 2) = " Yapı, çerçeve, taslak"
Bellek(435, 1) = "435) Franchise fee:": Bellek(435, 2) = " İmtiyaz ücreti, bedeli"
Bellek(436, 1) = "436) Function of expense:": Bellek(436, 2) = " Giderlerin fonksiyonu"
Bellek(437, 1) = "437) Functional currency:": Bellek(437, 2) = " Geçerli para birimi (UMS 21) (62)"
Bellek(438, 1) = "438) Fundamental errors:": Bellek(438, 2) = " Temel hatalar "
Bellek(439, 1) = "439) Fundamental Errors and Changes in Accounting Policies:": Bellek(439, 2) = " Temel Hatalar ve Muhasebe Politikalarındaki Değişiklikler (UFRS 1) "
Bellek(440, 1) = "440) Funding:": Bellek(440, 2) = " Fonlama, kaynak yaratma"
Bellek(441, 1) = "441) Future cash flow:": Bellek(441, 2) = " Gelecekteki nakit akışı "
Bellek(442, 1) = "442) Future economic benefit:": Bellek(442, 2) = " Gelecekteki ekonomik yarar "
Bellek(443, 1) = "443) Futures contract:": Bellek(443, 2) = " Vadeli işlem sözleşmesi (Futures sözleşmesi)"
Bellek(444, 1) = "444) GAAP:": Bellek(444, 2) = " Genel Kabul Görmüş Muhasebe İlkeleri (GKGMİ) (UFRS 1)"
Bellek(445, 1) = "445) Gain on disposal:": Bellek(445, 2) = " Elden çıkarma kazancı"
Bellek(446, 1) = "446) Gains:": Bellek(446, 2) = " Kazançlar"
Bellek(447, 1) = "447) General purchasing power approach:": Bellek(447, 2) = " Genel satınalma gücü yaklaşımı "
Bellek(448, 1) = "448) General recognition principle:": Bellek(448, 2) = " Genel kayda alma/muhasebeleştirme ilkesi (UMS 16) "
Bellek(449, 1) = "449) Geographical segments:": Bellek(449, 2) = " Coğrafik bölümler "
Bellek(450, 1) = "450) Going concern:": Bellek(450, 2) = " Süreklilik (işletmenin sürekliliği varsayımı) "
Bellek(451, 1) = "451) Goodwill:": Bellek(451, 2) = " Şerefiye, firma değeri"
Bellek(452, 1) = "452) Government:": Bellek(452, 2) = " Devlet"
Bellek(453, 1) = "453) Government assistance:": Bellek(453, 2) = " Devlet yardımı, desteği"
Bellek(454, 1) = "454) Government grants:": Bellek(454, 2) = " Devlet bağışları "
Bellek(455, 1) = "455) Government guarantee:": Bellek(455, 2) = " Devlet garantisi (63) (UMS 2)"
Bellek(456, 1) = "456) Grants related to assets:": Bellek(456, 2) = " Yatırım malları ile ilgili devlet teşvikleri"
Bellek(457, 1) = "457) Gross investment in the lease:": Bellek(457, 2) = " Finansal kiralama brüt yatırımı "
Bellek(458, 1) = "458) Gross margin:": Bellek(458, 2) = " Brüt satış karı "
Bellek(459, 1) = "459) Gross profit:": Bellek(459, 2) = " Brüt kar"
Bellek(460, 1) = "460) Group:": Bellek(460, 2) = " Grup"
Bellek(461, 1) = "461) Group administration (employee benefit) plans:": Bellek(461, 2) = " Personel sosyal yardımlaşma grup yönetim planları (64)"
Bellek(462, 1) = "462) Group insurance contract:": Bellek(462, 2) = " Grup sigorta sözleşmesi (ED 5)"
Bellek(463, 1) = "463) Group of assets:": Bellek(463, 2) = " Varlıklar (aktifler) grubu"
Bellek(464, 1) = "464) Group of biological assets:": Bellek(464, 2) = " Canlı varlıklar grubu"
Bellek(465, 1) = "465) Grouping of assets:": Bellek(465, 2) = " Varlıkların gruplandırılması"
Bellek(466, 1) = "466) Guarantee:": Bellek(466, 2) = " Garanti, güvence, teminat"
Bellek(467, 1) = "467) Guarantee fund:": Bellek(467, 2) = " Şirketler arası garanti fonu (ED 5) "
Bellek(468, 1) = "468) Guaranteed residual value:": Bellek(468, 2) = " Finansal kiralama konusu varlığın garanti edilmiş kalıntı/hurda değeri "
Bellek(469, 1) = "469) Harmonise:": Bellek(469, 2) = " Uyumlaştırma"
Bellek(470, 1) = "470) Harvest:": Bellek(470, 2) = " Hasat"
Bellek(471, 1) = "471) Hedge accounting:": Bellek(471, 2) = " Finansal riskden korunma muhasebesi (UFRS 1) (UMS 39)"
Bellek(472, 1) = "472) Hedge effectiveness:": Bellek(472, 2) = " Finansal riskden korunma işleminin etkinliği(UMS 32) "
Bellek(473, 1) = "473) Hedged item:": Bellek(473, 2) = " Finansal riskden korunmaya konu kalem (UFRS 1, UMS 39) "
Bellek(474, 1) = "474) Hedging:": Bellek(474, 2) = " Finansal riskden korunma "
Bellek(475, 1) = "475) Hedging instrument:": Bellek(475, 2) = " Finansal riskden korunma aracı "
Bellek(476, 1) = "476) Hedging relationship:": Bellek(476, 2) = " Finansal riskden korunma ilişkisi (UFRS 1)"
Bellek(477, 1) = "477) Hedging reserve:": Bellek(477, 2) = " Finansal riskden korunma yedeği (65) (UFRS 1)"
Bellek(478, 1) = "478) Held for resale:": Bellek(478, 2) = " Yeniden satım amacıyla elde tutulanlar "
Bellek(479, 1) = "479) Held for trading:": Bellek(479, 2) = " Ticaret amacıyla elde tutulanlar (66)"
Bellek(480, 1) = "480) Held- to- maturity investment:": Bellek(480, 2) = " Vadeye kadar tutma amacıyla yapılan yatırım "
Bellek(481, 1) = "481) Hire- purchase contract:": Bellek(481, 2) = " Kiralama- satınalma sözleşmesi"
Bellek(482, 1) = "482) Historical cost:": Bellek(482, 2) = " Tarihi maliyet, fiili maliyet "
Bellek(483, 1) = "483) Historical summaries:": Bellek(483, 2) = " UFRS öncesi tarihi finansal tablo verileri "
Bellek(484, 1) = "484) Holding company:": Bellek(484, 2) = " Holding şirket "
Bellek(485, 1) = "485) Host contract:": Bellek(485, 2) = " Asal sözleşme (67)"
Bellek(486, 1) = "486) Host instrument:": Bellek(486, 2) = " Asal finansal araç "
Bellek(487, 1) = "487) Hyperinflation:": Bellek(487, 2) = " Yüksek enflasyon "
Bellek(488, 1) = "488) Hyperinflationary economies:": Bellek(488, 2) = " Yüksek enflasyonlu ekonomiler"
Bellek(489, 1) = "489) Identifiable asset:": Bellek(489, 2) = " Tanımlanabilir varlık"
Bellek(490, 1) = "490) Identifiable assets:": Bellek(490, 2) = " Tanımlanabilir varlıklar (aktifler) (68) (UFRS 1)"
Bellek(491, 1) = "491) IFRS- compliant:": Bellek(491, 2) = " UFRS uyumlu (69)"
Bellek(492, 1) = "492) Impairment:": Bellek(492, 2) = " Değer düşüklüğü"
Bellek(493, 1) = "493) Impairment loss:": Bellek(493, 2) = " Değer düşüklüğü zararı"
Bellek(494, 1) = "494) Impairment of Assets:": Bellek(494, 2) = " Varlıklarda değer düşüklüğü (UMS 36)"
Bellek(495, 1) = "495) Impairment test:": Bellek(495, 2) = " Değer düşüklüğü testi (UFRS 1)"
Bellek(496, 1) = "496) Implementation Guidance:": Bellek(496, 2) = " Uygulama rehberi (UFRS 1)"
Bellek(497, 1) = "497) Import duties:": Bellek(497, 2) = " İthalat vergileri (resimleri)"
Bellek(498, 1) = "498) Impracticability exemption:": Bellek(498, 2) = " Uygulanamazlık istisnası (UMS 8)"
Bellek(499, 1) = "499) Impracticable:": Bellek(499, 2) = " Uygulanamaz (UMS 8)"
Bellek(500, 1) = "500) Imputed rate of interest:": Bellek(500, 2) = " Emsal/Referans faiz oranı (70)"

End Sub
Private Sub Veri2_Kur()

On Error Resume Next
Bellek(501, 1) = "501) In the money:": Bellek(501, 2) = " Karda olan (71)"
Bellek(502, 1) = "502) Inception of a lease:": Bellek(502, 2) = " Finansal kiralama başlangıcı (UMS 17)"
Bellek(503, 1) = "503) Inception of the lease:": Bellek(503, 2) = " Finansal kiralama sözleşmesi başlangıcı (UMS 17)"
Bellek(504, 1) = "504) Incidental income:": Bellek(504, 2) = " Gözardı edilebilir seviyede kar "
Bellek(505, 1) = "505) Incidental operations:": Bellek(505, 2) = " Sınırlı/gözardı edilebilir faaliyetler (UMS 16)"
Bellek(506, 1) = "506) Income:": Bellek(506, 2) = " Gelir (72)"
Bellek(507, 1) = "507) Income approach:": Bellek(507, 2) = " Gelir (kar) yaklaşımı"
Bellek(508, 1) = "508) Income statement= Statement of income:": Bellek(508, 2) = " Gelir tablosu"
Bellek(509, 1) = "509) Income tax:": Bellek(509, 2) = " Gelir vergisi (73) (UMS 12)"
Bellek(510, 1) = "510) Increasing Rate Preference Shares:": Bellek(510, 2) = " Artan oranlı imtiyazlı hisse senetleri (74)"
Bellek(511, 1) = "511) Incremental share:": Bellek(511, 2) = " Ek hisse (75)"
Bellek(512, 1) = "512) Indicator [of impairment]:": Bellek(512, 2) = " Gösterge (değer düşüklüğü ile ilgili) "
Bellek(513, 1) = "513) Indirect method of reporting cash flows from operating activities:": Bellek(513, 2) = " İşletme faaliyetlerine ilişkin nakit akışlarının raporlanmasında dolaylı yöntem "
Bellek(514, 1) = "514) Individual financial statements:": Bellek(514, 2) = " Bireysel finansal tablolar (UMS 40) "
Bellek(515, 1) = "515) Induced conversion:": Bellek(515, 2) = " Özendirici dönüştürme (76) (UMS 33) "
Bellek(516, 1) = "516) Industry segments:": Bellek(516, 2) = " Sanayi bölümleri/iş dalları (UFRS 1)"
Bellek(517, 1) = "517) Inflation:": Bellek(517, 2) = " Enflasyon"
Bellek(518, 1) = "518) Initial Direct Costs:": Bellek(518, 2) = " Başlangıç direkt maliyetleri (77) (UMS 17)"
Bellek(519, 1) = "519) Initial disclosure event (for a discontinuing operation):": Bellek(519, 2) = " Durdurulan faaliyetlerle ilgili olarak kamuya yapılan ilk açıklama"
Bellek(520, 1) = "520) Initial measurement:": Bellek(520, 2) = " Başlangıç ölçümü"
Bellek(521, 1) = "521) Initial public offering:": Bellek(521, 2) = " Hisse senetlerinin halka ilk kez arzı (UFRS 1) "
Bellek(522, 1) = "522) Initial recognition:": Bellek(522, 2) = " İlk kayda alım/muhasebeleştirme (78) "
Bellek(523, 1) = "523) Insurable interest:": Bellek(523, 2) = " Sigorta edilebilir menfaat (çıkar) (ED5)"
Bellek(524, 1) = "524) Insurance agency commisions:": Bellek(524, 2) = " Sigorta acentesi komisyonları "
Bellek(525, 1) = "525) Insurance assets:": Bellek(525, 2) = " Sigorta varlıkları (79) (ED 5)"
Bellek(526, 1) = "526) Insurance company:": Bellek(526, 2) = " Sigorta şirketi"
Bellek(527, 1) = "527) Insurance contract:": Bellek(527, 2) = " Sigorta poliçesi"
Bellek(528, 1) = "528) Insurance enterprise:": Bellek(528, 2) = " Sigorta kuruluşu"
Bellek(529, 1) = "529) Insurance liability:": Bellek(529, 2) = " Sigorta borcu"
Bellek(530, 1) = "530) Insurance obligations:": Bellek(530, 2) = " Sigorta yükümlülükleri"
Bellek(531, 1) = "531) Insurance risk:": Bellek(531, 2) = " Sigorta riski (80)"
Bellek(532, 1) = "532) Insurance swaps:": Bellek(532, 2) = " Vadeli sigorta riskleri takasları (81) "
Bellek(533, 1) = "533) Insured event:": Bellek(533, 2) = " Sigortalanmış olay (ED 5)"
Bellek(534, 1) = "534) Insurer:": Bellek(534, 2) = " Sigortacı"
Bellek(535, 1) = "535) Intangible asset:": Bellek(535, 2) = " Maddi olmayan duran varlık "
Bellek(536, 1) = "536) Integral foreign operation:": Bellek(536, 2) = " Yabancı ülkedeki bütünleşik/entegre faaliyetler (82)"
Bellek(537, 1) = "537) Interest:": Bellek(537, 2) = " Faiz"
Bellek(538, 1) = "538) Interest cost (for an employee benefit plan):": Bellek(538, 2) = " Faiz maliyeti (personel sosyal yardım planı için) (UMS 19)"
Bellek(539, 1) = "539) Interest rate implict in a lease:": Bellek(539, 2) = " Finansal kiralamada saklı (zımni) faiz oranı (UMS 17)"
Bellek(540, 1) = "540) Interest rate implict in the lease:": Bellek(540, 2) = " Finansal kiralama sözleşmesinde saklı (zımni) faiz oranı (83)"
Bellek(541, 1) = "541) Interest rate risk:": Bellek(541, 2) = " Faiz oranı riski "
Bellek(542, 1) = "542) Interest rate swap:": Bellek(542, 2) = " Vadeli faiz oranı takası/değişimi "
Bellek(543, 1) = "543) Interest (cont):": Bellek(543, 2) = " Faiz"
Bellek(544, 1) = "544) Interim financial report:": Bellek(544, 2) = " Ara dönem finansal raporu "
Bellek(545, 1) = "545) Interim period:": Bellek(545, 2) = " Ara dönem"
Bellek(546, 1) = "546) Internal risk transfer:": Bellek(546, 2) = " İşletme içi risk transferi (ED 5)"
Bellek(547, 1) = "547) Internally generated:": Bellek(547, 2) = " İşletme içi yaratılan (UFRS 1)"
Bellek(548, 1) = "548) Internally generated goodwill:": Bellek(548, 2) = " İşletme içi yaratılan şerefiye (UFRS 1) "
Bellek(549, 1) = "549) International Accounting Standards (IAS):": Bellek(549, 2) = " Uluslararası Muhasebe Standartları (UMS)"
Bellek(550, 1) = "550) International Accounting Standards Committee (IASC):": Bellek(550, 2) = " Uluslararası Muhasebe Standartları Komitesi (UMSK)"
Bellek(551, 1) = "551) International Federation of Accountants (IFAC):": Bellek(551, 2) = " Uluslararası Muhasebeciler Federasyonu (UMF)"
Bellek(552, 1) = "552) International Financial Reporting Standards:": Bellek(552, 2) = " Uluslararası Finansal Raporlama Standartları(UFRS)"
Bellek(553, 1) = "553) Intragroup:": Bellek(553, 2) = " Grup içi (UMS 24)"
Bellek(554, 1) = "554) Inventories:": Bellek(554, 2) = " Stoklar"
Bellek(555, 1) = "555) Investee:": Bellek(555, 2) = " Yatırım yapılan kurum/müessese (UMS 28)"
Bellek(556, 1) = "556) Investing activities:": Bellek(556, 2) = " Yatırım faaliyetleri"
Bellek(557, 1) = "557) Investment:": Bellek(557, 2) = " Yatırım"
Bellek(558, 1) = "558) Investment contract:": Bellek(558, 2) = " Yatırım sözleşmesi (84) (ED 5)"
Bellek(559, 1) = "559) Investment enterprise:": Bellek(559, 2) = " Yatırım kuruluşu "
Bellek(560, 1) = "560) Investment performance:": Bellek(560, 2) = " Yatırım başarısı (performansı)"
Bellek(561, 1) = "561) Investment property:": Bellek(561, 2) = " Yatırım amaçlı gayrimenkul "
Bellek(562, 1) = "562) Investment securities:": Bellek(562, 2) = " Yatırım amaçlı menkul kıymetler "
Bellek(563, 1) = "563) Investment tax credits:": Bellek(563, 2) = " Yatırım indirimi"
Bellek(564, 1) = "564) Investment- linked insurance funds:": Bellek(564, 2) = " Yatırım amaçlı sigorta fonları (UMS 28)"
Bellek(565, 1) = "565) Investor:": Bellek(565, 2) = " Yatırımcı"
Bellek(566, 1) = "566) Investor in a joint venture:": Bellek(566, 2) = " Ortak Yatırım ortağı "
Bellek(567, 1) = "567) Involuntary liquidation:": Bellek(567, 2) = " Zorunlu tasfiye"
Bellek(568, 1) = "568) Irrevocable commitments:": Bellek(568, 2) = " Vazgeçilemeyen taahhütler(UMS 24)"
Bellek(569, 1) = "569) Issued capital:": Bellek(569, 2) = " Çıkarılmış sermaye"
Bellek(570, 1) = "570) Item:": Bellek(570, 2) = " Kalem, madde"
Bellek(571, 1) = "571) Item by item basis:": Bellek(571, 2) = " Kalem bazında "
Bellek(572, 1) = "572) Item of inventory:": Bellek(572, 2) = " Stok kalemi"
Bellek(573, 1) = "573) Joint control:": Bellek(573, 2) = " Ortaklaşa kontrol / Birleşik kontrol "
Bellek(574, 1) = "574) Joint venture:": Bellek(574, 2) = " İş ortaklığı "
Bellek(575, 1) = "575) Joint Working Group:": Bellek(575, 2) = " Ortak/Birleşik Çalışma Grubu "
Bellek(576, 1) = "576) Jointly controlled entity:": Bellek(576, 2) = " Birlikte kontrol edilen işletme "
Bellek(577, 1) = "577) Key management personnel:": Bellek(577, 2) = " Kilit yönetici personel"
Bellek(578, 1) = "578) Lease:": Bellek(578, 2) = " Kiralama (85)"
Bellek(579, 1) = "579) Lease term:": Bellek(579, 2) = " Kiralama dönemi "
Bellek(580, 1) = "580) Leaseback:": Bellek(580, 2) = " Satıp geri kiralama(UMS 16) "
Bellek(581, 1) = "581) Leased assets:": Bellek(581, 2) = " Finansal kiralama konusu varlıklar "
Bellek(582, 1) = "582) Leasehold interest:": Bellek(582, 2) = " Kira hissesi/payı (UMS 40) "
Bellek(583, 1) = "583) Legal entity:": Bellek(583, 2) = " Tüzel kişilik"
Bellek(584, 1) = "584) Legal merger:": Bellek(584, 2) = " Yasal şirket birleşmesi "
Bellek(585, 1) = "585) Legal obligation:": Bellek(585, 2) = " Yasal yükümlülük "
Bellek(586, 1) = "586) Legally enforcable right:": Bellek(586, 2) = " Yasal hak"
Bellek(587, 1) = "587) Legislative requirement:": Bellek(587, 2) = " Yasal gerek, mevzuat koşulu"
Bellek(588, 1) = "588) Lender:": Bellek(588, 2) = " Borç veren"
Bellek(589, 1) = "589) Lessee:": Bellek(589, 2) = " Kiracı (finansal kiralamada kiracı)"
Bellek(590, 1) = "590) Lessees incremental borrowing rate of interest:": Bellek(590, 2) = " Kiracının alternatif borçlanma faiz oranı (UMS 17)"
Bellek(591, 1) = "591) Lessor:": Bellek(591, 2) = " Kiraya veren (UMS 17) Finansal kiralamada kiraya veren."
Bellek(592, 1) = "592) Letters of credit:": Bellek(592, 2) = " Akreditifler "
Bellek(593, 1) = "593) Liabilities assumed:": Bellek(593, 2) = " Üstlenilen borçlar(UFRS 1) "
Bellek(594, 1) = "594) Liability:": Bellek(594, 2) = " Borç , yabancı kaynak"
Bellek(595, 1) = "595) Liability component:": Bellek(595, 2) = " Borç kalemi, yabancı kaynak kalemi (UFRS 1) "
Bellek(596, 1) = "596) Licence fee:": Bellek(596, 2) = " Lisans ücreti"
Bellek(597, 1) = "597) Licensing agreement:": Bellek(597, 2) = " Lisans sözleşmesi"
Bellek(598, 1) = "598) Life- contingent annuity:": Bellek(598, 2) = " Yaşam koşullu yıllık sigorta (ED 5) "
Bellek(599, 1) = "599) LİFO (last-in, first-out):": Bellek(599, 2) = " LİFO (son giren, ilk çıkar)"
Bellek(600, 1) = "600) Line item:": Bellek(600, 2) = " İlgili kalem (86)"
Bellek(601, 1) = "601) Line of business:": Bellek(601, 2) = " İş alanı"
Bellek(602, 1) = "602) Liquid assets:": Bellek(602, 2) = " Hazır değerler/Nakit ve nakit benzeri varlıklar"
Bellek(603, 1) = "603) Liquidity:": Bellek(603, 2) = " Likidite"
Bellek(604, 1) = "604) Liquidity risk:": Bellek(604, 2) = " Likidite riski"
Bellek(605, 1) = "605) Litigation settlements:": Bellek(605, 2) = " Yasal uzlaşmalar"
Bellek(606, 1) = "606) Loan:": Bellek(606, 2) = " Kredi, borç"
Bellek(607, 1) = "607) Loans and advances:": Bellek(607, 2) = " Verilen krediler ve avanslar"
Bellek(608, 1) = "608) Loans and receivables originated by the enterprise:": Bellek(608, 2) = " İşletme tarafından sağlanan krediler ve alacaklar(87) "
Bellek(609, 1) = "609) Long- term employee benefits:": Bellek(609, 2) = " Uzun vadeli personel sosyal hakları (88) (UMS 19)"
Bellek(610, 1) = "610) Long- term investment:": Bellek(610, 2) = " Uzun vadeli yatırım "
Bellek(611, 1) = "611) Loss per share:": Bellek(611, 2) = " Hisse başına zarar (UMS 33)"
Bellek(612, 1) = "612) Loss recognition test:": Bellek(612, 2) = " Zarar saptama testi (sigorta şirketlerince) (ED 5)"
Bellek(613, 1) = "613) Losses:": Bellek(613, 2) = " Zararlar"
Bellek(614, 1) = "614) Majority interest:": Bellek(614, 2) = " Çoğunluk payı"
Bellek(615, 1) = "615) Management:": Bellek(615, 2) = " Yönetim"
Bellek(616, 1) = "616) Margin:": Bellek(616, 2) = " Brüt kar "
Bellek(617, 1) = "617) Market price:": Bellek(617, 2) = " Piyasa fiyatı (UMS 33)"
Bellek(618, 1) = "618) Market rate of interest:": Bellek(618, 2) = " Piyasa faiz oranı (UMS 17)"
Bellek(619, 1) = "619) Market risk:": Bellek(619, 2) = " Piyasa riski"
Bellek(620, 1) = "620) Market value:": Bellek(620, 2) = " Piyasa değeri"
Bellek(621, 1) = "621) Marketable:": Bellek(621, 2) = " Pazarlanabilir"
Bellek(622, 1) = "622) Master netting arrangement:": Bellek(622, 2) = " Karşılıklı işlemlerin netleştirilmesine imkan veren anlaşma (89) "
Bellek(623, 1) = "623) Matching of cost with revenues:": Bellek(623, 2) = " Gelirlerin maliyetlerle eşleştirilmesi"
Bellek(624, 1) = "624) Material adjustment:": Bellek(624, 2) = " Önemli düzeltmeler (90)"
Bellek(625, 1) = "625) Material errors:": Bellek(625, 2) = " Önemli hatalar(UMS8) "
Bellek(626, 1) = "626) Material ommissions:": Bellek(626, 2) = " Önemli ihmaller (UMS 8) "
Bellek(627, 1) = "627) Materiality:": Bellek(627, 2) = " Önemlilik"
Bellek(628, 1) = "628) Matrix approach:": Bellek(628, 2) = " Matris yaklaşım (91) "
Bellek(629, 1) = "629) Matrix presentation:": Bellek(629, 2) = " Matris sunumu (92) "
Bellek(630, 1) = "630) Maturity:": Bellek(630, 2) = " Vade"
Bellek(631, 1) = "631) Maturity value:": Bellek(631, 2) = " Vade sonu değeri (ED 5)"
Bellek(632, 1) = "632) Measurement:": Bellek(632, 2) = " Ölçüm "
Bellek(633, 1) = "633) Measurement bases:": Bellek(633, 2) = " Ölçüm esasları "
Bellek(634, 1) = "634) Measuring interim income tax expense:": Bellek(634, 2) = " Ara dönem gelir vergisi giderinin hesaplanması "
Bellek(635, 1) = "635) Membership fees:": Bellek(635, 2) = " Üyelik aidatları"
Bellek(636, 1) = "636) Merchandise:": Bellek(636, 2) = " Ticari mal (UMS 2)"
Bellek(637, 1) = "637) Merger:": Bellek(637, 2) = " Şirket birleşmesi"
Bellek(638, 1) = "638) Minerals and mineral products:": Bellek(638, 2) = " Madenler ve madeni ürünler (UMS 2)"
Bellek(639, 1) = "639) Minimum lease payments:": Bellek(639, 2) = " Asgari finansal kiralama ödemeleri"
Bellek(640, 1) = "640) Minority interest:": Bellek(640, 2) = " Azınlık payı "
Bellek(641, 1) = "641) Mismatch:": Bellek(641, 2) = " Yanlış Eşleştirme/Uyumsuzluk "
Bellek(642, 1) = "642) Misstatement:": Bellek(642, 2) = " Yanlış ifade (UMS 8) "
Bellek(643, 1) = "643) Monetary asset:": Bellek(643, 2) = " Parasal varlık/aktif "
Bellek(644, 1) = "644) Monetary items (monetary assets; monetary financial assets and financial liabilities; monetary financial instruments):": Bellek(644, 2) = " Parasal kalemler (parasal varlıklar/aktifler; parasal finansal varlıklar/aktifler ve finansal borçlar; parasal finansal araçlar) "
Bellek(645, 1) = "645) Monitor compliance:": Bellek(645, 2) = " Uyum kontrolü/takibi (UFRS 1)"
Bellek(646, 1) = "646) Mortality risk:": Bellek(646, 2) = " Ölüm riski (ED 5)"
Bellek(647, 1) = "647) Multi- employer (benefit) plans:": Bellek(647, 2) = " Çok sayıda işverenin dahil olduğu sosyal yardım planları (93) "
Bellek(648, 1) = "648) Multi- employer plans (for an employee benefit plan) :": Bellek(648, 2) = " Çok sayıda işverenin dahil olduğu sosyal yardım planları (personel sosyal yardım planları için)"
Bellek(649, 1) = "649) Mutual fund:": Bellek(649, 2) = " Yatırım fonu (UMS 27), yatırım ortaklığı (ED5)"
Bellek(650, 1) = "650) National requirements:": Bellek(650, 2) = " Ulusal gerekler (muhasebe uygulaması hakkında) (UFRS 1)"
Bellek(651, 1) = "651) Nature of expense method:": Bellek(651, 2) = " Giderlerin türlerine göre sınıflandırılması yöntemi (UMS 1)"
Bellek(652, 1) = "652) Negative goodwill:": Bellek(652, 2) = " Negatif şerefiye "
Bellek(653, 1) = "653) Negotiable paper:": Bellek(653, 2) = " Ciro edilebilir kıymetli evrak (UMS 30) "
Bellek(654, 1) = "654) Net basis:": Bellek(654, 2) = " Net esasına göre "
Bellek(655, 1) = "655) Net disposal proceeds:": Bellek(655, 2) = " Varlıkların elden çıkarılmasından kaynaklanan net tahsilatlar (UMS 16)"
Bellek(656, 1) = "656) Net exchange differences:": Bellek(656, 2) = " Net kur (kambiyo) farkları (UMS 16)"
Bellek(657, 1) = "657) Net identifiable assets:": Bellek(657, 2) = " Tanımlanabilir net varlıklar (UMS 28)"
Bellek(658, 1) = "658) Net income:": Bellek(658, 2) = " Net gelir "
Bellek(659, 1) = "659) Net investment in a foreign entity:": Bellek(659, 2) = " Yurtdışı bir kuruluştaki net yatırım "
Bellek(660, 1) = "660) Net investment in a foreign operation:": Bellek(660, 2) = " Yurtdışı faaliyetlerdeki net yatırım (UMS 21)"
Bellek(661, 1) = "661) Net investment in a lease:": Bellek(661, 2) = " Finansal kiralamadaki net alacaklar (anapara)"
Bellek(662, 1) = "662) Net loss:": Bellek(662, 2) = " Net zarar"
Bellek(663, 1) = "663) Net monetary position:": Bellek(663, 2) = " Net parasal pozisyon"
Bellek(664, 1) = "664) Net profit:": Bellek(664, 2) = " Net kar"
Bellek(665, 1) = "665) Net profit or loss [for the period]:": Bellek(665, 2) = " Net kar veya zarar (döneme ait)"
Bellek(666, 1) = "666) Net realisable value:": Bellek(666, 2) = " Net gerçekleşebilir değer"
Bellek(667, 1) = "667) Net realisable value:": Bellek(667, 2) = " Net gerçekleşebilir değer (94)"
Bellek(668, 1) = "668) Net selling price:": Bellek(668, 2) = " Net satış fiyatı"
Bellek(669, 1) = "669) Net settlement= Settle net:": Bellek(669, 2) = " Net ödeme= Net mahsuplaşma"
Bellek(670, 1) = "670) Neutrality:": Bellek(670, 2) = " Tarafsızlık"
Bellek(671, 1) = "671) Next most senior parent:": Bellek(671, 2) = " İkincil ana kuruluş (UMS 24) "
Bellek(672, 1) = "672) Non- adjusting event [after the balance sheet date]:": Bellek(672, 2) = " Düzeltme gerektirmeyen olay (bilanço tarihinden sonra)"
Bellek(673, 1) = "673) Non- cancellable lease:": Bellek(673, 2) = " İptal edilemeyen finansal kiralama işlemi"
Bellek(674, 1) = "674) Non- cash transactions:": Bellek(674, 2) = " Nakit dışı işlemler / Gayrinakdi işlemler "
Bellek(675, 1) = "675) Non- coterminous year- ends:": Bellek(675, 2) = " Uyuşmayan/Farklı yıl sonları (95) (UMS 28) "
Bellek(676, 1) = "676) Non- derivative contract:": Bellek(676, 2) = " Türev ürün niteliği taşımayan sözleşme"
Bellek(677, 1) = "677) Non- discretionary employee profit- sharing plan:": Bellek(677, 2) = " Zorunlu personel kar paylaşım planı (UMS 33)"
Bellek(678, 1) = "678) Non- discretionary payments:": Bellek(678, 2) = " Zorunlu ödemeler (ED 5)"
Bellek(679, 1) = "679) Non- financial assets:": Bellek(679, 2) = " Finansal olmayan varlıklar (UMS 40) "
Bellek(680, 1) = "680) Non-linearities:": Bellek(680, 2) = "Sapmalar(duyarlılık analizi ile ilgili) "
Bellek(681, 1) = "681) Non- marketable securities:": Bellek(681, 2) = " Piyasası olmayan menkul kıymetler "
Bellek(682, 1) = "682) Non- monetary asset:": Bellek(682, 2) = " Parasal olmayan varlık/aktif "
Bellek(683, 1) = "683) Non- monetary government grants:": Bellek(683, 2) = " Parasal olmayan devlet yardımları/teşvikleri/bağışları"
Bellek(684, 1) = "684) Non- refundable purchase taxes:": Bellek(684, 2) = " İade edilmeyen satın alma vergileri (UMS 16)"
Bellek(685, 1) = "685) Normal capacity of production facilities:": Bellek(685, 2) = " Üretim tesislerinin normal kapasitesi "
Bellek(686, 1) = "686) Notional amount:": Bellek(686, 2) = " Türev ürün tutarı (96) "
Bellek(687, 1) = "687) Objective:": Bellek(687, 2) = " Tarafsız, nesnel; amaç"
Bellek(688, 1) = "688) Obligating event:": Bellek(688, 2) = " Tazmini gereken olay "
Bellek(689, 1) = "689) Obligation:": Bellek(689, 2) = " Yükümlülük "
Bellek(690, 1) = "690) Obligation (cont):": Bellek(690, 2) = " Tazminat, taahhüt"
Bellek(691, 1) = "691) Obsolescence:": Bellek(691, 2) = " Demode olma, değer yitirme "
Bellek(692, 1) = "692) Offer price:": Bellek(692, 2) = " Teklif fiyatı"
Bellek(693, 1) = "693) Offset:": Bellek(693, 2) = " Mahsup, netleştirme"
Bellek(694, 1) = "694) Offseting:": Bellek(694, 2) = " Mahsup etmek"
Bellek(695, 1) = "695) Onerous contract:": Bellek(695, 2) = " Ekonomik açıdan dezavantajlı sözleşme (UMS 22) (97)"
Bellek(696, 1) = "696) Opening balance:": Bellek(696, 2) = " Açılış tutarı (kalanı, bakiyesi) "
Bellek(697, 1) = "697) Opening IFRS balance sheet:": Bellek(697, 2) = " UFRS açılış bilançosu (UFRS 1)"
Bellek(698, 1) = "698) Operating activities:": Bellek(698, 2) = " İşletme faaliyetleri "
Bellek(699, 1) = "699) Operating cycle:": Bellek(699, 2) = " Faaliyet döngüsü "
Bellek(700, 1) = "700) Operating lease:": Bellek(700, 2) = " Faaliyet kiralaması"
Bellek(701, 1) = "701) Option:": Bellek(701, 2) = " Opsiyon"
Bellek(702, 1) = "702) Ordinary activities:": Bellek(702, 2) = " Olağan faaliyetler"
Bellek(703, 1) = "703) Ordinary course of business:": Bellek(703, 2) = " Olağan iş süreci, alanı (UMS 2)"
Bellek(704, 1) = "704) Ordinary share:": Bellek(704, 2) = " Adi hisse senedi"
Bellek(705, 1) = "705) Original cost:": Bellek(705, 2) = " Orijinal maliyet; fiili maliyet (UFRS 1) "
Bellek(706, 1) = "706) Originated loans and receivables:": Bellek(706, 2) = " Sağlanan krediler ve alacaklar (98) "
Bellek(707, 1) = "707) Origination costs:": Bellek(707, 2) = " Oluşum maliyetleri (99) (ED 5)"
Bellek(708, 1) = "708) Other long- term employee benefits:": Bellek(708, 2) = " Diğer uzun vadeli personel sosyal hakları (100) "
Bellek(709, 1) = "709) Outright sale:": Bellek(709, 2) = " Kesin satış (doğrudan tek seferde) "
Bellek(710, 1) = "710) Overheads:": Bellek(710, 2) = " Genel giderler (101) "
Bellek(711, 1) = "711) Over- the- counter market:": Bellek(711, 2) = " Tezgah üstü piyasa (UMS 28) "
Bellek(712, 1) = "712) Owner- occupied property:": Bellek(712, 2) = " Sahibince kullanılan mülk"
Bellek(713, 1) = "713) Owners equity:": Bellek(713, 2) = " Özkaynak"
Bellek(714, 1) = "714) Paid in capital:": Bellek(714, 2) = " Ödenmiş sermaye"
Bellek(715, 1) = "715) Parent:": Bellek(715, 2) = " Ana şirket, Ana ortaklık "
Bellek(716, 1) = "716) Partially- owned subsidiary:": Bellek(716, 2) = " Kısmen sahip olunan bağlı ortaklık (UMS 27)"
Bellek(717, 1) = "717) Participants [in a pension plan]:": Bellek(717, 2) = " Katılımcılar (emeklilik planında)"
Bellek(718, 1) = "718) Participating equity instruments:": Bellek(718, 2) = " Kara katılımlı özkaynak araçları (UMS 33) "
Bellek(719, 1) = "719) Past business combination:": Bellek(719, 2) = " Geçmiş işletme birleşmesi (UFRS 1)"
Bellek(720, 1) = "720) Past service cost:": Bellek(720, 2) = " Geçmiş hizmet maliyeti (1)"
Bellek(721, 1) = "721) Payables:": Bellek(721, 2) = " Borçlar"
Bellek(722, 1) = "722) Pension:": Bellek(722, 2) = " Emeklilik (sosyal güvenlik)"
Bellek(723, 1) = "723) Pension liability:": Bellek(723, 2) = " Emeklilik borcu (UFRS 1)"
Bellek(724, 1) = "724) Pension scheme:": Bellek(724, 2) = " Emeklilik planı (UMS 19)"
Bellek(725, 1) = "725) Percentage of completion method:": Bellek(725, 2) = " Tamamlama yüzdesi yöntemi (UMS 11)"
Bellek(726, 1) = "726) Performance (=Financial performance):": Bellek(726, 2) = " Başarı/Performans (=Finansal başarı/performans) "
Bellek(727, 1) = "727) Period of service:": Bellek(727, 2) = " Hizmet dönemi"
Bellek(728, 1) = "728) Period- certain annuity:": Bellek(728, 2) = " Dönemi belli sigorta poliçesi "
Bellek(729, 1) = "729) Period- specific effects:": Bellek(729, 2) = " Döneme özgü etkiler (muhasebe tahminleri ile ilgili)"
Bellek(730, 1) = "730) Perpetual debt instruments:": Bellek(730, 2) = " Sürekli/Daimi (uzun vadeli) borçlanma araçları"
Bellek(731, 1) = "731) Persistency bonus:": Bellek(731, 2) = " Poliçe sonu ikramiyesi (103) (ED 5) "
Bellek(732, 1) = "732) Personnel:": Bellek(732, 2) = " Personel (UMS 2)"
Bellek(733, 1) = "733) Physical capital:": Bellek(733, 2) = " Fiziki sermaye "
Bellek(734, 1) = "734) Plan assets (of an employee benefit plan):": Bellek(734, 2) = " Emeklilik fon yatırımları"
Bellek(735, 1) = "735) Policyholder:": Bellek(735, 2) = " Poliçe sahibi (ED 5)"
Bellek(736, 1) = "736) Pooling of interest method:": Bellek(736, 2) = " Yararların (çıkarların) birleştirilmesi (toplanması) yöntemi "
Bellek(737, 1) = "737) Portfolio:": Bellek(737, 2) = " Portföy"
Bellek(738, 1) = "738) Portfolio transfer:": Bellek(738, 2) = " Portföy aktarımı (transferi) (ED 5) "
Bellek(739, 1) = "739) Post- employment benefit plans:": Bellek(739, 2) = " İşten ayrılma sonrasında fayda sağlayan planlar"
Bellek(740, 1) = "740) Post- employment benefits:": Bellek(740, 2) = " İşten ayrılma sonrası sağlanan faydalar"
Bellek(741, 1) = "741) Potential ordinary share:": Bellek(741, 2) = " Potansiyel adi hisse senedi "
Bellek(742, 1) = "742) Potential voting rights:": Bellek(742, 2) = " Potansiyel oy hakları (104) (UMS 27) "
Bellek(743, 1) = "743) Preference dividend:": Bellek(743, 2) = " İmtiyazlı temettü (UMS 33)"
Bellek(744, 1) = "744) Preference share:": Bellek(744, 2) = " İmtiyazlı hisse senedi (UMS 33)"
Bellek(745, 1) = "745) Preferred shares:": Bellek(745, 2) = " Çıkarılmış / Arzedilmiş hisse senetleri (105)"
Bellek(746, 1) = "746) Premium:": Bellek(746, 2) = " Prim"
Bellek(747, 1) = "747) Preparation and Presentation of Financial Statements:": Bellek(747, 2) = " Finansal Tabloların Hazırlanması ve Sunumu (UFRS 1)"
Bellek(748, 1) = "748) Preparers:": Bellek(748, 2) = " Finansal tablo düzenleyicileri (UMSYO)"
Bellek(749, 1) = "749) Prepayments:": Bellek(749, 2) = " Peşin ödemeler"
Bellek(750, 1) = "750) Present obligation:": Bellek(750, 2) = " Mevcut yükümlülük"
Bellek(751, 1) = "751) Present value:": Bellek(751, 2) = " Bugünkü değer"
Bellek(752, 1) = "752) Present value of a defined benefit obligation:": Bellek(752, 2) = " Tanımlanmış sosyal yardım yükümlülüğünün bugünkü değeri "
Bellek(753, 1) = "753) Presentation:": Bellek(753, 2) = " Sunum"
Bellek(754, 1) = "754) Presentation currency:": Bellek(754, 2) = " Finansal tabloda kullanılan para birimi (UMS 21) "
Bellek(755, 1) = "755) Previous GAAP:": Bellek(755, 2) = " Önceki GKGMİ (UFRS ye geçmeden önceki) (UFRS 1)"
Bellek(756, 1) = "756) Price earnings ratios:": Bellek(756, 2) = " Fiyat kazanç oranları (UMS 22) "
Bellek(757, 1) = "757) Price index:": Bellek(757, 2) = " Fiyat endeksi"
Bellek(758, 1) = "758) Price risk:": Bellek(758, 2) = " Fiyat riski"
Bellek(759, 1) = "759) Primary Basis of Accounting:": Bellek(759, 2) = " Muhasebenin temel esasları (UFRS 1)"
Bellek(760, 1) = "760) Primary economic environment:": Bellek(760, 2) = "Temel ekonomik çevre(UMS 39)"
Bellek(761, 1) = "761) Primary financial instruments:": Bellek(761, 2) = " Temel finansal araçlar"
Bellek(762, 1) = "762) Primary objective:": Bellek(762, 2) = " Temel hedef, amaç (UFRS 1)"
Bellek(763, 1) = "763) Primary reporting format:": Bellek(763, 2) = " Temel raporlama formatı "
Bellek(764, 1) = "764) Principles- based approach:": Bellek(764, 2) = " İlkelere dayalı yaklaşım (UFRS 1)"
Bellek(765, 1) = "765) Prior period error:": Bellek(765, 2) = " Önceki dönem hatası (UMS 8)"
Bellek(766, 1) = "766) Privatisation:": Bellek(766, 2) = " Özelleştirme (UFRS 1)"
Bellek(767, 1) = "767) Pro forma:": Bellek(767, 2) = " Proforma/Taslak"
Bellek(768, 1) = "768) Pro rata basis:": Bellek(768, 2) = " Oransal esasa göre "
Bellek(769, 1) = "769) Probable maximum loss:": Bellek(769, 2) = " Olası zarar tavanı (ED 5) "
Bellek(770, 1) = "770) Production overheads:": Bellek(770, 2) = " Genel üretim maliyetleri "
Bellek(771, 1) = "771) Production process:": Bellek(771, 2) = " Üretim süreci"
Bellek(772, 1) = "772) Profit:": Bellek(772, 2) = " Kar"
Bellek(773, 1) = "773) Profit after tax:": Bellek(773, 2) = " Vergi sonrası kar"
Bellek(774, 1) = "774) Profit allowance:": Bellek(774, 2) = " Kar indirimi (karşılığı) (106)"
Bellek(775, 1) = "775) Profit before tax:": Bellek(775, 2) = " Vergi öncesi kar"
Bellek(776, 1) = "776) Profit sharing:": Bellek(776, 2) = " Kar paylaşımı"
Bellek(777, 1) = "777) Profit (cont.):": Bellek(777, 2) = " Kar"
Bellek(778, 1) = "778) Progress billing:": Bellek(778, 2) = " Hakediş (107) "
Bellek(779, 1) = "779) Progress payment:": Bellek(779, 2) = " Hakediş ödemesi "
Bellek(780, 1) = "780) Projected unit credit method:": Bellek(780, 2) = " Öngörülen yükümlülük yöntemi (108)"
Bellek(781, 1) = "781) Promissory notes:": Bellek(781, 2) = " Senetler (bonolar, çekler) (UMS 24)"
Bellek(782, 1) = "782) Property interest:": Bellek(782, 2) = " Mülke ilişkin hak (UMS 40)"
Bellek(783, 1) = "783) Property, plant and equipment:": Bellek(783, 2) = " Maddi duran varlıklar (UMS 16)"
Bellek(784, 1) = "784) Proportionate consolidation:": Bellek(784, 2) = " Oransal konsolidasyon "
Bellek(785, 1) = "785) Proposed improvements:": Bellek(785, 2) = " Önerilen iyileştirmeler (UFRS 1)"
Bellek(786, 1) = "786) Prospective application:": Bellek(786, 2) = " Olası (beklenen) uygulama "
Bellek(787, 1) = "787) Prospective application:": Bellek(787, 2) = " Olası (beklenen) uygulama (109) (UFRS 1) "
Bellek(788, 1) = "788) Provision:": Bellek(788, 2) = " Karşılık"
Bellek(789, 1) = "789) Provision for loss:": Bellek(789, 2) = " Zarar karşılığı"
Bellek(790, 1) = "790) Prudence:": Bellek(790, 2) = " İhtiyatlılık"
Bellek(791, 1) = "791) Public securities markets:": Bellek(791, 2) = " Halka açık menkul kıymetler piyasaları (UMS 33)"
Bellek(792, 1) = "792) Purchase consideration:": Bellek(792, 2) = " Satın alma bedeli, satın alma tutarı"
Bellek(793, 1) = "793) Purchase method:": Bellek(793, 2) = " Satın alma yöntemi"
Bellek(794, 1) = "794) Purchase price:": Bellek(794, 2) = " Satın alma fiyatı (UMS 2)"
Bellek(795, 1) = "795) Purchased options:": Bellek(795, 2) = " Satın alınmış opsiyon "
Bellek(796, 1) = "796) Put option:": Bellek(796, 2) = " Satım opsiyonu (110)"
Bellek(797, 1) = "797) Puttable:": Bellek(797, 2) = " Satılabilir"
Bellek(798, 1) = "798) Qualify for recognition/ derecognition:": Bellek(798, 2) = " Kayda alınması/Muhasebeleştirilmesi uygun görülen /görülmeyen (UFRS 1) "
Bellek(799, 1) = "799) Qualifying asset:": Bellek(799, 2) = " Özellikli varlık "
Bellek(800, 1) = "800) Qualifying insurance policy:": Bellek(800, 2) = " Özellikli sigorta poliçesi "
Bellek(801, 1) = "801) Qualitative characteristic:": Bellek(801, 2) = " Niteliksel özellikler"
Bellek(802, 1) = "802) Quoted market price:": Bellek(802, 2) = " Kayıtlı (kote edilmiş) piyasa fiyatı"
Bellek(803, 1) = "803) Realisable value:": Bellek(803, 2) = " Gerçekleşebilir değer"
Bellek(804, 1) = "804) Reasonable estimate:": Bellek(804, 2) = " Gerçeğe uygun (makul) tahmin (UFRS 1)"
Bellek(805, 1) = "805) Rebates:": Bellek(805, 2) = " İndirimler (UMS 2)"
Bellek(806, 1) = "806) Rebuttable presumption:": Bellek(806, 2) = " Aksi ispat edilene kadar hukuken geçerli öngörü "
Bellek(807, 1) = "807) Receivables:": Bellek(807, 2) = " Alacaklar"
Bellek(808, 1) = "808) Recognition:": Bellek(808, 2) = " Kayda alma / Muhasebeleştirme "
Bellek(809, 1) = "809) Recognition as an expense:": Bellek(809, 2) = " Giderleştirme (UMS 2) "
Bellek(810, 1) = "810) Recognition criteria:": Bellek(810, 2) = " Kayda alma / Muhasebeleştirme kriteri (UFRS 1) "
Bellek(811, 1) = "811) Reconciliation:": Bellek(811, 2) = " Mutabakat yapma / Teyitleşme "
Bellek(812, 1) = "812) Recoverability:": Bellek(812, 2) = " Geri kazanılabilirlik "
Bellek(813, 1) = "813) Recoverable:": Bellek(813, 2) = " Geri kazanılabilir (UMS 2)"
Bellek(814, 1) = "814) Recoverable amount:": Bellek(814, 2) = " Geri kazanılabilir tutar "
Bellek(815, 1) = "815) Redemption:": Bellek(815, 2) = " İtfa "
Bellek(816, 1) = "816) Refinancing:": Bellek(816, 2) = " Borcun çevrilmesi yenilenmesi (borcun temdidi, yeniden finanse etme) "
Bellek(817, 1) = "817) Reformatted (IAS):": Bellek(817, 2) = " Yeniden düzenlenmiş (UMS)"
Bellek(818, 1) = "818) Regulator:": Bellek(818, 2) = " Düzenleyici"
Bellek(819, 1) = "819) Reimbursement:": Bellek(819, 2) = " Tazminat (tazmin etme) "
Bellek(820, 1) = "820) Reinsurance contract:": Bellek(820, 2) = " Reasürans poliçesi (ED 5)"
Bellek(821, 1) = "821) Reinsurer:": Bellek(821, 2) = " Reasürör (sigortacıyı sigortalayan) (ED 5)"
Bellek(822, 1) = "822) Reinvestment of dividends:": Bellek(822, 2) = " Hisse senedine dönüşümlü temettü (UMS 33) "
Bellek(823, 1) = "823) Related parties:": Bellek(823, 2) = " İlişkili taraflar "
Bellek(824, 1) = "824) Related Party Disclosures:": Bellek(824, 2) = " İlişkili Taraf Açıklamaları (UMS 24)"
Bellek(825, 1) = "825) Related party transaction:": Bellek(825, 2) = " İlişkili tarafla işlem "
Bellek(826, 1) = "826) Relevance:": Bellek(826, 2) = " Geçerlilik (ilgililik) "
Bellek(827, 1) = "827) Reliability:": Bellek(827, 2) = " Güvenilirlik"
Bellek(828, 1) = "828) Reliability exception:": Bellek(828, 2) = " Güvenilirlik istisnası (111) (UMS 4O)"
Bellek(829, 1) = "829) Reliable measurement test:": Bellek(829, 2) = " Güvenilir ölçüm testi (112) (UMS 16)"
Bellek(830, 1) = "830) Remeasurement:": Bellek(830, 2) = " Yeniden ölçüm "
Bellek(831, 1) = "831) Rendering of Services:": Bellek(831, 2) = " Hizmetlerin sunumu"
Bellek(832, 1) = "832) Renewal rights:": Bellek(832, 2) = " Yenileme hakları (ED 5)"
Bellek(833, 1) = "833) Reorganisations:": Bellek(833, 2) = " Yeniden örgütlenmeler (düzenlemeler, yapılandırmalar)"
Bellek(834, 1) = "834) Repairs and maintenance:": Bellek(834, 2) = " Bakım ve onarımlar(UMS 40)"
Bellek(835, 1) = "835) Repayment:": Bellek(835, 2) = " Geri ödeme"
Bellek(836, 1) = "836) Replacement cost of an asset:": Bellek(836, 2) = " Bir varlığın yerine koyma maliyeti "
Bellek(837, 1) = "837) Reportable segment:": Bellek(837, 2) = " Raporlanabilir bölüm/iş dalı/faaliyet alanı "
Bellek(838, 1) = "838) Reporting currency:": Bellek(838, 2) = " Raporlama para birimi (113)"
Bellek(839, 1) = "839) Reporting date:": Bellek(839, 2) = " Raporlama tarihi"
Bellek(840, 1) = "840) Reporting enterprise:": Bellek(840, 2) = " Raporlayan kuruluş "
Bellek(841, 1) = "841) Reporting entity:": Bellek(841, 2) = " Raporlayan işletme (işletme bölümü)"
Bellek(842, 1) = "842) Reporting package:": Bellek(842, 2) = " Raporlama paketi (114) (UFRS 1)"
Bellek(843, 1) = "843) Reporting period:": Bellek(843, 2) = " Raporlama dönemi"
Bellek(844, 1) = "844) Repurchase agreement:": Bellek(844, 2) = " Geri alım sözleşmesi "
Bellek(845, 1) = "845) Research:": Bellek(845, 2) = " Araştırma"
Bellek(846, 1) = "846) Reserve:": Bellek(846, 2) = " Yedek, ihtiyat"
Bellek(847, 1) = "847) Residual value:": Bellek(847, 2) = " Kalıntı değer"
Bellek(848, 1) = "848) Restatement:": Bellek(848, 2) = " Yeniden belirleme ifade etme"
Bellek(849, 1) = "849) Restructing:": Bellek(849, 2) = " Yeniden yapılandırma "
Bellek(850, 1) = "850) Restructing provision:": Bellek(850, 2) = " Yeniden yapılandırma karşılığı (115) (UFRS 1)"
Bellek(851, 1) = "851) Result:": Bellek(851, 2) = " Sonuç"
Bellek(852, 1) = "852) Result (cont.):": Bellek(852, 2) = " Sonuç"
Bellek(853, 1) = "853) Retail method:": Bellek(853, 2) = " Perakende yöntemi"
Bellek(854, 1) = "854) Retail store chain:": Bellek(854, 2) = " Perakende mağaza zinciri"
Bellek(855, 1) = "855) Retained earnings:": Bellek(855, 2) = " Dağıtılmamış karlar "
Bellek(856, 1) = "856) Retirement benefit plans:": Bellek(856, 2) = " Emeklilik sosyal yardım planları "
Bellek(857, 1) = "857) Retrospective application:": Bellek(857, 2) = " Geriye dönük (Makable şamil) uygulama "
Bellek(858, 1) = "858) Retrospective application:": Bellek(858, 2) = " Geriye dönük(makable şamil) uygulama (116) (UFRS 1) "
Bellek(859, 1) = "859) Return on investment:": Bellek(859, 2) = " Yatırım karlılığı "
Bellek(860, 1) = "860) Return on plan assets (of an employee benefit plan):": Bellek(860, 2) = " Sosyal güvenlik planı yatırım getirisi "
Bellek(861, 1) = "861) Revaluation:": Bellek(861, 2) = " Yeniden değerleme"
Bellek(862, 1) = "862) Revaluation reserve:": Bellek(862, 2) = " Yeniden değerleme yedeği (UFRS 1) "
Bellek(863, 1) = "863) Revaluation surplus:": Bellek(863, 2) = " Yeniden değerleme fazlası (117) (UFRS 1) "
Bellek(864, 1) = "864) Revalued amount of an asset:": Bellek(864, 2) = " Bir varlığın yeniden değerlenmiş tutarı "
Bellek(865, 1) = "865) Revenue:": Bellek(865, 2) = " Hasılat, gelir"
Bellek(866, 1) = "866) Reversal:": Bellek(866, 2) = " Ters kayıt, iptal"
Bellek(867, 1) = "867) Reverse acquisition:": Bellek(867, 2) = " Ters edinim (118) (UMS 22)"
Bellek(868, 1) = "868) Reverse share split:": Bellek(868, 2) = " Nominal değeri artırarak hisse senetlerini birleştirme "
Bellek(869, 1) = "869) Revised (IAS):": Bellek(869, 2) = " Gözden geçirilmiş (Yeniden düzenlenmiş)"
Bellek(870, 1) = "870) Rewards associated with a leased asset:": Bellek(870, 2) = " Finansal kiralamadan doğan kazanımlar"
Bellek(871, 1) = "871) Right of set- off:": Bellek(871, 2) = " Mahsup etme hakkı (UMS 12)"
Bellek(872, 1) = "872) Rights issue:": Bellek(872, 2) = " Yeni haklar içeren ihraç (119) "
Bellek(873, 1) = "873) Risk:": Bellek(873, 2) = " Risk"
Bellek(874, 1) = "874) Risk exposure:": Bellek(874, 2) = " Risk tutarı"
Bellek(875, 1) = "875) Risks associated with a leased asset:": Bellek(875, 2) = " Finansal kiralama konusu varlıkla ilgili riskler"
Bellek(876, 1) = "876) Roll back:": Bellek(876, 2) = " Tutarı geriye çekme (120) (UFRS 1) "
Bellek(877, 1) = "877) Roll forward:": Bellek(877, 2) = " Tutarı ileriye taşıma (121) (UFRS 1) "
Bellek(878, 1) = "878) Royalty:": Bellek(878, 2) = " İsim hakkı"
Bellek(879, 1) = "879) Sale:": Bellek(879, 2) = " Satış"
Bellek(880, 1) = "880) Sale and leaseback transaction:": Bellek(880, 2) = " Satış ve geri kiralama işlemi "
Bellek(881, 1) = "881) Scope:": Bellek(881, 2) = " Faaliyet alanı, içerik, kapsam"
Bellek(882, 1) = "882) Secondary segment information:": Bellek(882, 2) = " İkincil bölüm bilgisi "
Bellek(883, 1) = "883) Securities:": Bellek(883, 2) = " Menkul kıymetler"
Bellek(884, 1) = "884) Securitisation:": Bellek(884, 2) = " Aktiflere dayalı menkul kıymet ihracı "
Bellek(885, 1) = "885) Segment:": Bellek(885, 2) = " Bölüm, kısım, iş dalı, faaliyet alanı "
Bellek(886, 1) = "886) Segment assets:": Bellek(886, 2) = " Bölüm/iş dalı/faaliyet alanı varlıkları "
Bellek(887, 1) = "887) Segment expense:": Bellek(887, 2) = " Bölüm/iş dalı/faaliyet alanı gideri "
Bellek(888, 1) = "888) Segment result:": Bellek(888, 2) = " Bölüm/iş dalı/faaliyet alanı performansı "
Bellek(889, 1) = "889) Segment revenue:": Bellek(889, 2) = " Bölüm/iş dalı/faaliyet alanı hasılatı "
Bellek(890, 1) = "890) Self- constructed asset:": Bellek(890, 2) = " İşletmece imal (inşa) edilen varlık (UMS 16)"
Bellek(891, 1) = "891) Self- insurance:": Bellek(891, 2) = " Dahili sigorta işlemi (ED 5)"
Bellek(892, 1) = "892) Selling price:": Bellek(892, 2) = " Satış fiyatı (UMS 2)"
Bellek(893, 1) = "893) Sensitivity analysis:": Bellek(893, 2) = " Duyarlılık analizi (ED 5)"
Bellek(894, 1) = "894) Separable assets:": Bellek(894, 2) = " Ayrılabilir maddi duran varlıklar (122) (UMS 16)"
Bellek(895, 1) = "895) Separate financial statements:": Bellek(895, 2) = " Bireysel finansal tablolar (UMS 33)"
Bellek(896, 1) = "896) Separate financial statements:": Bellek(896, 2) = " Bireysel finansal tablolar (UMS 27)"
Bellek(897, 1) = "897) Separately identifiable:": Bellek(897, 2) = " Ayrı olarak tanımlanabilir (UMS 2)"
Bellek(898, 1) = "898) Service cost:": Bellek(898, 2) = " Hizmet maliyeti (UFRS 1)"
Bellek(899, 1) = "899) Servicing liabilites:": Bellek(899, 2) = " Hizmet sunma yükümlülükleri (123) (UFRS 1)"
Bellek(900, 1) = "900) Servicing rights:": Bellek(900, 2) = " Hizmet sunma hakları"
Bellek(901, 1) = "901) Set of financial statements:": Bellek(901, 2) = " Finansal tablolar seti (takımı) (UFRS 1)"
Bellek(902, 1) = "902) Set- off, legal right of:": Bellek(902, 2) = " Mahsup, yasal hak olarak"
Bellek(903, 1) = "903) Settle net= Net settlement:": Bellek(903, 2) = " Karşılıklı netleştirme (takas veya ödemeyle ilgili netleştirme) (UMS 32)"
Bellek(904, 1) = "904) Settlement:": Bellek(904, 2) = " Mahsup etme, ödeme "
Bellek(905, 1) = "905) Settlement (of employee benefit obligations):": Bellek(905, 2) = " Sosyal güvenlik yükümlülüklerini ödeme"
Bellek(906, 1) = "906) Settlement date:": Bellek(906, 2) = " Ödeme (mahsup) tarihi "
Bellek(907, 1) = "907) Settlement value:": Bellek(907, 2) = " Ödeme (mahsup) değeri "
Bellek(908, 1) = "908) Severally liable:": Bellek(908, 2) = " Müşterek ve müteselsil borçlu / sorumlu (124) (UMS 28) "
Bellek(909, 1) = "909) Share:": Bellek(909, 2) = " Hisse, pay, hisse senedi"
Bellek(910, 1) = "910) Share call options:": Bellek(910, 2) = " Hisse alım opsiyonu (UMS 27) "
Bellek(911, 1) = "911) Share capital:": Bellek(911, 2) = " Sermaye "
Bellek(912, 1) = "912) Share consolidation:": Bellek(912, 2) = " Hisselerin birleştirilmesi (125) (UMS 33)"
Bellek(913, 1) = "913) Share option plan:": Bellek(913, 2) = " Hisse edinme hakkına ilişkin plan (UMS 19) "
Bellek(914, 1) = "914) Share premium:": Bellek(914, 2) = " Hisse senedi ihraç primi "
Bellek(915, 1) = "915) Share split:": Bellek(915, 2) = " Hisse senedi bölünmesi"
Bellek(916, 1) = "916) Share warrant:": Bellek(916, 2) = " Hisse senedi ilmuhaberi "
Bellek(917, 1) = "917) Shareholder:": Bellek(917, 2) = " Hissedar "
Bellek(918, 1) = "918) Shareholders equity:": Bellek(918, 2) = " Özkaynaklar "
Bellek(919, 1) = "919) Shortseller:": Bellek(919, 2) = " Açığa satış yapan"
Bellek(920, 1) = "920) Short- term employee benefits:": Bellek(920, 2) = " Kısa vadeli personel sosyal hakları (UMS 19) "
Bellek(921, 1) = "921) Significant influence:": Bellek(921, 2) = " Önemli etki "
Bellek(922, 1) = "922) Significant influence:": Bellek(922, 2) = " Önemli etkileme gücü(126) (UMS 24) "
Bellek(923, 1) = "923) Single product enterprise:": Bellek(923, 2) = " Tek ürünlü teşebbüs"
Bellek(924, 1) = "924) Sinking fund:": Bellek(924, 2) = " İtfa fonu"
Bellek(925, 1) = "925) Social security:": Bellek(925, 2) = " Sosyal güvenlik"
Bellek(926, 1) = "926) Social security contribution:": Bellek(926, 2) = " Sosyal güvenlik yardımı"
Bellek(927, 1) = "927) Solvency:": Bellek(927, 2) = " Borç ödeme gücü "
Bellek(928, 1) = "928) Special purpose entities (SPEs):": Bellek(928, 2) = " Özel amaçlı işletmeler (ÖAİ ler) (UFRS 1)"
Bellek(929, 1) = "929) Special purpose entity (SPE):": Bellek(929, 2) = " Özel amaçlı işletme (ÖAİ)"
Bellek(930, 1) = "930) Specific identification of cost:": Bellek(930, 2) = " Projeye özgü maliyetlerin tesbiti (UMS 2) "
Bellek(931, 1) = "931) Spin- off:": Bellek(931, 2) = " Kısmi yeniden yapılandırma (127) "
Bellek(932, 1) = "932) Spot exchange rate:": Bellek(932, 2) = " Geçerli (spot) kur (UMS 21)"
Bellek(933, 1) = "933) Stand- alone basis:": Bellek(933, 2) = " Solo bazda (UMS 24) "
Bellek(934, 1) = "934) Stand- alone entity:": Bellek(934, 2) = " Solo bazda raporlayan işletme (UMS 21) "
Bellek(935, 1) = "935) Standart cost method:": Bellek(935, 2) = " Standart maliyet yöntemi"
Bellek(936, 1) = "936) Standby letters of credit:": Bellek(936, 2) = " Sınırlı süreli teminat akredifi "
Bellek(937, 1) = "937) Standing Interpretation Committee (SIC):": Bellek(937, 2) = " Standartları Yorumlama Komitesi (SYK) "
Bellek(938, 1) = "938) Start- up costs:": Bellek(938, 2) = " Kuruluş/Başlama maliyetleri (UMS 40) "
Bellek(939, 1) = "939) State- controlled entities:": Bellek(939, 2) = " Kamu iktisadi teşebbüsleri(UMS 24)"
Bellek(940, 1) = "940) Statement of cash flows= Cash flow statement:": Bellek(940, 2) = " Nakit akış tablosu "
Bellek(941, 1) = "941) Statement of changes in equity:": Bellek(941, 2) = " Özkaynaklar değişim tablosu "
Bellek(942, 1) = "942) Statement of compliance with IFRSs:": Bellek(942, 2) = " UFRSye uyum tablosu (UFRS 1) "
Bellek(943, 1) = "943) Statement of income= Income statement:": Bellek(943, 2) = " Gelir tablosu"
Bellek(944, 1) = "944) Stewardship of management:": Bellek(944, 2) = " Yönetimin sorumluluğu (UFRS 1) "
Bellek(945, 1) = "945) Stop- loss:": Bellek(945, 2) = " Zararı durdurma satışı (128) (ED 5)"
Bellek(946, 1) = "946) Straight- line method:": Bellek(946, 2) = " Doğrusal amortisman yöntemi (UMS 16) "
Bellek(947, 1) = "947) Straight- line method:": Bellek(947, 2) = " Doğrusal yöntem (UMS 16) "
Bellek(948, 1) = "948) Subsidiary:": Bellek(948, 2) = " Bağlı ortaklık "
Bellek(949, 1) = "949) Subsidies:": Bellek(949, 2) = " Devlet yardımları ( Sübvansiyon)"
Bellek(950, 1) = "950) Substance over form:": Bellek(950, 2) = " Özün önceliği"
Bellek(951, 1) = "951) Substantively enacted:": Bellek(951, 2) = " Yürürlüğe girmek üzere olan (Henüz yasalaşmamış ancak yasalaşacağı kesine yakın olan ) "
Bellek(952, 1) = "952) Superannuation scheme:": Bellek(952, 2) = " Süper emeklilik planı "
Bellek(953, 1) = "953) Superseded versions:": Bellek(953, 2) = " Yenilenen kısımlar (UFRS 1) "
Bellek(954, 1) = "954) Supervisory non- management directors:": Bellek(954, 2) = " İcrada görev almayan Yönetim Kurulu Üyeleri "
Bellek(955, 1) = "955) Surety bonds:": Bellek(955, 2) = " Kefalet senetleri (ED 5)"
Bellek(956, 1) = "956) Surrender option:": Bellek(956, 2) = " Sigorta tazminat seçeneği (ED 5) "
Bellek(957, 1) = "957) Surrender values:": Bellek(957, 2) = " Sigorta tazminat tutarı (129) (ED 5) "
Bellek(958, 1) = "958) Swap contract:": Bellek(958, 2) = " Vadeli takas/değişim sözleşmesi "
Bellek(959, 1) = "959) Syndication:": Bellek(959, 2) = " Konsorsiyum (sendikasyon)"
Bellek(960, 1) = "960) Synthetic instrument:": Bellek(960, 2) = " Sentetik türev ürün"
Bellek(961, 1) = "961) Tainting:": Bellek(961, 2) = " (UFRS 1) Cezai kural ihlali"
Bellek(962, 1) = "962) Tangible asset:": Bellek(962, 2) = " Maddi duran varlık"
Bellek(963, 1) = "963) Targeted exemptions:": Bellek(963, 2) = " Hedeflenen muafiyetler (UFRS 1)"
Bellek(964, 1) = "964) Tax:": Bellek(964, 2) = " Vergi"
Bellek(965, 1) = "965) Tax base:": Bellek(965, 2) = " Vergiye esas değer / Vergi matrahı"
Bellek(966, 1) = "966) Tax base of an asset or liability:": Bellek(966, 2) = " Bir varlık veya borcun vergiye esas değeri/matrahı"
Bellek(967, 1) = "967) Tax effects:": Bellek(967, 2) = " Vergi etkileri (UMS 12)"
Bellek(968, 1) = "968) Tax expense (tax income):": Bellek(968, 2) = " Vergi gideri (vergi geliri)"
Bellek(969, 1) = "969) Tax liability:": Bellek(969, 2) = " Vergi borcu (UFRS 1)"
Bellek(970, 1) = "970) Tax purposes:": Bellek(970, 2) = " Vergi amaçları (UFRS 1) "
Bellek(971, 1) = "971) Tax rate:": Bellek(971, 2) = " Vergi oranı (UFRS 1)"
Bellek(972, 1) = "972) Taxable profit (tax loss):": Bellek(972, 2) = " Vergilendirilebilir mali kar/mali zarar "
Bellek(973, 1) = "973) Taxable temporary difference:": Bellek(973, 2) = " Vergilendirilebilir geçici fark"
Bellek(974, 1) = "974) Temporary difference:": Bellek(974, 2) = " Geçici fark"
Bellek(975, 1) = "975) Tender offer:": Bellek(975, 2) = " İhale (UMS 33)"
Bellek(976, 1) = "976) Termination benefits:": Bellek(976, 2) = " İşten çıkarma tazminatları(130)"
Bellek(977, 1) = "977) Tests goodwill for impairment:": Bellek(977, 2) = " Şerefiye değer kaybı (düşüklüğü) analizleri (131)"
Bellek(978, 1) = "978) Theoretical ex- rights value per share:": Bellek(978, 2) = " Hisse senedi hakları kullanıldıktan sonraki hisse başına teorik değer (132) "
Bellek(979, 1) = "979) Time- weighting factor:": Bellek(979, 2) = " Zaman ağırlık faktörü (133) (UMS 33)"
Bellek(980, 1) = "980) To manufacture gains:": Bellek(980, 2) = " Duran varlık takas/değişim karları"
Bellek(981, 1) = "981) Top- down test:": Bellek(981, 2) = " Yukarıdan aşağıya hesaplama (134) "
Bellek(982, 1) = "982) Total return swap:": Bellek(982, 2) = " Toplam getirilerin takası "
Bellek(983, 1) = "983) Trade date:": Bellek(983, 2) = " Ticari işlem tarihi "
Bellek(984, 1) = "984) Trade receivable:": Bellek(984, 2) = " Ticari alacak"
Bellek(985, 1) = "985) Trading- financial asset or liability held for trading:": Bellek(985, 2) = " Ticari (Alım satım amacıyla) amaçla elde tutulan finansal varlık veya borçlar "
Bellek(986, 1) = "986) Transaction:": Bellek(986, 2) = " İşlem"
Bellek(987, 1) = "987) Transaction costs (financial instruments):": Bellek(987, 2) = " İşlem maliyetleri (finansal araçlar)"
Bellek(988, 1) = "988) Transfer:": Bellek(988, 2) = " Transfer, devir, aktarma"
Bellek(989, 1) = "989) Transferee:": Bellek(989, 2) = " Transfer edilen (devir edilen veya alan)"
Bellek(990, 1) = "990) Transferor:": Bellek(990, 2) = " Transfer eden (devir eden veya veren)"
Bellek(991, 1) = "991) Transitional liability (defined benefit plans):": Bellek(991, 2) = " Geçici yükümlülük (tanımlanmış sosyal güvenlik planları) "
Bellek(992, 1) = "992) Translation difference:": Bellek(992, 2) = " Kur farkı (UFRS 1) "
Bellek(993, 1) = "993) Translation method:": Bellek(993, 2) = " Yabancı para çevrim yöntemi (UFRS 21) "
Bellek(994, 1) = "994) Translation of foreign currency:": Bellek(994, 2) = " Yabancı paranın (döviz) çevrilmesi "
Bellek(995, 1) = "995) Translation of the financial statements:": Bellek(995, 2) = " Finansal tabloların bir başka para biriminden ifade edilmesi (UMS 21) "
Bellek(996, 1) = "996) Translation of the presentation currency:": Bellek(996, 2) = " Raporlamada kullanılan para birimi cinsinden ifade etme (UMS 21) "
Bellek(997, 1) = "997) Transparency:": Bellek(997, 2) = " Şeffaflık"
Bellek(998, 1) = "998) Treasury shares:": Bellek(998, 2) = " İşletmenin geri satın alınan kendi hisseleri ( 135)"
Bellek(999, 1) = "999) Triggering event:": Bellek(999, 2) = " Tetikleyici olay (ED 5)"
Bellek(1000, 1) = "1000) Trust activities:": Bellek(1000, 2) = " Özel amaçlı vakıf faaliyetleri"

End Sub
Private Sub Veri3_Kur()

On Error Resume Next
Bellek(1001, 1) = "1001) Trustee:": Bellek(1001, 2) = " Mütevelli"
Bellek(1002, 1) = "1002) Two- class ordinary shares:": Bellek(1002, 2) = " Farklı temettü oranına sahip adi hisse senetleri (UMS 33)"
Bellek(1003, 1) = "1003) Ultimate controlling party:": Bellek(1003, 2) = " Nihai kontrol gücüne sahip taraf (UMS 24) "
Bellek(1004, 1) = "1004) Unallocated surplus:": Bellek(1004, 2) = " Dağıtılmamış olumlu fark (ED 5)"
Bellek(1005, 1) = "1005) Unamortised:": Bellek(1005, 2) = " İtfa edilmemiş"
Bellek(1006, 1) = "1006) Unbundle:": Bellek(1006, 2) = " Unsurların tek tek gösterilmesi (136) (ED 5)"
Bellek(1007, 1) = "1007) Uncertain event:": Bellek(1007, 2) = " Belirsiz (kesin olmayan) olay (ED 5)"
Bellek(1008, 1) = "1008) Uncollectability:": Bellek(1008, 2) = " Tahsili şüpheli duruma gelme"
Bellek(1009, 1) = "1009) Understandability:": Bellek(1009, 2) = " Anlaşılabilirlik"
Bellek(1010, 1) = "1010) Underwriting year:": Bellek(1010, 2) = " Poliçe süresi (ED 5)"
Bellek(1011, 1) = "1011) Undistributed earnings:": Bellek(1011, 2) = " Dağıtılmamış kazançlar (karlar) (UMS 33)"
Bellek(1012, 1) = "1012) Undue cost or effort:": Bellek(1012, 2) = " Kesinleşmemiş maliyet veya harcamalar (UFRS 1) "
Bellek(1013, 1) = "1013) Unearned finance income:": Bellek(1013, 2) = " Kazanılmamış finansman geliri"
Bellek(1014, 1) = "1014) Unearned premiums:": Bellek(1014, 2) = " Kazanılmamış primler (ED 5)"
Bellek(1015, 1) = "1015) Unguaranteed residual value:": Bellek(1015, 2) = " Garanti edilmemiş kalıntı değer "
Bellek(1016, 1) = "1016) Uniform accounting policies:": Bellek(1016, 2) = " Tekdüzen muhasebe politikaları (UMS 28)"
Bellek(1017, 1) = "1017) Unit of production:": Bellek(1017, 2) = " Üretim birimi (UMS 2)"
Bellek(1018, 1) = "1018) Unit trust:": Bellek(1018, 2) = " Tröst Birliği (UMS 27)"
Bellek(1019, 1) = "1019) Unit value:": Bellek(1019, 2) = " Birim değer (ED 5)"
Bellek(1020, 1) = "1020) Uniting of interests:": Bellek(1020, 2) = " Çıkarların birleştirilmesi "
Bellek(1021, 1) = "1021) Unquoted:": Bellek(1021, 2) = " Borsa kaydında olmayan"
Bellek(1022, 1) = "1022) Upstream transactions:": Bellek(1022, 2) = " Ortaklarla işlemler (137) "
Bellek(1023, 1) = "1023) Useful life:": Bellek(1023, 2) = " Faydalı ömür, hizmet süresi "
Bellek(1024, 1) = "1024) User (of financial statements):": Bellek(1024, 2) = " Kullanıcı (Finansal tabloları kullanan)"
Bellek(1025, 1) = "1025) Users:": Bellek(1025, 2) = " Kullanıcılar (UMS 40)"
Bellek(1026, 1) = "1026) Users of financial statements:": Bellek(1026, 2) = " Finansal tabloların kullanıcıları (UFRS 1)"
Bellek(1027, 1) = "1027) Valid expectation:": Bellek(1027, 2) = " Geçerli beklenti"
Bellek(1028, 1) = "1028) Value added statement:": Bellek(1028, 2) = " Katma değer tablosu"
Bellek(1029, 1) = "1029) Value in use:": Bellek(1029, 2) = " Kullanım değeri"
Bellek(1030, 1) = "1030) Variable production overheads:": Bellek(1030, 2) = " Değişken genel üretim giderleri "
Bellek(1031, 1) = "1031) Venturer:": Bellek(1031, 2) = " Ortak girişimci, risk sermayedarı"
Bellek(1032, 1) = "1032) Vested employee benefits:": Bellek(1032, 2) = " Giydirilmiş personel sosyal hakları"
Bellek(1033, 1) = "1033) Warrant:": Bellek(1033, 2) = " Hisse alma hakkı veren finansal araç (UMS 33)"
Bellek(1034, 1) = "1034) Warranty:": Bellek(1034, 2) = " Garanti"
Bellek(1035, 1) = "1035) Wear and tear:": Bellek(1035, 2) = " Aşınma ve yıpranma (UMS 16)"
Bellek(1036, 1) = "1036) Weather derivatives:": Bellek(1036, 2) = " İklime dayalı türev ürünleri"
Bellek(1037, 1) = "1037) Weighted Average:": Bellek(1037, 2) = " Ağırlıklı ortalama (UMS 33)"
Bellek(1038, 1) = "1038) Weighted average cost formula:": Bellek(1038, 2) = " Ağırlıklı ortalama maliyet formülü (UMS 2)"
Bellek(1039, 1) = "1039) Wholly- owned subsidiary:": Bellek(1039, 2) = " Tamamına sahip olunan bağlı ortaklık (UMS 27)"
Bellek(1040, 1) = "1040) Work in progress:": Bellek(1040, 2) = " Yarı mamul (UMS 2)"
Bellek(1041, 1) = "1041) Working capital:": Bellek(1041, 2) = " İşletme sermayesi"
Bellek(1042, 1) = "1042) Write- down:": Bellek(1042, 2) = " Defter değerini düşürme/azaltma (UMS 2)"
Bellek(1043, 1) = "1043) Written option:": Bellek(1043, 2) = " Yazılı opsiyon (138) (UFRS 1) "
Bellek(1044, 1) = "1044) Year- to- date:": Bellek(1044, 2) = "Yılbaşından bugüne kadar(UMS 33)"

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}"
Public Const URL1 As String = "http://2.bp.blogspot.com/-G3KDFVP7V0Q/TcUhtYtMifI/AAAAAAAACw0/Ta6mFpFJtZ8/s1600/39.bmp"
Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg"
Public URL As String
Sub Form_Aç() '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 References_List()

'On Error Resume Next
'Dim Eleman, No
'No = 1
'For Each Eleman In ThisWorkbook.VBProject.References

'Sheets(1).Cells(No, 1) = No & ") Name: "
'Sheets(1).Cells(No, 2) = Eleman.Name
'Sheets(1).Cells(No, 3) = ", Description: "
'Sheets(1).Cells(No, 4) = Eleman.Description
'Sheets(1).Cells(No, 5) = ", FullPath: "
'Sheets(1).Cells(No, 6) = Eleman.FullPath
'No = No + 1

'Next Eleman

'End Sub

Create Wscript.Shell For Your Favorite Folder

2012-01-10T00:01:00.003+02:00

'UserForm1

'A. Available References List

'B. Available Tools List

'1) Image1, Label1, Label2, Image2, ImageList1
'2) TreeView1
'3) WebBrowser1

Option Explicit
Private i As Integer
Private CB As CommandBar
Private CBB As CommandBarButton
Private nFaceID As Variant
Private hPicture As IPictureDisp
Private hImage As ListImage
Private FSO As Object
Private hFile As Object
Private hFolder As Object
Private hShell As Object
Private hFavorite As String
Private fFavorite As Object
Private hNode As INode
Private nNode1 As Node
Private nNode2 As Node
Private hURL As Object
Private Ekran As New Class1
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] Create Wscript.Shell For Your Favorite Folder"
Call FaceID_List
Call Ekran_Kur
Set Ekran.Ekran1 = Me
Call TreeView_Kur

End Sub
Private Sub UserForm_Resize()

On Error Resume Next
TreeView1.Height = Me.InsideHeight - TreeView1.Top
With WebBrowser1

.Height = TreeView1.Height
.Width = Me.InsideWidth - .Left - 6

End With

End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

On Error Resume Next
Application.CommandBars("FaceIds").Delete
On Error GoTo 0

End Sub
Private Sub TreeView1_Click()

On Error Resume Next
Set hNode = TreeView1.SelectedItem
Set hURL = hShell.CreateShortcut(hFavorite & "\" & VBA.Replace(hNode.FullPath, "Your Favourite websites", "") & ".url")
If hURL.TargetPath <> "" Then

WebBrowser1.Navigate "" & hURL.TargetPath

End If

End Sub
Private Sub TreeView_Kur()

On Error Resume Next
Set nNode1 = TreeView1.Nodes.Add(, , , "Your Favourite websites", 1)
With nNode1

.Expanded = True
Set hShell = CreateObject("Wscript.Shell")
hFavorite = hShell.specialfolders("Favorites")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fFavorite = FSO.GetFolder(hFavorite)
Call Favorite_List(.Index, fFavorite)
For Each hFile In fFavorite.Files

If VBA.LCase(VBA.Right(hFile.Name, 4)) = ".url" Then

TreeView1.Nodes.Add .Index, tvwChild, , VBA.LCase(VBA.Left(hFile.Name, VBA.Len(hFile.Name) - 4)), 4, 5

End If

Next hFile

End With

End Sub
Sub Favorite_List(hID, nFolder)

On Error Resume Next
For Each hFolder In nFolder.subfolders

Set nNode2 = TreeView1.Nodes.Add(hID, tvwChild, , hFolder.Name, 2, 3)
For Each hFile In hFolder.Files

If LCase(Right(hFile.Name, 4)) = ".url" Then

TreeView1.Nodes.Add nNode2.Index, tvwChild, , LCase(Left(hFile.Name, Len(hFile.Name) - 4)), 4, 5

End If

Next hFile
Call Favorite_List(nNode2.Index, hFolder)

Next hFolder

End Sub
Sub FaceID_List()

On Error Resume Next
nFaceID = Array(1016, 137, 138, 168, 169)
Application.CommandBars("FaceIds").Delete
On Error GoTo 0
Set CB = Application.CommandBars.Add(Name:="FaceIds", Temporary:=True)
With CB

.Visible = False
For i = 0 To 4

Set CBB = .Controls.Add(Type:=msoControlButton, ID:=2950)
With CBB

.FaceId = nFaceID(i)
Set hPicture = Nothing
Set hPicture = .Picture
Set hImage = ImageList1.ListImages.Add(i + 1, "Key" & i + 1, hPicture)
If i = 0 Then Image2.Picture = hPicture
.Delete

End With

Next

End With
On Error Resume Next
Application.CommandBars("FaceIds").Delete
On Error GoTo 0
TreeView1.ImageList = ImageList1

End Sub
Private Sub Ekran_Kur()

On Error Resume Next
With Me

.BackColor = vbWhite
.Height = 402
.Width = 582
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectFlat
With Image1

End With
With Label1

End With
With Label2

End With
With TreeView1

.Left = 6
.Top = 36
.Width = 196
.Height = Me.InsideHeight - .Top
.Appearance = ccFlat
.BorderStyle = ccNone
.LineStyle = tvwRootLines
.Scroll = True
.Style = tvwTreelinesPlusMinusPictureText

End With
With WebBrowser1

.Left = TreeView1.Left + TreeView1.Width
.Top = TreeView1.Top
.Height = TreeView1.Height
.Width = Me.InsideWidth - .Left - 6

End With
Image2.Top = -6000

End With

On Error Resume Next
Load UserForm1

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 References_List()

'On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

'Class1

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Pencere_Düzeni As Long, ByVal Mesaj As Long, ByVal Değişken1 As Long, Değişken2 As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Class_Adı As String, ByVal Ekran_Adı As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Pencere As Long, ByVal Koordinat As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Pencere_Düzeni As Long, ByVal Koordinat As Long, ByVal Yeni_Boyut As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal Pencere As Long, ByVal Eylem As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal Pencere As Long) As Long
Private hWindow As Long
Private hImage As Long
Public Property Set Ekran1(Ekran As Object)

On Error Resume Next
hWindow = FindWindow(vbNullString, Ekran.Caption)
hImage = Ekran.Image2.Picture.Handle
Call Simge_Yarat(hWindow, hImage)
SetWindowLong hWindow, (-16), GetWindowLong(hWindow, (-16)) Or &H80000 Or &H20000 Or &H10000
ShowWindow hWindow, 3
DrawMenuBar hWindow

End Property
Private Function Simge_Yarat(hWindow, hImage)

On Error Resume Next
Call SendMessage(hWindow, &H80, 0&, ByVal hImage)
Call SendMessage(hWindow, &H80, 1&, ByVal hImage)

End Function

CreatePolygonRgn Function

2012-01-02T00:01:00.031+02:00

'UserForm1

'A. Available References List

'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'5) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\Windows\SysWOW64\FM20.DLL

'B. Available Tools List

'1) Frame1
'2) Frame1\Image1, Label1, Label2
'3) Frame2
'4) Frame2\Label3, Label4, TextBox1, TextBox2, CommandButton1, CommandButton2
'5) Frame3
'6) Frame3\Image2, Label5, Label6, Label7, Label8

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private hWind As Long
Private Ekran As New Class1
Private Sub UserForm_Initialize()

On Error Resume Next
With Me

.Caption = "[PBİD®] CreatePolygonRgn Function"
.Move (Application.Width - Me.Width) / 2, (Application.Height - Me.Height) / 2

End With
Application.Visible = False
Call Ekran_Kur
Set Ekran.Icon_Maker = Me
Set Ekran.Ekran0 = Me
Set Ekran.Ekran_Opague = Me

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

On Error Resume Next
hWind = FindWindow(vbNullString, Me.Caption)
If Button = 1 Then

ReleaseCapture
SendMessage hWind, &HA1, 2, 0

End If

End Sub
Private Sub UserForm_Terminate()

On Error Resume Next
Application.Visible = True

End Sub
Private Sub TextBox1_Change()

On Error Resume Next
If TextBox1.Value = "mu" And TextBox2.Value = "pbid" Then

CommandButton1.Enabled = True

Else

CommandButton1.Enabled = False

End If

End Sub
Private Sub TextBox2_Change()

On Error Resume Next
If TextBox1.Value = "mu" And TextBox2.Value = "pbid" Then

CommandButton1.Enabled = True

Else

CommandButton1.Enabled = False

End If

End Sub
Private Sub CommandButton1_Click() 'Open Program

On Error Resume Next
Set Ekran.Ekran_Transparent = Me
Unload Me
'UserForm2.Show

End Sub
Private Sub CommandButton2_Click() 'Close Program

On Error Resume Next
Set Ekran.Ekran_Transparent = Me
Unload Me
ThisWorkbook.Save
Application.Quit

End Sub
Private Sub Ekran_Kur()

On Error Resume Next
With Me

.BackColor = vbWhite
.Height = 262
.Width = 396
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectFlat
With Frame1

.Left = 6
.Top = 6
.Height = 138
.Width = 182
.Caption = ""
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectEtched
With Image1

.Top = 6
.Left = 60
.Height = 60
.Width = 60
.BackStyle = fmBackStyleTransparent
.SpecialEffect = fmSpecialEffectEtched
.Picture = Resim(URL3)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeStretch
.PictureTiling = False

End With
With Label1

.Left = 6
.Top = Image1.Top + Image1.Height + 6
.Height = 24
.Width = 168
.Caption = "Örnek İnşaat, Ticaret, Enerji, Turizm Yatırımları ve İşletmeleri A.Ş."
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = False
.Font.Name = "Tahoma"
.ForeColor = &H808000
.WordWrap = True
.TextAlign = fmTextAlignCenter

End With
With Label2

.Left = 6
.Top = Label1.Top + Label1.Height + 6
.Height = 24
.Width = 168
.Caption = "Örnek Projesi"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = False
.Font.Name = "Tahoma"
.ForeColor = &H808000
.WordWrap = True
.TextAlign = fmTextAlignCenter

End With

End With
With Frame2

.Left = 6
.Top = Frame1.Top + Frame1.Height + 6
.Height = 84
.Width = 182
.Caption = ""
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectEtched
With Label3

.Left = 6
.Top = 6
.Height = 18
.Width = 72
.Caption = " Username"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = False
.Font.Name = "Tahoma"
.ForeColor = &H808000
.WordWrap = True
.TextAlign = fmTextAlignLeft

End With
With TextBox1

.Left = Label3.Left + Label3.Width
.Top = Label3.Top
.Height = 18
.Width = 96
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleOpaque
.Font.Bold = False
.Font.Name = "Tahoma"
.ForeColor = vbBlue
.TextAlign = fmTextAlignLeft
.PasswordChar = ""
.SetFocus

End With
With Label4

.Left = 6
.Top = Label3.Top + Label3.Height + 6
.Height = 18
.Width = 72
.Caption = " Password"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = False
.Font.Name = "Tahoma"
.ForeColor = &H808000
.WordWrap = True
.TextAlign = fmTextAlignLeft

End With
With TextBox2

.Left = Label4.Left + Label4.Width
.Top = Label4.Top
.Height = 18
.Width = 96
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleOpaque
.Font.Bold = False
.Font.Name = "Tahoma"
.ForeColor = vbBlue
.TextAlign = fmTextAlignLeft
.PasswordChar = "*"

End With
With CommandButton1

.Left = TextBox2.Left + TextBox2.Width - 18 * 2 - 6
.Top = TextBox2.Top + TextBox2.Height + 6
.Height = 18
.Width = 18
.Caption = ""
.ControlTipText = "Program Girişi"
.Picture = Resim(URL2)
.PicturePosition = fmPicturePositionCenter
.Enabled = False

End With
With CommandButton2

.Left = TextBox2.Left + TextBox2.Width - 18
.Top = TextBox2.Top + TextBox2.Height + 6
.Height = 18
.Width = 18
.Caption = ""
.ControlTipText = "Program Çıkışı"
.Picture = Resim(URL4)
.PicturePosition = fmPicturePositionCenter
.Enabled = True

End With

End With
With Frame3

.Left = 204
.Top = 6
.Height = 114
.Width = 182
.Caption = ""
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectEtched
With Image2

.Top = 6
.Left = 72
.Height = 24
.Width = 24
.BackStyle = fmBackStyleTransparent
.SpecialEffect = fmSpecialEffectEtched
.Picture = Resim(URL2)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False

End With
With Label5

.Left = 6
.Top = Image2.Top + Image2.Height + 6
.Height = 24
.Width = 168
.Caption = "PROGRAM BÜTÇELEME & İZLEME DEĞERLENDİRME"
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = False
.Font.Name = "Tahoma"
.Font.Size = 9
.ForeColor = &H808000
.WordWrap = True
.TextAlign = fmTextAlignCenter

End With
With Label6

.Left = 6
.Top = Label5.Top + Label5.Height + 6
.Height = 12
.Width = 168
.Caption = "Mustafa ULUSARAÇ"
.SpecialEffect = fmSpecialEffectFlat
.BorderStyle = fmBorderStyleNone
.BackStyle = fmBackStyleTransparent
.Font.Bold = False
.Font.Name = "Tahoma"
.ForeColor = &H808000
.WordWrap = True
.TextAlign = fmTextAlignCenter

End With
With Label7

.Left = 6
.Top = Label6.Top + Label6.Height
.Height = 12
.Width = 168
.Caption = "01ulusarac@superonline.com"
.SpecialEffect = fmSpecialEffectFlat
.BorderStyle = fmBorderStyleNone
.BackStyle = fmBackStyleTransparent
.Font.Bold = False
.Font.Name = "Tahoma"
.ForeColor = &H808000
.WordWrap = True
.TextAlign = fmTextAlignCenter

End With
With Label8

.Left = 6
.Top = Label7.Top + Label7.Height
.Height = 12
.Width = 168
.Caption = "Version 2.14"
.SpecialEffect = fmSpecialEffectFlat
.BorderStyle = fmBorderStyleNone
.BackStyle = fmBackStyleTransparent
.Font.Bold = False
.Font.Name = "Tahoma"
.ForeColor = &H808000
.WordWrap = True
.TextAlign = fmTextAlignCenter

End With

On Error Resume Next
Load UserForm1

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 References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

'Class1

Option Explicit
Private i As Single
Private Type POINTAPI

X As Long
Y As Long

End Type
Private PA1(0 To 3) As POINTAPI
Private PA2(0 To 3) As POINTAPI
Private PA3(0 To 3) As POINTAPI
Private PA4(0 To 3) As POINTAPI
Private lRgn1 As Long
Private lRgn2 As Long
Private lRgn3 As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hPenceresind As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetFocus Lib "user32" (ByVal hPenceresind As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private hPict As Long
Private hWind As Long
Private lWind As Long
Public Property Set Icon_Maker(hForm As Object)

On Error Resume Next
hWind = FindWindow(vbNullString, hForm.Caption)
hPict = hForm.Image1.Picture.Handle
Call SendMessage(hWind, &H80, 0&, ByVal hPict)
Call SendMessage(hWind, &H80, 1&, ByVal hPict)

End Property
Public Property Set Ekran0(hForm As Object)

On Error Resume Next
hWind = FindWindow(vbNullString, hForm.Caption)
PA1(0).X = 0
PA1(0).Y = 0
PA1(1).X = 0
PA1(1).Y = hForm.Height * 4 / 3
PA1(2).X = hForm.Width * 4 / 3
PA1(2).Y = hForm.Height * 4 / 3
PA1(3).X = hForm.Width * 4 / 3
PA1(3).Y = 0
lRgn1 = CreatePolygonRgn(PA1(0), 4, 1)
lRgn1 = CreateRoundRectRgn(PA1(0).X, PA1(0).Y, PA1(2).X, PA1(2).Y, PA1(3).Y, PA1(3).Y)
PA2(0).X = 2
PA2(0).Y = 22* 4 / 3
PA2(1).X = 2
PA2(1).Y = hForm.Height * 4 / 3 - 2
PA2(2).X = (6 + hForm.Frame1.Width + 6) * 4 / 3
PA2(2).Y = hForm.Height * 4 / 3 - 2
PA2(3).X = (6 + hForm.Frame1.Width + 6) * 4 / 3
PA2(3).Y = 22 * 4 / 3
lRgn2 = CreatePolygonRgn(PA2(0), 4, 1)
lRgn2 = CreateRoundRectRgn(PA2(0).X, PA2(0).Y, PA2(2).X, PA2(2).Y, PA2(3).Y, PA2(3).Y)
PA3(0).X = (6 + hForm.Frame1.Width + 6 + 6) * 4 / 3
PA3(0).Y = 22 * 4 / 3
PA3(1).X = (6 + hForm.Frame1.Width + 6 + 6) * 4 / 3
PA3(1).Y = (22 + 6 + hForm.Frame3.Height + 6) * 4 / 3
PA3(2).X = hForm.Width * 4 / 3 - 2
PA3(2).Y = (22 + 6 + hForm.Frame3.Height + 6) * 4 / 3
PA3(3).X = hForm.Width * 4 / 3 - 2
PA3(3).Y = 22 * 4 / 3
lRgn3 = CreatePolygonRgn(PA3(0), 4, 1)
lRgn3 = CreateRoundRectRgn(PA3(0).X, PA3(0).Y, PA3(2).X, PA3(2).Y, PA3(3).Y, PA3(3).Y)
lWind = CombineRgn(lRgn1, lRgn2, lRgn3, 3)
lWind = SetWindowRgn(hWind, lRgn1, True)
hForm.Repaint

End Property
Public Property Set Ekran1(hForm As Object) '[+,+,+]Küçük Açar

On Error Resume Next
SetWindowLong hWind, (-16), GetWindowLong(hWind, (-16)) Or &H80000 Or &H20000 Or &H10000
DrawMenuBar hWind
ShowWindow hWind, 5
SetFocus hWind

End Property
Public Property Set Ekran_Opague(hForm As Object)

On Error Resume Next
hWind = FindWindow(vbNullString, hForm.Caption)
For i = 0 To 255 Step 0.1

lWind = GetWindowLong(hWind, (-20))
lWind = lWind Or &H80000 Or &H20000 Or &H10000
SetWindowLong hWind, (-20), lWind
DrawMenuBar hWind
SetLayeredWindowAttributes hWind, 0, i, &H2
ShowWindow hWind, 5
DoEvents

Next i

End Property
Public Property Set Ekran_Transparent(hForm As Object)

On Error Resume Next
hWind = FindWindow(vbNullString, hForm.Caption)
For i = 100 To 255 Step 0.1

lWind = GetWindowLong(hWind, (-20))
lWind = lWind Or &H80000 Or &H20000 Or &H10000
SetWindowLong hWind, (-20), lWind
ShowWindow hWind, 5
DrawMenuBar hWind
SetLayeredWindowAttributes hWind, 0, (255 - i), &H2
DoEvents

Next i

End Property

Writeln Web Document

2011-12-20T00:01:00.002+02:00

'UserForm1

'A. Available References List

'B. Available Tools List

'1) İmage1, Label1, Label2
'2) WebBrowser1

Option Explicit
Private i As Single
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long
Private Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Private Type POINTAPI

X As Long
Y As Long

End Type
Private Type RECT

Left As Long
Top As Long
Right As Long
Bottom As Long

End Type
Private Boyut As RECT
Private Eleman As Worksheet
Private hwnd As Long
Private AnimateWidth As Integer
Private AnimateHeight As Integer
Private FormWidth As Integer
Private FormHeight As Integer
Private FormLeft As Integer
Private FormTop As Integer
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] Writeln Web Document"
hwnd = FindWindow(vbNullString, Me.Caption)
With Application

.Visible = False
.DisplayAlerts = False
Call Add_Web_Document_Sheet
Call Ekran_Duzenle
Call Writeln_Web_Document
Call Form_Animate
.DisplayAlerts = False

End With

End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

On Error Resume Next
Application.Visible = True

End Sub
Private Sub Ekran_Duzenle()

On Error Resume Next
With Me

.BackColor = vbWhite
.Height = 36 + 6 + 252 + 12
.Width = 6 + 372 + 6
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectFlat
With Image1

End With
With Label1

.Left = 36
.Top = 6
.Height = 12
.Width = 420
.Caption = "Mustafa ULUSARAÇ"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue

End With
With Label2

.Left = 36
.Top = 18
.Height = 12
.Width = 420
.Caption = "01ulusarac@superonline.com"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue

End With
With WebBrowser1

.Left = 6
.Top = 36
.Height = 252
.Width = 368
.FullScreen = False
.Resizable = False
.TheaterMode = False
.Navigate "about:blank"
Do While WebBrowser1.Busy

DoEvents

Loop

End With

End Sub
Private Sub Add_Web_Document_Sheet()

On Error Resume Next
For Each Eleman In ThisWorkbook.Sheets

If Eleman.Name = "WebDocumen" Then GoTo Devam

Next Eleman
ThisWorkbook.Sheets.Add Sheets(1)
ActiveSheet.Name = "WebDocumen"
Devam:
With Sheets("WebDocumen")

.Cells.Select
Selection.Delete Shift:=xlUp
.Range("A1").Select
.Cells(1, 1) = "@Object Classid='Clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6' Height='300' ID='Player1' Width='472'æ"
.Cells(2, 1) = "@Param Name='URL' value='http://scfire-ntc-aa04.stream.aol.com:80/stream/1004'/æ"
.Cells(3, 1) = "@Param Name='volume' value='50'/æ"
.Cells(4, 1) = "@Param Name='playCount' value='2'/æ"
.Cells(5, 1) = "@Param Name='uiMode' value='mini'/æ"
.Cells(6, 1) = "@/Objectæ"
.Cells(7, 1) = "@Body Scroll='No' Style='Border-Width:0'/æ"
.Cells(8, 1) = "@Body BackGround='http://2.bp.blogspot.com/-G3KDFVP7V0Q/TcUhtYtMifI/AAAAAAAACw0/Ta6mFpFJtZ8/s1600/39.bmp'/æ"

End With
Cells.Replace What:="@", Replacement:="<", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="æ", Replacement:=">", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End Sub
Private Sub Writeln_Web_Document()

On Error Resume Next
DoEvents
WebBrowser1.Document.Open
i = 1
With ThisWorkbook.Sheets("WebDocumen")

Do While .Cells(i, 1) <> ""

WebBrowser1.Document.writeln .Cells(i, 1).Text
i = i + 1

Loop
.Delete

End With

End Sub
Sub Form_Animate()

On Error Resume Next
AnimateWidth = GetSystemMetrics32(0)
AnimateHeight = GetSystemMetrics32(1)
GetWindowRect hwnd, Boyut
FormWidth = VBA.Abs(Boyut.Right - Boyut.Left)
FormHeight = VBA.Abs(Boyut.Top - Boyut.Bottom)
FormLeft = (AnimateWidth - FormWidth) / 2
FormTop = (AnimateHeight - FormHeight) / 2
SetWindowPos hwnd, 0&, FormLeft, FormTop, 0&, 0&, &H1
AnimateWindow hwnd, 800, &H10 Or &H20000
Me.Repaint

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 References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

ActiveWorkbook FollowHyperlink to Web & e-Mail Address

2011-12-10T00:01:00.000+02:00

'UserForm1

'A. Available References List

'B. Available Tools List

'1) İmage1; close the UserForm
'2) Label1; ActiveWorkbook FollowHyperlink to web address
'3) Label2; ActiveWorkbook FollowHyperlink to e-mail address

Option Explicit
Private Const Ara = 60
Private Tur As Integer
Private Kontrol As Boolean
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal HWND As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal HWND As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal HWND As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWND As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private hWnd1 As Long, hWnd2 As Long
Private hFrame As String
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] "
Call Ekran_Duzenle
hFrame = IIf(Val(Application.Version) > 8, "ThunderDFrame", "ThunderXFrame")
hWnd1 = FindWindow(lpClassName:=hFrame, lpWindowName:=Me.Caption)
SetWindowLong hWnd1, -16, GetWindowLong(hWnd1, -16) And Not &HC00000
DrawMenuBar hWnd1
Kontrol = True
Application.Visible = False

End Sub
Private Sub UserForm_Activate()

On Error Resume Next
Label1.Caption = VBA.Space(Ara) + "Mustafa ULUSARAÇ"
Tur = Ara + VBA.Len("Mustafa ULUSARAÇ")
Call Zamanlama

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

On Error Resume Next
hWnd2 = FindWindow(lpClassName:=hFrame, lpWindowName:=Me.Caption)
ReleaseCapture
SendMessage hWnd2, &HA1, 2, ByVal 0&

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

On Error Resume Next
With Label1

.ForeColor = &HFF0000
.Font.Underline = False
.MousePointer = fmMousePointerArrow

End With
With Label2

.ForeColor = &HFF0000
.Font.Underline = False
.MousePointer = fmMousePointerArrow

End With
With Image1

.SpecialEffect = fmSpecialEffectFlat
.BorderStyle = fmBorderStyleSingle
.MousePointer = fmMousePointerArrow

End With

End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

On Error Resume Next
Kontrol = False
Application.Visible = True

End Sub
Private Sub Image1_Click()

On Error Resume Next
Image1.SpecialEffect = fmSpecialEffectSunken
DoEvents
Unload Me

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

On Error Resume Next
With Image1

.SpecialEffect = fmSpecialEffectRaised
.MousePointer = fmMousePointerAppStarting

End With

End Sub
Private Sub Label1_Click()

On Error Resume Next
ActiveWorkbook.FollowHyperlink Address:="http://www.excelkodklavuzu.blogspot.com/", NewWindow:=True

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

On Error Resume Next
DoEvents
With Label1

.ForeColor = &HFFC0C0
.Font.Underline = True
.MousePointer = fmMousePointerAppStarting

End With

End Sub
Private Sub Label2_Click()

On Error Resume Next
ActiveWorkbook.FollowHyperlink Address:="Mailto: " & Label2.Caption & "?" & "Subject= Mustafa ULUSARAÇ'ın dikkatine...", NewWindow:=True

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

On Error Resume Next
DoEvents
With Label2

.ForeColor = &HFFC0C0
.Font.Underline = True
.MousePointer = fmMousePointerAppStarting

End With

End Sub
Private Sub Ekran_Duzenle()

On Error Resume Next
With Me

.Height = 240
.Width = 360
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectRaised
With Image1

End With
With Label1

.Left = 36
.Top = 6
.Height = 12
.Width = 224
.Caption = VBA.Space(Ara) + "Mustafa ULUSARAÇ"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue

End With
With Label2

.Left = 36
.Top = 18
.Height = 12
.Width = 224
.Caption = "01ulusarac@superonline.com"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue

End With

End Sub
Private Sub Zamanlama()

On Error Resume Next
Do While Kontrol

Tur = Tur - 1
Label1.Caption = VBA.Right(Label1.Caption, Tur)
Sleep 30
DoEvents
If Tur = 0 Then Call UserForm_Activate

Loop

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 References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

Save Web Pages And Objects By ExecWB

2011-12-01T00:01:00.008+02:00

'Module1

'Available References List

'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'5) Name: SHDocVw, Description: Microsoft Internet Controls, Full Path: C:\WINDOWS\system32\ieframe.dll

Option Explicit
Private Url As String
Private IE As New InternetExplorer
Sub ExecWB()

On Error GoTo Hata
IE.Visible = True
Url = "http://www.excelkodklavuzu.blogspot.com"
IE.Navigate Url
Do

DoEvents

Loop While Not IE.ReadyState = 4
IE.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
Exit Sub
Hata:
MsgBox VBA.Err.Description, vbInformation, "[PBİD®]"

End Sub
'Sub References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

GetSystemMenu Options For Excel, WorkBook And UserForm

2011-11-20T00:01:00.000+02:00

'UserForm1

'A. Available References List

'B. Available Tools List

'1) Image1, Label1, Label2
'2) Label3, Label4, Label5, Label6, Label7, Label8
'3) ToggleButton1, ToggleButton2, ToggleButton3
'4) ToggleButton4, ToggleButton5, ToggleButton6
'5) ToggleButton7, ToggleButton8, ToggleButton9

Private i As Single
Private Const GWL_STYLE = -16&
Private Const SC_CLOSE = &HF060
Private Const MF_BYCOMMAND = &H0
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal myHwnd As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal myHwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private hMenu As Long
Private hWndStyle As Long
Private UFhWnd As Long
Private XLhWnd As Long
Private WBhWnd As Long
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] GetSystemMenu Options For Excel, WorkBook And UserForm"
Call Ekran_Duzenle
Call Find_hWnd
Call Open_Buttons

End Sub
Private Sub UserForm_Terminate()

On Error Resume Next
Call Open_Buttons

End Sub
Private Sub ToggleButton1_Click()

On Error Resume Next
With Me.ToggleButton1

If .Value Then

Call AddMinButton(UFhWnd)
.Caption = "ON"
.ForeColor = VBA.ColorConstants.vbBlue

Else

Call DelMinButton(UFhWnd)
.Caption = "OFF"
.ForeColor = VBA.ColorConstants.vbRed

End If

End With

End Sub
Private Sub ToggleButton2_Click()

On Error Resume Next
With Me.ToggleButton2

If .Value Then

Call AddMaxButton(UFhWnd)
.Caption = "ON"
.ForeColor = VBA.ColorConstants.vbBlue

Else

Call DelMaxButton(UFhWnd)
.Caption = "OFF"
.ForeColor = VBA.ColorConstants.vbRed

End If

End With

End Sub
Private Sub ToggleButton3_Click()

On Error Resume Next
With Me.ToggleButton3

If .Value Then

Call AddCloseButton(UFhWnd)
.Caption = "ON"
.ForeColor = VBA.ColorConstants.vbBlue

Else

Call DelCloseButton(UFhWnd)
.Caption = "OFF"
.ForeColor = VBA.ColorConstants.vbRed

End If

End With

End Sub
Private Sub ToggleButton4_Click()

On Error Resume Next
With Me.ToggleButton4

If .Value Then

Call AddMinButton(WBhWnd)
.Caption = "ON"
.ForeColor = VBA.ColorConstants.vbBlue

Else

Call DelMinButton(WBhWnd)
.Caption = "OFF"
.ForeColor = VBA.ColorConstants.vbRed

End If

End With
With Application.Windows(ThisWorkbook.Name)

.WindowState = xlMaximized
.WindowState = xlNormal

End With

End Sub
Private Sub ToggleButton5_Click()

On Error Resume Next
With Me.ToggleButton5

If .Value Then

Call AddMaxButton(WBhWnd)
.Caption = "ON"
.ForeColor = VBA.ColorConstants.vbBlue

Else

Call DelMaxButton(WBhWnd)
.Caption = "OFF"
.ForeColor = VBA.ColorConstants.vbRed

End If

End With
With Application.Windows(ThisWorkbook.Name)

.WindowState = xlMaximized
.WindowState = xlNormal

End With

End Sub
Private Sub ToggleButton6_Click()

On Error Resume Next
With Me.ToggleButton6

If .Value Then

Call AddCloseButton(WBhWnd)
.Caption = "ON"
.ForeColor = VBA.ColorConstants.vbBlue

Else

Call DelCloseButton(WBhWnd)
.Caption = "OFF"
.ForeColor = VBA.ColorConstants.vbRed

End If

End With
With Application.Windows(ThisWorkbook.Name)

.WindowState = xlMaximized
.WindowState = xlNormal

End With

End Sub
Private Sub ToggleButton7_Click()

On Error Resume Next
With Me.ToggleButton7

If .Value Then

Call AddMinButton(XLhWnd)
.Caption = "ON"
.ForeColor = VBA.ColorConstants.vbBlue

Else

Call DelMinButton(XLhWnd)
.Caption = "OFF"
.ForeColor = VBA.ColorConstants.vbRed

End If

End With

End Sub
Private Sub ToggleButton8_Click()

On Error Resume Next
With Me.ToggleButton8

If .Value Then

Call AddMaxButton(XLhWnd)
.Caption = "ON"
.ForeColor = VBA.ColorConstants.vbBlue

Else

Call DelMaxButton(XLhWnd)
.Caption = "OFF"
.ForeColor = VBA.ColorConstants.vbRed

End If

End With

End Sub
Private Sub ToggleButton9_Click()

On Error Resume Next
With Me.ToggleButton9

If .Value Then

Call AddCloseButton(XLhWnd)
.Caption = "ON"
.ForeColor = VBA.ColorConstants.vbBlue

Else

Call DelCloseButton(XLhWnd)
.Caption = "OFF"
.ForeColor = VBA.ColorConstants.vbRed

End If

End With

End Sub
Private Sub Find_hWnd()

On Error Resume Next
UFhWnd = FindWindow(vbNullString, UserForm1.Caption)
XLhWnd = FindWindow("XLMAIN", Application.Caption)
WBhWnd = FindWindowEx(XLhWnd, 0&, "XLDESK", vbNullString)
WBhWnd = FindWindowEx(WBhWnd, 0&, "EXCEL7", vbNullString)

End Sub
Private Sub AddMinButton(ByVal hWndTipi As Long)

On Error Resume Next
hWndStyle = GetWindowLong(hWndTipi, GWL_STYLE)
hWndStyle = hWndStyle Or WS_MINIMIZEBOX
SetWindowLong hWndTipi, GWL_STYLE, hWndStyle
DrawMenuBar hWndTipi

End Sub
Private Sub DelMinButton(ByVal hWndTipi As Long)

On Error Resume Next
hWndStyle = GetWindowLong(hWndTipi, GWL_STYLE)
hWndStyle = hWndStyle And Not WS_MINIMIZEBOX
SetWindowLong hWndTipi, GWL_STYLE, hWndStyle
DrawMenuBar hWndTipi

End Sub
Private Sub AddMaxButton(ByVal hWndTipi As Long)

On Error Resume Next
hWndStyle = GetWindowLong(hWndTipi, GWL_STYLE)
hWndStyle = hWndStyle Or WS_MAXIMIZEBOX
SetWindowLong hWndTipi, GWL_STYLE, hWndStyle
DrawMenuBar hWndTipi

End Sub
Private Sub DelMaxButton(ByVal hWndTipi As Long)

On Error Resume Next
hWndStyle = GetWindowLong(hWndTipi, GWL_STYLE)
hWndStyle = hWndStyle And Not WS_MAXIMIZEBOX
SetWindowLong hWndTipi, GWL_STYLE, hWndStyle
DrawMenuBar hWndTipi

End Sub
Private Sub AddCloseButton(ByVal hWndTipi As Long)

On Error Resume Next
hMenu = GetSystemMenu(hWndTipi, 1&)
DrawMenuBar hWndTipi

End Sub
Private Sub DelCloseButton(ByVal hWndTipi As Long)

On Error Resume Next
hMenu = GetSystemMenu(hWndTipi, 0&)
DeleteMenu hMenu, SC_CLOSE, MF_BYCOMMAND
DrawMenuBar hWndTipi

End Sub
Private Sub Open_Buttons()

On Error Resume Next
For i = 1 To 9

Me("ToggleButton" & i).Value = True

Next i
Application.WindowState = xlMaximized
Windows(ThisWorkbook.Name).WindowState = xlMaximized

End Sub
Private Sub Ekran_Duzenle()

On Error Resume Next
With Me

.BackColor = vbWhite
.Height = 160
.Width = 258
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
With Image1

End With
With Label1

.Left = 36
.Top = 6
.Height = 12
.Width = 318
.Caption = "Mustafa ULUSARAÇ"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue

End With
With Label2

.Left = 36
.Top = 18
.Height = 12
.Width = 318
.Caption = "01ulusarac@superonline.com"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue

End With
With Label3

.Left = 6
.Top = 60
.Height = 24
.Width = 60
.Caption = " UserForm"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H404000
.TextAlign = fmTextAlignLeft

End With
With Label4

.Left = 6
.Top = 84
.Height = 24
.Width = 60
.Caption = " WorkBook"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H404000
.TextAlign = fmTextAlignLeft

End With
With Label5

.Left = 6
.Top = 108
.Height = 24
.Width = 60
.Caption = " Excel"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H404000
.TextAlign = fmTextAlignLeft

End With
With Label6

.Left = 66
.Top = 36
.Height = 24
.Width = 60
.Caption = "Minumum"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H404000
.TextAlign = fmTextAlignCenter

End With
With ToggleButton1

.Left = 66
.Top = 60
.Height = 24
.Width = 60
.Caption = ""
.Alignment = fmAlignmentLeft
.BackStyle = fmBackStyleTransparent
.Enabled = True
.SpecialEffect = fmButtonEffectFlat
.TextAlign = fmTextAlignCenter
.WordWrap = False

End With
With ToggleButton4

.Left = 66
.Top = 84
.Height = 24
.Width = 60
.Caption = ""
.Alignment = fmAlignmentLeft
.BackStyle = fmBackStyleTransparent
.Enabled = True
.SpecialEffect = fmButtonEffectFlat
.TextAlign = fmTextAlignCenter
.WordWrap = False

End With
With ToggleButton7

.Left = 66
.Top = 108
.Height = 24
.Width = 60
.Caption = ""
.Alignment = fmAlignmentLeft
.BackStyle = fmBackStyleTransparent
.Enabled = True
.SpecialEffect = fmButtonEffectFlat
.TextAlign = fmTextAlignCenter
.WordWrap = False

End With
With Label7

.Left = 126
.Top = 36
.Height = 24
.Width = 60
.Caption = "Maximum"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H404000
.TextAlign = fmTextAlignCenter

End With
With ToggleButton2

.Left = 126
.Top = 60
.Height = 24
.Width = 60
.Caption = ""
.Alignment = fmAlignmentLeft
.BackStyle = fmBackStyleTransparent
.Enabled = True
.SpecialEffect = fmButtonEffectFlat
.TextAlign = fmTextAlignCenter
.WordWrap = False

End With
With ToggleButton5

.Left = 126
.Top = 84
.Height = 24
.Width = 60
.Caption = ""
.Alignment = fmAlignmentLeft
.BackStyle = fmBackStyleTransparent
.Enabled = True
.SpecialEffect = fmButtonEffectFlat
.TextAlign = fmTextAlignCenter
.WordWrap = False

End With
With ToggleButton8

.Left = 126
.Top = 108
.Height = 24
.Width = 60
.Caption = ""
.Alignment = fmAlignmentLeft
.BackStyle = fmBackStyleTransparent
.Enabled = True
.SpecialEffect = fmButtonEffectFlat
.TextAlign = fmTextAlignCenter
.WordWrap = False

End With
With Label8

.Left = 186
.Top = 36
.Height = 24
.Width = 60
.Caption = "Close"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H404000
.TextAlign = fmTextAlignCenter

End With
With ToggleButton3

.Left = 186
.Top = 60
.Height = 24
.Width = 60
.Caption = ""
.Alignment = fmAlignmentLeft
.BackStyle = fmBackStyleTransparent
.Enabled = True
.SpecialEffect = fmButtonEffectFlat
.TextAlign = fmTextAlignCenter
.WordWrap = False

End With
With ToggleButton6

.Left = 186
.Top = 84
.Height = 24
.Width = 60
.Caption = ""
.Alignment = fmAlignmentLeft
.BackStyle = fmBackStyleTransparent
.Enabled = True
.SpecialEffect = fmButtonEffectFlat
.TextAlign = fmTextAlignCenter
.WordWrap = False

End With
With ToggleButton9

.Left = 186
.Top = 108
.Height = 24
.Width = 60
.Caption = ""
.Alignment = fmAlignmentLeft
.BackStyle = fmBackStyleTransparent
.Enabled = True
.SpecialEffect = fmButtonEffectFlat
.TextAlign = fmTextAlignCenter
.WordWrap = False

End With

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 References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

Clipboard Functions

2011-11-10T00:01:00.001+02:00

'UserForm1

'A. Available References List

'B. Available Tools List

'1) İmage1, Label1, Label2
'2) ListBox1

Option Explicit
Private i As Integer
Private Type GUID

Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte

End Type
Private Veriler As GUID
Private Type uPicDesc

Size As Long
Type As Long
hPic As Long
hPal As Long

End Type
Private Resimler As uPicDesc
Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
Private Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long
Private Declare Function CopyImage Lib "user32" (ByVal handle As Long, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Private OC As Long
Private OCPI As Long
Private hAvail As Long
Private hPtr As Long
Private hPal As Long
Private hCopy As Long
Private lType As Long
Private IPic As IPicture
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] Clipboard Functions"
Call Ekran_Duzenle
Call Shape_Create

End Sub
Private Sub Listbox1_Click()

On Error Resume Next
ActiveSheet.Shapes(ListBox1).Copy
Me.Picture = Get_Picture

End Sub
Function Get_Picture(Optional lXlPicType As Long = xlPicture) As IPicture

On Error GoTo Hata
lType = IIf(lXlPicType = xlBitmap, 2, 14)
hAvail = IsClipboardFormatAvailable(lType)
If hAvail <> 0 Then

OC = OpenClipboard(0&)
If OC > 0 Then

hPtr = GetClipboardData(lType)
If lType = 2 Then

hCopy = CopyImage(hPtr, 0, 0, 0, &H4)

Else

hCopy = CopyEnhMetaFile(hPtr, vbNullString)

End If
OC = CloseClipboard
If hPtr <> 0 Then Set Get_Picture = Create_Picture(hCopy, 0, lType)

End If

End If
Exit Function
Hata:
MsgBox VBA.Err.Description, vbCritical, "[PBİD®]"

End Function
Private Function Create_Picture(ByVal hPic As Long, ByVal hPal As Long, ByVal lType) As IPicture

On Error GoTo Hata
With Veriler

.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB

End With
With Resimler

.Size = Len(Resimler)
.Type = IIf(lType = 2, 1, 4)
.hPic = hPic
.hPal = IIf(lType = 2, hPal, 0)

End With
OCPI = OleCreatePictureIndirect(Resimler, Veriler, True, IPic)
Set Create_Picture = IPic
Exit Function
Hata:
MsgBox VBA.Err.Description, vbCritical, "[PBİD®]"

End Function
Private Sub Ekran_Duzenle()

On Error Resume Next
With Me

.BackColor = vbWhite
.Height = 356
.Width = 408
.Picture = Nothing
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
.SpecialEffect = fmSpecialEffectFlat
With Image1

End With
With Label1

.Left = 36
.Top = 6
.Height = 12
.Width = 270
.Caption = "Mustafa ULUSARAÇ"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue

End With
With Label2

.Left = 36
.Top = 18
.Height = 12
.Width = 270
.Caption = "01ulusarac@superonline.com"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue

End With
With ListBox1

.Left = 312
.Top = 6
.Height = 24
.Width = 86
.ColumnCount = 1
.ColumnWidths = "74"
.SpecialEffect = fmSpecialEffectEtched

End With

End Sub
Private Sub Shape_Create()

On Error Resume Next
ActiveSheet.DrawingObjects.Select
Selection.Delete
Range("A1").Select: ActiveSheet.Shapes.AddShape(msoShapeRectangularCallout, 15#, 5.25, 64.5, 31.5).Select
Range("C1").Select: ActiveSheet.Shapes.AddShape(msoShapeFlowchartMultidocument, 97.5, 3#, 91.5, 41.25).Select
Range("E1").Select: ActiveSheet.Shapes.AddShape(msoShapeNoSymbol, 197.25, 3#, 42#, 43.5).Select
Range("A6").Select: ActiveSheet.Shapes.AddShape(msoShapeSun, 5.25, 50.25, 66.75, 73.5).Select
Range("C6").Select: ActiveSheet.Shapes.AddShape(msoShapeDownRibbon, 95.25, 62.25, 142.5, 60#).Select
Range("A12").Select: ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0.75, 140.25, 84.75, 12.75).Select
With Selection.ShapeRange

With .Line

.Weight = 0.75
.DashStyle = msoLineSolid
.Style = msoLineSingle
.Transparency = 0#
.Visible = msoTrue
.ForeColor.SchemeColor = 64
.BackColor.RGB = RGB(255, 255, 255)

End With
With .Fill

.Transparency = 0#
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.BackColor.SchemeColor = 40
.Patterned msoPattern50Percent

End With

End With
Range("C14").Select: ActiveSheet.Shapes.AddShape(msoShapeRectangle, 96.75, 167.25, 95.25, 10.5).Select
With Selection.ShapeRange

With .Line

.Weight = 0.75
.DashStyle = msoLineSolid
.Style = msoLineSingle
.Transparency = 0#
.Visible = msoTrue
.ForeColor.SchemeColor = 64
.BackColor.RGB = RGB(255, 255, 255)

End With
With .Fill

.Transparency = 0#
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.BackColor.SchemeColor = 40
.Patterned msoPattern50Percent

End With

End With
ActiveSheet.Shapes.AddConnector(msoConnectorElbow, 85.5, 147#, 60.75, 20).Select
Range("A16").Select: ActiveSheet.Shapes.AddShape(msoShapeStripedRightArrow, 6#, 192.75, 235.5, 26.25).Select
With Selection.ShapeRange

With .Line

.Weight = 0.75
.DashStyle = msoLineSolid
.Style = msoLineSingle
.Transparency = 0#
.Visible = msoTrue
.ForeColor.SchemeColor = 64
.BackColor.RGB = RGB(255, 255, 255)

End With
With .Fill

.Transparency = 0#
.Visible = msoTrue
.ForeColor.SchemeColor = 65
.OneColorGradient msoGradientVertical, 1, 0.23

End With

End With
For i = 1 To ActiveSheet.Shapes.Count

ListBox1.AddItem ActiveSheet.Shapes(i).Name

Next i

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 References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

Add Classic Excel Menu

2011-11-01T00:01:00.002+02:00

'Module1

'Available References List

Option Explicit
Private CB As CommandBar
Private CBC As CommandBarControl
Private CEM As CommandBar 'Classic Excel Menu
Sub Auto_Open()

Call Make_CEM

End Sub
Sub Auto_Close()

Call Delete_CEM

End Sub
Private Sub Make_CEM()

On Error Resume Next
Application.CommandBars("Classic Menus").Delete
On Error GoTo 0
Set CEM = Application.CommandBars.Add("Classic Menus", , True)
With CommandBars("Built-in Menus")

.Controls("&File").Copy CEM
.Controls("&Edit").Copy CEM
.Controls("&View").Copy CEM
.Controls("&Insert").Copy CEM
.Controls("F&ormat").Copy CEM
.Controls("&Tools").Copy CEM
.Controls("&Data").Copy CEM
.Controls("&Window").Copy CEM
.Controls("&Help").Copy CEM

End With
Application.CommandBars("Classic Menus").Visible = True

End Sub
Private Sub Delete_CEM()

On Error Resume Next
Application.CommandBars("Classic Menus").Delete

End Sub
'Sub References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

SHGetPathFromIDList Function

2011-10-20T00:01:00.001+03:00

'UserForm1

'A References List

'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'5) Name: IWshRuntimeLibrary, Description: Windows Script Host Object Model, FullPath: C:\Windows\SysWOW64\wshom.ocx
'6) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\Windows\SysWOW64\FM20.DLL

'B Additional Tolls List

'1) Image1, Label1, label2
'2) CommandButton1
'3) Label3, ListBox1, CommandButton2, CommandButton3
'3) Label4, ListBox2, CommandButton4, CommandButton5

Option Explicit
Private No As Integer
Private Dosya As String
Private FSFKaynak As String
Private Const FSFHedef As String = "C:\Yedek"
Private Kontrol
Private FSObject As FileSystemObject
Private FSFolder As Folder
Private FSPath As Boolean
Private FSFile As File
Private Type BROWSEINFO

hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long

End Type
Private BI As BROWSEINFO
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private BrowsReturn As Long
Private BrowsList As Long
Private BrowsPath As String
Private BrowsPos As Integer
Private CB As office.CommandBar
Private CBB As office.CommandBarButton
Private CBC As office.CommandBarControl
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] SHGetPathFromIDList Function"
Call Ekran_Duzenle

End Sub
Private Sub CommandButton1_Click()

On Error Resume Next
ListBox1.Clear
ListBox2.Clear
FSFKaynak = Get_Browse_Folder("Yedeklenecek klasör seçimi")
If Not FSFKaynak = vbNullString Then Call Yedekle

End Sub
Private Sub CommandButton2_Click()

On Error GoTo Hata
If MsgBox("KAYNAK klasördeki dosyları silmek istediğinizden emin misiniz?", vbOKCancel, "[PBİD®] Lütfen Dikkat!") = vbOK Then

Set FSObject = New FileSystemObject
Set FSFolder = FSObject.GetFolder(FSFKaynak)
If Not FSFolder.Files.Count > 0 Then GoTo Hata
For Each FSFile In FSFolder.Files

FSFile.Attributes = Archive
FSFile.Delete False

Next FSFile
ListBox1.Clear
For Each FSFile In FSFolder.Files

ListBox1.AddItem FSFile.Name

Next FSFile

End If
Set FSFile = Nothing
Set FSObject = Nothing
Set FSFolder = Nothing
Exit Sub
Hata:
Set FSFile = Nothing
Set FSObject = Nothing
Set FSFolder = Nothing
MsgBox "İşlem Tamamlanamadı!", vbInformation, "[PBİD®] Lütfen Dikkat!"

End Sub
Private Sub CommandButton3_Click()

On Error GoTo Hata
If ListBox1.ListIndex > -1 Then

Dosya = ListBox1.Value
If MsgBox("KAYNAK klasördeki seçili dosyayı silmek istediğinizden emin misiniz?", vbOKCancel, "[PBİD®] Lütfen Dikkat!") = vbOK Then

Set FSObject = New FileSystemObject
Set FSFolder = FSObject.GetFolder(FSFKaynak)
If Not FSFolder.Files.Count > 0 Then GoTo Hata
For Each FSFile In FSFolder.Files

If FSFile.Name = Dosya Then

FSFile.Attributes = Archive
FSFile.Delete False
'VBA.Kill FSFile

End If

Next FSFile
ListBox1.Clear
For Each FSFile In FSFolder.Files

ListBox1.AddItem FSFile.Name

Next FSFile

End If

Else

MsgBox "Silmek için; lütfen bir dosya seçiniz!", vbInformation, "[PBİD®] Lütfen Dikkat!"

End Sub
Private Sub CommandButton4_Click()

On Error GoTo Hata
If MsgBox("HEDEF klasördeki dosyları silmek istediğinizden emin misiniz?", vbOKCancel, "[PBİD®] Lütfen Dikkat!") = vbOK Then

Set FSObject = New FileSystemObject
Set FSFolder = FSObject.GetFolder(FSFHedef)
If Not FSFolder.Files.Count > 0 Then GoTo Hata
For Each FSFile In FSFolder.Files

FSFile.Attributes = Archive
FSFile.Delete False

Next FSFile
ListBox2.Clear
For Each FSFile In FSFolder.Files

ListBox2.AddItem FSFile.Name

Next FSFile

End Sub
Private Sub CommandButton5_Click()

On Error GoTo Hata
If ListBox2.ListIndex > -1 Then

Dosya = ListBox2.Value
If MsgBox("HEDEF klasördeki seçili dosyayı silmek istediğinizden emin misiniz?", vbOKCancel, "[PBİD®] Lütfen Dikkat!") = vbOK Then

Set FSObject = New FileSystemObject
Set FSFolder = FSObject.GetFolder(FSFHedef)
If Not FSFolder.Files.Count > 0 Then GoTo Hata
For Each FSFile In FSFolder.Files

If FSFile.Name = Dosya Then

FSFile.Attributes = Archive
FSFile.Delete False

End If

Next FSFile
ListBox2.Clear
For Each FSFile In FSFolder.Files

ListBox2.AddItem FSFile.Name

Next FSFile

End If

Else

MsgBox "Silmek için; lütfen bir dosya seçiniz!", vbInformation, "[PBİD®] Lütfen Dikkat!"

End Sub
Public Function Get_Browse_Folder(BrowseDialog As String) As String

On Error Resume Next
With BI

.hOwner = &H0
.lpszTitle = BrowseDialog
.ulFlags = &H1

End With
BrowsList = SHBrowseForFolder(BI)
BrowsPath = Space$(512)
BrowsReturn = SHGetPathFromIDList(ByVal BrowsList, ByVal BrowsPath)
If BrowsReturn Then

BrowsPos = InStr(BrowsPath, Chr(0))
Get_Browse_Folder = Left$(BrowsPath, BrowsPos - 1)

Else

Get_Browse_Folder = vbNullString

End If

End Function
Sub Yedekle()

On Error Resume Next
Kontrol = VBA.GetAttr(FSFHedef) And 0
If VBA.Err = 0 Then

FSPath = True

Else

FSPath = False
If FSPath = False Then VBA.MkDir FSFHedef

End If
Label3.Caption = " Source Folder; " & FSFKaynak
Label4.Caption = " Destination Folder; " & FSFHedef
On Error GoTo Hata2
Set FSObject = New FileSystemObject
Set FSFolder = FSObject.GetFolder(FSFKaynak)
No = 0
If Not FSFolder.Files.Count > 0 Then GoTo Hata1
For Each FSFile In FSFolder.Files

FSFile.Copy FSFHedef & "\" & VBA.Format(VBA.Now, "dd.mmm.yyyy ddd hh.mm.ss") & " " & FSFile.Name
ListBox1.AddItem FSFile.Name
ListBox2.AddItem VBA.Format(VBA.Now, "dd.mmm.yyyy ddd hh.mm.ss") & " " & FSFile.Name
No = No + 1

Next FSFile
Set FSFolder = FSObject.GetFolder(ThisWorkbook.Path)
Set FSFile = FSFolder.Files(ThisWorkbook.Name)
FSFile.Copy FSFHedef & "\" & VBA.Format(VBA.Now, "dd.mmm.yyyy ddd hh.mm.ss") & "_" & FSFile.Name
Set FSFile = Nothing
Set FSObject = Nothing
Set FSFolder = Nothing
Exit Sub
Hata1:
Set FSFile = Nothing
Set FSObject = Nothing
Set FSFolder = Nothing
Exit Sub
Hata2:
MsgBox "Hata No ve Tanımı: " & Err.Number & Err.Description & vbCrLf & vbCrLf & "Lütfen hedef klasördeki tüm dosyaların şu anda açık olmadığını ve kaynak dizinin kullanıma açık olduğunu kontrol ediniz.", vbInformation, "[PBİD®]"
VBA.Err.Clear
Set FSFile = Nothing
Set FSObject = Nothing
Set FSFolder = Nothing

End Sub
Private Sub Ekran_Duzenle()

On Error Resume Next
With Me

.BackColor = vbWhite
.Height = 316
.Width = 468
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
With Image1

End With
With Label1

End With
With Label2

End With
With CommandButton1

.Caption = "Dosya Kopyalamak İçin Kaynak Klasör Seçimi"
.Left = 6
.Top = 36
.Height = 24
.Width = 450
.BackStyle = fmBackStyleTransparent
.Picture = Resim(URL3)
.PicturePosition = fmPicturePositionLeftCenter
.ForeColor = &H808000
.Enabled = True

End With
With Label3

.Left = 6
.Top = 66
.Height = 24
.Width = 222
.Caption = ""
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = False
.Font.Name = "Arial"
.ForeColor = &H808000

End With
With Label4

.Left = 234
.Top = 66
.Height = 24
.Width = 222
.Caption = ""
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = False
.Font.Name = "Arial"
.ForeColor = &H808000

End With
With ListBox1

.Left = 6
.Top = 90
.Height = 172.55
.Width = 222
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.ForeColor = vbBlue

End With
With CommandButton2

.Caption = "Tüm Orjinal Dosyaları Sil"
.Left = 6
.Top = 264
.Height = 24
.Width = 108
.BackStyle = fmBackStyleTransparent
Call Icon_Make(CommandButton2, 1668)
.PicturePosition = fmPicturePositionLeftCenter
.ForeColor = &H808000
.Enabled = False

End With
With CommandButton3

.Caption = "Seçili Orjinal Dosyayı Sil"
.Left = 120
.Top = 264
.Height = 24
.Width = 108
.BackStyle = fmBackStyleTransparent
Call Icon_Make(CommandButton3, 1019)
.PicturePosition = fmPicturePositionLeftCenter
.ForeColor = &H808000
.Enabled = True

End With
With ListBox2

.Left = 234
.Top = 90
.Height = 172.55
.Width = 222
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.ForeColor = vbBlue

End With
With CommandButton4

.Caption = "Tüm Kopya Dosyaları Sil"
.Left = 234
.Top = 264
.Height = 24
.Width = 108
.BackStyle = fmBackStyleTransparent
Call Icon_Make(CommandButton4, 1668)
.PicturePosition = fmPicturePositionLeftCenter
.ForeColor = &H808000
.Enabled = True

End With
With CommandButton5

.Caption = "Seçili Kopya Dosyayı Sil"
.Left = 348
.Top = 264
.Height = 24
.Width = 108
.BackStyle = fmBackStyleTransparent
Call Icon_Make(CommandButton5, 1019)
.PicturePosition = fmPicturePositionLeftCenter
.ForeColor = &H808000
.Enabled = True

End With

End Sub
Private Sub Icon_Make(ByVal Obj As Object, ByVal ID As Double)

On Error Resume Next
Set CB = Application.CommandBars.Add("", msoBarPopup, , True)
Set CBB = CB.Controls.Add(1, , , , True)
CBB.FaceId = ID
Obj.Picture = CBB.Picture

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 References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

Source Array

2011-10-10T00:01:00.000+03:00

'UserForm1

'A. Available References List

'B. Available Tools List

'1) İmage1, Label1, Label2
'2) TextBox1, TextBox2, TextBox3
'3) ListBox1, ListBox2

Option Explicit
Private Veriler As Variant
Private Bellek(1 To 118, 1 To 3)
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] Source Array"
Call Ekran_Duzenle
Call Veri_Duzenle

End Sub
Private Sub ListBox1_Click()

On Error Resume Next
TextBox1.Value = ListBox1.Value
ListBox2.Value = TextBox1.Value
TextBox2.Value = ListBox2.List(ListBox2.ListIndex, 1)
TextBox3.Value = ListBox2.List(ListBox2.ListIndex, 2)

End Sub
Private Sub TextBox1_Change()

On Error Resume Next
Veriler = Sheet1.Range("A1:A" & Sheet1.Range("A" & Cells.Rows.Count).End(xlUp).Row)
Veriler = Application.Transpose(Veriler)
Veriler = VBA.Filter(SourceArray:=Veriler, Match:=TextBox1.Value, Include:=True, Compare:=vbTextCompare)
With ListBox1

.Clear
.List = Veriler

End With

End Sub
Private Sub Ekran_Duzenle()

On Error Resume Next
With Me

.BackColor = vbWhite
.Height = 298
.Width = 270
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectFlat
With Image1

End With
With Label1

End With
With Label2

End With
With TextBox1

.Left = 6
.Top = 36
.Height = 18
.Width = 168
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleOpaque
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H808000
.TextAlign = fmTextAlignLeft

End With
With TextBox2

.Left = 174
.Top = 36
.Height = 18
.Width = 42
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleOpaque
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H808000
.TextAlign = fmTextAlignCenter

End With
With TextBox3

.Left = 216
.Top = 36
.Height = 18
.Width = 42
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleOpaque
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = &H808000
.TextAlign = fmTextAlignCenter

End With
With ListBox1

.Left = 6
.Top = 54
.Height = 84.2
.Width = 252
.ColumnCount = 3
.ColumnWidths = "168;42;42"
.SpecialEffect = fmSpecialEffectEtched

End With
With ListBox2

.Left = 6
.Top = 138
.Height = 132.2
.Width = 252
.ColumnCount = 3
.ColumnWidths = "168;42;42"
.SpecialEffect = fmSpecialEffectEtched

End With

End Sub
Private Sub Veri_Duzenle()

On Error Resume Next
Bellek(1, 1) = "Hidrojen": Bellek(1, 2) = "H": Bellek(1, 3) = 1
Bellek(2, 1) = "Helyum": Bellek(2, 2) = "He": Bellek(2, 3) = 2
Bellek(3, 1) = "Lityum": Bellek(3, 2) = "Li": Bellek(3, 3) = 3
Bellek(4, 1) = "Berilyum": Bellek(4, 2) = "Be": Bellek(4, 3) = 4
Bellek(5, 1) = "Bor": Bellek(5, 2) = "B": Bellek(5, 3) = 5
Bellek(6, 1) = "Karbon": Bellek(6, 2) = "C": Bellek(6, 3) = 6
Bellek(7, 1) = "Azot": Bellek(7, 2) = "N": Bellek(7, 3) = 7
Bellek(8, 1) = "Oksijen": Bellek(8, 2) = "O": Bellek(8, 3) = 8
Bellek(9, 1) = "Flor": Bellek(9, 2) = "F": Bellek(9, 3) = 9
Bellek(10, 1) = "Neon": Bellek(10, 2) = "Ne": Bellek(10, 3) = 10
Bellek(11, 1) = "Sodyum": Bellek(11, 2) = "Na": Bellek(11, 3) = 11
Bellek(12, 1) = "Magnezyum": Bellek(12, 2) = "Mg": Bellek(12, 3) = 12
Bellek(13, 1) = "Aluminyum": Bellek(13, 2) = "Al": Bellek(13, 3) = 13
Bellek(14, 1) = "Silisyum": Bellek(14, 2) = "Si": Bellek(14, 3) = 14
Bellek(15, 1) = "Fosfor": Bellek(15, 2) = "P": Bellek(15, 3) = 15
Bellek(16, 1) = "Kükürt": Bellek(16, 2) = "S": Bellek(16, 3) = 16
Bellek(17, 1) = "Klor": Bellek(17, 2) = "Cl": Bellek(17, 3) = 17
Bellek(18, 1) = "Argon": Bellek(18, 2) = "Ar": Bellek(18, 3) = 18
Bellek(19, 1) = "Potasyum": Bellek(19, 2) = "K": Bellek(19, 3) = 19
Bellek(20, 1) = "Kalsiyum": Bellek(20, 2) = "Ca": Bellek(20, 3) = 20
Bellek(21, 1) = "Skandiyum": Bellek(21, 2) = "Sc": Bellek(21, 3) = 21
Bellek(22, 1) = "Titanyum": Bellek(22, 2) = "Ti": Bellek(22, 3) = 22
Bellek(23, 1) = "Vanadyum": Bellek(23, 2) = "V": Bellek(23, 3) = 23
Bellek(24, 1) = "Krom": Bellek(24, 2) = "Cr": Bellek(24, 3) = 24
Bellek(25, 1) = "Mangan": Bellek(25, 2) = "Mn": Bellek(25, 3) = 25
Bellek(26, 1) = "Demir": Bellek(26, 2) = "Fe": Bellek(26, 3) = 26
Bellek(27, 1) = "Kobalt": Bellek(27, 2) = "Co": Bellek(27, 3) = 27
Bellek(28, 1) = "Nikel": Bellek(28, 2) = "Ni": Bellek(28, 3) = 28
Bellek(29, 1) = "Bakır": Bellek(29, 2) = "Cu": Bellek(29, 3) = 29
Bellek(30, 1) = "Çinko": Bellek(30, 2) = "Zn": Bellek(30, 3) = 30
Bellek(31, 1) = "Galyum": Bellek(31, 2) = "Ga": Bellek(31, 3) = 31
Bellek(32, 1) = "Germanyum": Bellek(32, 2) = "Ge": Bellek(32, 3) = 32
Bellek(33, 1) = "Arsenik": Bellek(33, 2) = "As": Bellek(33, 3) = 33
Bellek(34, 1) = "Selenyum": Bellek(34, 2) = "Se": Bellek(34, 3) = 34
Bellek(35, 1) = "Brom": Bellek(35, 2) = "Br": Bellek(35, 3) = 35
Bellek(36, 1) = "Kripton": Bellek(36, 2) = "Kr": Bellek(36, 3) = 36
Bellek(37, 1) = "Rubidyum": Bellek(37, 2) = "Rb": Bellek(37, 3) = 37
Bellek(38, 1) = "Strontiyum": Bellek(38, 2) = "Sr": Bellek(38, 3) = 38
Bellek(39, 1) = "İtriyum": Bellek(39, 2) = "Y": Bellek(39, 3) = 39
Bellek(40, 1) = "Zirkon": Bellek(40, 2) = "Zr": Bellek(40, 3) = 40
Bellek(41, 1) = "Niobyum": Bellek(41, 2) = "Nb": Bellek(41, 3) = 41
Bellek(42, 1) = "Molibden": Bellek(42, 2) = "Mo": Bellek(42, 3) = 42
Bellek(43, 1) = "Tekhnetyum": Bellek(43, 2) = "Tc": Bellek(43, 3) = 43
Bellek(44, 1) = "Rutenyum": Bellek(44, 2) = "Ru": Bellek(44, 3) = 44
Bellek(45, 1) = "Rodyum": Bellek(45, 2) = "Rh": Bellek(45, 3) = 45
Bellek(46, 1) = "Palladyum": Bellek(46, 2) = "Pd": Bellek(46, 3) = 46
Bellek(47, 1) = "Gümüş": Bellek(47, 2) = "Ag": Bellek(47, 3) = 47
Bellek(48, 1) = "Kadmiyum": Bellek(48, 2) = "Cd": Bellek(48, 3) = 48
Bellek(49, 1) = "İndiyum": Bellek(49, 2) = "In": Bellek(49, 3) = 49
Bellek(50, 1) = "Kalay": Bellek(50, 2) = "Sn": Bellek(50, 3) = 50
Bellek(51, 1) = "Antimon": Bellek(51, 2) = "Sb": Bellek(51, 3) = 51
Bellek(52, 1) = "Tellür": Bellek(52, 2) = "Te": Bellek(52, 3) = 52
Bellek(53, 1) = "Iyot": Bellek(53, 2) = "I": Bellek(53, 3) = 53
Bellek(54, 1) = "Ksenon": Bellek(54, 2) = "Xe": Bellek(54, 3) = 54
Bellek(55, 1) = "Sezyum": Bellek(55, 2) = "Cs": Bellek(55, 3) = 55
Bellek(56, 1) = "Baryum": Bellek(56, 2) = "Ba": Bellek(56, 3) = 56
Bellek(57, 1) = "Lantan": Bellek(57, 2) = "La": Bellek(57, 3) = 57
Bellek(58, 1) = "Seryum": Bellek(58, 2) = "Ce": Bellek(58, 3) = 58
Bellek(59, 1) = "Praseodim": Bellek(59, 2) = "Pr": Bellek(59, 3) = 59
Bellek(60, 1) = "Neodim": Bellek(60, 2) = "Nd": Bellek(60, 3) = 60
Bellek(61, 1) = "Prometyum": Bellek(61, 2) = "Pm": Bellek(61, 3) = 61
Bellek(62, 1) = "Samaryum": Bellek(62, 2) = "Sm": Bellek(62, 3) = 62
Bellek(63, 1) = "Evropyum": Bellek(63, 2) = "Eu": Bellek(63, 3) = 63
Bellek(64, 1) = "Gadolinyum": Bellek(64, 2) = "Gd": Bellek(64, 3) = 64
Bellek(65, 1) = "Terbiyum": Bellek(65, 2) = "Tb": Bellek(65, 3) = 65
Bellek(66, 1) = "Disprosiyum": Bellek(66, 2) = "Dy": Bellek(66, 3) = 66
Bellek(67, 1) = "Holmiyum": Bellek(67, 2) = "Ho": Bellek(67, 3) = 67
Bellek(68, 1) = "Erbiyum": Bellek(68, 2) = "Er": Bellek(68, 3) = 68
Bellek(69, 1) = "Tulyum": Bellek(69, 2) = "Tm": Bellek(69, 3) = 69
Bellek(70, 1) = "İtterbiyum": Bellek(70, 2) = "Yb": Bellek(70, 3) = 70
Bellek(71, 1) = "Lutetyum": Bellek(71, 2) = "Lu": Bellek(71, 3) = 71
Bellek(72, 1) = "Hafniyum": Bellek(72, 2) = "Hf": Bellek(72, 3) = 72
Bellek(73, 1) = "Tantal": Bellek(73, 2) = "Ta": Bellek(73, 3) = 73
Bellek(74, 1) = "Tungsten": Bellek(74, 2) = "W": Bellek(74, 3) = 74
Bellek(75, 1) = "Renyum": Bellek(75, 2) = "Re": Bellek(75, 3) = 75
Bellek(76, 1) = "Osmiyum": Bellek(76, 2) = "Os": Bellek(76, 3) = 76
Bellek(77, 1) = "İridyum": Bellek(77, 2) = "Ir": Bellek(77, 3) = 77
Bellek(78, 1) = "Platin": Bellek(78, 2) = "Pt": Bellek(78, 3) = 78
Bellek(79, 1) = "Altın": Bellek(79, 2) = "Au": Bellek(79, 3) = 79
Bellek(80, 1) = "Civa": Bellek(80, 2) = "Hg": Bellek(80, 3) = 80
Bellek(81, 1) = "Talyum": Bellek(81, 2) = "Tl": Bellek(81, 3) = 81
Bellek(82, 1) = "Kurşun": Bellek(82, 2) = "Pb": Bellek(82, 3) = 82
Bellek(83, 1) = "Bizmut": Bellek(83, 2) = "Bi": Bellek(83, 3) = 83
Bellek(84, 1) = "Polonyum": Bellek(84, 2) = "Po": Bellek(84, 3) = 84
Bellek(85, 1) = "Astatin": Bellek(85, 2) = "At": Bellek(85, 3) = 85
Bellek(86, 1) = "Radon": Bellek(86, 2) = "Rn": Bellek(86, 3) = 86
Bellek(87, 1) = "Fransiyum": Bellek(87, 2) = "Fr": Bellek(87, 3) = 87
Bellek(88, 1) = "Radyum": Bellek(88, 2) = "Ra": Bellek(88, 3) = 88
Bellek(89, 1) = "Aktinyum": Bellek(89, 2) = "Ac": Bellek(89, 3) = 89
Bellek(90, 1) = "Toryum": Bellek(90, 2) = "Th": Bellek(90, 3) = 90
Bellek(91, 1) = "Protaktinyum": Bellek(91, 2) = "Pa": Bellek(91, 3) = 91
Bellek(92, 1) = "Uranyum": Bellek(92, 2) = "U": Bellek(92, 3) = 92
Bellek(93, 1) = "Neptünyum": Bellek(93, 2) = "Np": Bellek(93, 3) = 93
Bellek(94, 1) = "Plutonyum": Bellek(94, 2) = "Pu": Bellek(94, 3) = 94
Bellek(95, 1) = "Amerikyum": Bellek(95, 2) = "Am": Bellek(95, 3) = 95
Bellek(96, 1) = "Kuriyum": Bellek(96, 2) = "Cm": Bellek(96, 3) = 96
Bellek(97, 1) = "Berkelyum": Bellek(97, 2) = "Bk": Bellek(97, 3) = 97
Bellek(98, 1) = "Kaliforniyum": Bellek(98, 2) = "Cf": Bellek(98, 3) = 98
Bellek(99, 1) = "Einsteinium": Bellek(99, 2) = "Es": Bellek(99, 3) = 99
Bellek(100, 1) = "Fermiyum": Bellek(100, 2) = "Fm": Bellek(100, 3) = 100
Bellek(101, 1) = "Mendelevyum": Bellek(101, 2) = "Md": Bellek(101, 3) = 101
Bellek(102, 1) = "Nobelyum": Bellek(102, 2) = "No": Bellek(102, 3) = 102
Bellek(103, 1) = "Lavrensiyum": Bellek(103, 2) = "Lr": Bellek(103, 3) = 103
Bellek(104, 1) = "Rutherfordiyum": Bellek(104, 2) = "Rf": Bellek(104, 3) = 104
Bellek(105, 1) = "Dubniyum": Bellek(105, 2) = "Db": Bellek(105, 3) = 105
Bellek(106, 1) = "Seaborgiyum": Bellek(106, 2) = "Sg": Bellek(106, 3) = 106
Bellek(107, 1) = "Bohriyum": Bellek(107, 2) = "Bh": Bellek(107, 3) = 107
Bellek(108, 1) = "Hassiyum": Bellek(108, 2) = "Hs": Bellek(108, 3) = 108
Bellek(109, 1) = "Meitneriyum": Bellek(109, 2) = "Mt": Bellek(109, 3) = 109
Bellek(110, 1) = "Darmstadtiyum": Bellek(110, 2) = "Ds": Bellek(110, 3) = 110
Bellek(111, 1) = "Ununnilyum": Bellek(111, 2) = "Uuu": Bellek(111, 3) = 111
Bellek(112, 1) = "Ununbiyum": Bellek(112, 2) = "Uub": Bellek(112, 3) = 112
Bellek(113, 1) = "Ununtriyum": Bellek(113, 2) = "Uut": Bellek(113, 3) = 113
Bellek(114, 1) = "Ununkuadyum": Bellek(114, 2) = "Uuq": Bellek(114, 3) = 114
Bellek(115, 1) = "Ununpentiyum": Bellek(115, 2) = "Uup": Bellek(115, 3) = 115
Bellek(116, 1) = "Ununheksiyum": Bellek(116, 2) = "Uuh": Bellek(116, 3) = 116
Bellek(117, 1) = "Ununseptiyum": Bellek(117, 2) = "Uus": Bellek(117, 3) = 117
Bellek(118, 1) = "Ununoktiyum": Bellek(118, 2) = "Uuo": Bellek(118, 3) = 118
ThisWorkbook.Sheets(1).Range("A1:C118") = Bellek
Veriler = Sheet1.Range("A1:C" & Sheet1.Range("A" & Cells.Rows.Count).End(xlUp).Row)
ListBox2.List = Veriler

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 References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub