'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
'6) Name: vsFlexLib, Description: :-) VideoSoft vsFlex3 Controls, FullPath: C:\Windows\SysWOW64\VSFLEX3.OCX
'7) Name: MSComctlLib, Description: Microsoft Windows Common Controls 6.0 (SP6), FullPath: C:\Windows\SysWOW64\MSCOMCTL.OCX
'B. Available Tools List'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
'6) Name: vsFlexLib, Description: :-) VideoSoft vsFlex3 Controls, FullPath: C:\Windows\SysWOW64\VSFLEX3.OCX
'7) Name: MSComctlLib, Description: Microsoft Windows Common Controls 6.0 (SP6), FullPath: C:\Windows\SysWOW64\MSCOMCTL.OCX
'1) İmage1, Label1, Label2
'2) vsFlexArray1
'3) ImageList1
Option Explicit'2) vsFlexArray1
'3) ImageList1
Private i As Single, ii As Single
Private Tarih As Date
Private Hafta As Double
Private Tarihler()
Private Veriler1()
Private Veriler2()
Private Renk As Long
Private Terim As String
Dim EkranTipi As New Class1
Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] vsFlexArray Explorer [4]."
Application.Visible = False
Call Tarih_Kur
Call Veri_Kur1
Call Veri_Kur2
Call Ekran_Duzenle
Call Create_vsFlexArray
Set EkranTipi.Ekran1 = Me
End SubMe.Caption = "[PBİD®] vsFlexArray Explorer [4]."
Application.Visible = False
Call Tarih_Kur
Call Veri_Kur1
Call Veri_Kur2
Call Ekran_Duzenle
Call Create_vsFlexArray
Set EkranTipi.Ekran1 = Me
Private Sub UserForm_Activate()
On Error Resume Next
Me.Move (Application.Width - Me.Width) / 2, (Application.Height - Me.Height) / 2
End SubMe.Move (Application.Width - Me.Width) / 2, (Application.Height - Me.Height) / 2
Private Sub UserForm_Resize()
On Error Resume Next
With vsFlexArray1
With vsFlexArray1
.Top = 36
.Left = 6
.Height = Me.InsideHeight - .Top - 6
.Width = Me.InsideWidth - .Left - 12
.Left = 6
.Height = Me.InsideHeight - .Top - 6
.Width = Me.InsideWidth - .Left - 12
End With
Me.Move (Application.Width - Me.Width) / 2, (Application.Height - Me.Height) / 2
End SubMe.Move (Application.Width - Me.Width) / 2, (Application.Height - Me.Height) / 2
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Close #1
Application.Visible = True
End SubClose #1
Application.Visible = True
Private Sub Create_vsFlexArray()
On Error Resume Next
With vsFlexArray1
With vsFlexArray1
For i = .FixedRows To 100 + .FixedRows - 1
.TextMatrix(i, 1) = Veriler1(i - .FixedRows + 1, 1)
.TextMatrix(i, 2) = Veriler1(i - .FixedRows + 1, 2)
.TextMatrix(i, 3) = Veriler1(i - .FixedRows + 1, 3)
.TextMatrix(i, 4) = Veriler1(i - .FixedRows + 1, 4)
.TextMatrix(i, 5) = Veriler1(i - .FixedRows + 1, 5)
For ii = 1 To Hafta
.TextMatrix(i, 2) = Veriler1(i - .FixedRows + 1, 2)
.TextMatrix(i, 3) = Veriler1(i - .FixedRows + 1, 3)
.TextMatrix(i, 4) = Veriler1(i - .FixedRows + 1, 4)
.TextMatrix(i, 5) = Veriler1(i - .FixedRows + 1, 5)
For ii = 1 To Hafta
.TextMatrix(i, 5 + ii) = Veriler2(i - .FixedRows + 1, ii)
Next ii
Next i
.Subtotal flexSTClear
For i = 5 To (5 + Hafta)
.Subtotal flexSTClear
For i = 5 To (5 + Hafta)
.Subtotal flexSTSum, 0, i, , &H4040&, vbWhite, True, "Genel Toplam", True
.Subtotal flexSTSum, 1, i, , &H8080&, vbWhite, True, "Ana Grup", True
.Subtotal flexSTSum, 2, i, , &HC0C0&, vbWhite, True, "Alt Grup", True
.Subtotal flexSTSum, 3, i, , &HD0D0&, vbWhite, True, "Detay Grup", True
.Subtotal flexSTSum, 1, i, , &H8080&, vbWhite, True, "Ana Grup", True
.Subtotal flexSTSum, 2, i, , &HC0C0&, vbWhite, True, "Alt Grup", True
.Subtotal flexSTSum, 3, i, , &HD0D0&, vbWhite, True, "Detay Grup", True
Next i
For i = 0 To 2
For i = 0 To 2
.MergeRow(i) = True
.MergeCells = flexMergeRestrictColumns
.MergeCells = flexMergeRestrictColumns
Next i
For i = 0 To 5
For i = 0 To 5
.MergeCol(i) = True
.MergeCells = flexMergeRestrictColumns
.MergeCells = flexMergeRestrictColumns
Next i
.OutlineBar = flexOutlineBarComplete
.Outline 6
Call Renklendir
VBA.Kill ThisWorkbook.Path & "\vsBackUpFile.txt"
Close #1
Open ThisWorkbook.Path & "\vsBackUpFile.txt" For Random As #1
.SaveGrid ThisWorkbook.Path & "\vsBackUpFile.txt", flexFileAll
Close #1
.OutlineBar = flexOutlineBarComplete
.Outline 6
Call Renklendir
VBA.Kill ThisWorkbook.Path & "\vsBackUpFile.txt"
Close #1
Open ThisWorkbook.Path & "\vsBackUpFile.txt" For Random As #1
.SaveGrid ThisWorkbook.Path & "\vsBackUpFile.txt", flexFileAll
Close #1
End With
End SubPrivate Sub Renklendir()
On Error Resume Next
With vsFlexArray1
With vsFlexArray1
For i = .FixedRows To (.Rows - 1)
.Col = 6: .Row = i: Renk = .CellBackColor
If Renk = 16448 Then
If Renk = 16448 Then
.Col = 1: .Row = i + 1: Terim = .Text
.Col = 1: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i: .Text = "Genel Toplam"
.Col = 2: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i: .Text = "Genel Toplam"
.Col = 2: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
End If
If Renk = 32896 Then
If Renk = 32896 Then
.Col = 1: .Row = i + 1: Terim = .Text
.Col = 1: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i: .Text = Terim
.Col = 2: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i + 1: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i: .Text = Terim
.Col = 2: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i + 1: .CellBackColor = Renk: .CellForeColor = vbWhite
End If
If Renk = 49344 Then
If Renk = 49344 Then
.Col = 2: .Row = i + 1: Terim = .Text
.Col = 2: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 2: .Row = i: .Text = Terim
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i + 1: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 2: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 2: .Row = i: .Text = Terim
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i + 1: .CellBackColor = Renk: .CellForeColor = vbWhite
End If
If Renk = 53456 Then
If Renk = 53456 Then
.Col = 3: .Row = i + 1: Terim = .Text
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 3: .Row = i: .Text = Terim
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 3: .Row = i: .Text = Terim
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
End If
Next i
End With
End SubPrivate Sub Ekran_Duzenle()
On Error Resume Next
With Me
With Me
.BackColor = vbWhite
.Height = 240
.Width = 360
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectFlat
With Image1
.Height = 240
.Width = 360
.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
.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
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
.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
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
.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 vsFlexArray1
With vsFlexArray1
.Top = 36
.Left = 6
.Width = Me.InsideWidth - .Left - 12
.Height = Me.InsideHeight - .Top - 6
.Editable = True
.Enabled = True
.ExtendLastCol = False
.ForeColor = vbBlue
.BackColorFixed = &H8000000F
.BackColorBkg = &H8000000F
.BackColor = vbWhite
.Gridlines = flexGridFlat
.MultiTotals = True
.SubtotalPosition = flexSTAbove
.Redraw = True
.Appearance = flexFlat
.AllowBigSelection = True
.AllowSelection = True
.SelectionMode = flexSelectionFree
.BorderStyle = 1
.FixedCols = 1 + 5
.FixedRows = 3
.Cols = 1 + 5 + Hafta + 1
.Rows = 3 + 100
.ColWidth(1) = 60 * 20
.ColWidth(2) = 60 * 20
.ColWidth(3) = 60 * 20
.ColWidth(4) = 60 * 20
For i = 1 To (1 + Hafta)
.Left = 6
.Width = Me.InsideWidth - .Left - 12
.Height = Me.InsideHeight - .Top - 6
.Editable = True
.Enabled = True
.ExtendLastCol = False
.ForeColor = vbBlue
.BackColorFixed = &H8000000F
.BackColorBkg = &H8000000F
.BackColor = vbWhite
.Gridlines = flexGridFlat
.MultiTotals = True
.SubtotalPosition = flexSTAbove
.Redraw = True
.Appearance = flexFlat
.AllowBigSelection = True
.AllowSelection = True
.SelectionMode = flexSelectionFree
.BorderStyle = 1
.FixedCols = 1 + 5
.FixedRows = 3
.Cols = 1 + 5 + Hafta + 1
.Rows = 3 + 100
.ColWidth(1) = 60 * 20
.ColWidth(2) = 60 * 20
.ColWidth(3) = 60 * 20
.ColWidth(4) = 60 * 20
For i = 1 To (1 + Hafta)
.ColWidth(4 + i) = 72 * 20
.ColFormat(4 + i) = "#,##0.00"
.ColFormat(4 + i) = "#,##0.00"
Next i
.ColWidth(.Cols - 1) = 1
.TextMatrix(0, 1) = "Ana Grup": .TextMatrix(1, 1) = "Ana Grup": .TextMatrix(2, 1) = "Ana Grup"
.TextMatrix(0, 2) = "Alt Grup": .TextMatrix(1, 2) = "Alt Grup": .TextMatrix(2, 2) = "Alt Grup"
.TextMatrix(0, 3) = "Detay Grup": .TextMatrix(1, 3) = "Detay Grup": .TextMatrix(2, 3) = "Detay Grup"
.TextMatrix(0, 4) = "Veriler": .TextMatrix(1, 4) = "Veriler": .TextMatrix(2, 4) = "Veriler"
.TextMatrix(0, 5) = "Toplam": .TextMatrix(1, 5) = "Toplam": .TextMatrix(2, 5) = "Toplam"
For i = 1 To (5 + Hafta)
.ColWidth(.Cols - 1) = 1
.TextMatrix(0, 1) = "Ana Grup": .TextMatrix(1, 1) = "Ana Grup": .TextMatrix(2, 1) = "Ana Grup"
.TextMatrix(0, 2) = "Alt Grup": .TextMatrix(1, 2) = "Alt Grup": .TextMatrix(2, 2) = "Alt Grup"
.TextMatrix(0, 3) = "Detay Grup": .TextMatrix(1, 3) = "Detay Grup": .TextMatrix(2, 3) = "Detay Grup"
.TextMatrix(0, 4) = "Veriler": .TextMatrix(1, 4) = "Veriler": .TextMatrix(2, 4) = "Veriler"
.TextMatrix(0, 5) = "Toplam": .TextMatrix(1, 5) = "Toplam": .TextMatrix(2, 5) = "Toplam"
For i = 1 To (5 + Hafta)
.FixedAlignment(i) = flexAlignCenterCenter
Next i
For i = 1 To Hafta
For i = 1 To Hafta
.TextMatrix(0, 5 + i) = Tarihler(1, i)
.TextMatrix(1, 5 + i) = Tarihler(2, i)
.TextMatrix(2, 5 + i) = Tarihler(3, i)
.TextMatrix(1, 5 + i) = Tarihler(2, i)
.TextMatrix(2, 5 + i) = Tarihler(3, i)
Next i
End With
With ImageList1
With ImageList1
.ListImages.Add 1, "Simge1", Image1.Picture:
.ImageWidth = 16
'.ListImages.Add 1, LoadPicture("C:\Users\MU\Pictures\Baret_Icon.ico")
.ImageWidth = 16
'.ListImages.Add 1, LoadPicture("C:\Users\MU\Pictures\Baret_Icon.ico")
End With
End With
End SubSub Tarih_Kur()
On Error Resume Next
Hafta = VBA.DateDiff("w", "01/01/2010", "31/12/2010", vbSunday, vbUseSystem)
ReDim Bellek(1 To 3, 1 To Hafta)
For i = 1 To Hafta
Hafta = VBA.DateDiff("w", "01/01/2010", "31/12/2010", vbSunday, vbUseSystem)
ReDim Bellek(1 To 3, 1 To Hafta)
For i = 1 To Hafta
Tarih = VBA.DateValue("01/01/2010") + (i - 1) * 7
Bellek(1, i) = " " & VBA.Year(Tarih) & " "
Bellek(2, i) = VBA.Format(Tarih, "mmmm")
Bellek(3, i) = "W: " & VBA.DatePart("ww", Tarih, vbSunday, vbUseSystem)
Bellek(1, i) = " " & VBA.Year(Tarih) & " "
Bellek(2, i) = VBA.Format(Tarih, "mmmm")
Bellek(3, i) = "W: " & VBA.DatePart("ww", Tarih, vbSunday, vbUseSystem)
Next i
Tarihler() = Bellek()
End SubTarihler() = Bellek()
Sub Veri_Kur1()
On Error Resume Next
ReDim Bellek(1 To 100, 1 To 5)
Bellek(1, 1) = "Ana1": Bellek(1, 2) = "Alt1": Bellek(1, 3) = "Detay1": Bellek(1, 4) = "Veri1": Bellek(1, 5) = 5440139.77
Bellek(2, 1) = "Ana1": Bellek(2, 2) = "Alt1": Bellek(2, 3) = "Detay1": Bellek(2, 4) = "Veri2": Bellek(2, 5) = 157039.17 '4327595.23
Bellek(3, 1) = "Ana1": Bellek(3, 2) = "Alt1": Bellek(3, 3) = "Detay1": Bellek(3, 4) = "Veri3": Bellek(3, 5) = 157039.17
Bellek(4, 1) = "Ana1": Bellek(4, 2) = "Alt1": Bellek(4, 3) = "Detay2": Bellek(4, 4) = "Veri4": Bellek(4, 5) = 7536880.97
Bellek(5, 1) = "Ana1": Bellek(5, 2) = "Alt1": Bellek(5, 3) = "Detay2": Bellek(5, 4) = "Veri5": Bellek(5, 5) = 7148163.32
Bellek(6, 1) = "Ana1": Bellek(6, 2) = "Alt1": Bellek(6, 3) = "Detay2": Bellek(6, 4) = "Veri6": Bellek(6, 5) = 6962850.09
Bellek(7, 1) = "Ana1": Bellek(7, 2) = "Alt2": Bellek(7, 3) = "Detay1": Bellek(7, 4) = "Veri7": Bellek(7, 5) = 2431478.5
Bellek(8, 1) = "Ana1": Bellek(8, 2) = "Alt2": Bellek(8, 3) = "Detay1": Bellek(8, 4) = "Veri8": Bellek(8, 5) = 2752954.96
Bellek(9, 1) = "Ana1": Bellek(9, 2) = "Alt2": Bellek(9, 3) = "Detay1": Bellek(9, 4) = "Veri9": Bellek(9, 5) = 4302611.35
Bellek(10, 1) = "Ana1": Bellek(10, 2) = "Alt2": Bellek(10, 3) = "Detay1": Bellek(10, 4) = "Veri10": Bellek(10, 5) = 615222.45
Bellek(11, 1) = "Ana1": Bellek(11, 2) = "Alt2": Bellek(11, 3) = "Detay1": Bellek(11, 4) = "Veri11": Bellek(11, 5) = 7549083.23
Bellek(12, 1) = "Ana1": Bellek(12, 2) = "Alt2": Bellek(12, 3) = "Detay2": Bellek(12, 4) = "Veri12": Bellek(12, 5) = 2815034.39
Bellek(13, 1) = "Ana1": Bellek(13, 2) = "Alt2": Bellek(13, 3) = "Detay2": Bellek(13, 4) = "Veri13": Bellek(13, 5) = 8783845.9
Bellek(14, 1) = "Ana1": Bellek(14, 2) = "Alt2": Bellek(14, 3) = "Detay2": Bellek(14, 4) = "Veri14": Bellek(14, 5) = 8759746.55
Bellek(15, 1) = "Ana1": Bellek(15, 2) = "Alt3": Bellek(15, 3) = "Detay1": Bellek(15, 4) = "Veri15": Bellek(15, 5) = 4412162.3
Bellek(16, 1) = "Ana1": Bellek(16, 2) = "Alt3": Bellek(16, 3) = "Detay1": Bellek(16, 4) = "Veri16": Bellek(16, 5) = 3902914.52
Bellek(17, 1) = "Ana1": Bellek(17, 2) = "Alt3": Bellek(17, 3) = "Detay1": Bellek(17, 4) = "Veri17": Bellek(17, 5) = 4824280.74
Bellek(18, 1) = "Ana1": Bellek(18, 2) = "Alt3": Bellek(18, 3) = "Detay2": Bellek(18, 4) = "Veri18": Bellek(18, 5) = 5265731.81
Bellek(19, 1) = "Ana1": Bellek(19, 2) = "Alt3": Bellek(19, 3) = "Detay2": Bellek(19, 4) = "Veri19": Bellek(19, 5) = 8246021.27
Bellek(20, 1) = "Ana1": Bellek(20, 2) = "Alt3": Bellek(20, 3) = "Detay2": Bellek(20, 4) = "Veri20": Bellek(20, 5) = 1563022.14
Bellek(21, 1) = "Ana1": Bellek(21, 2) = "Alt3": Bellek(21, 3) = "Detay2": Bellek(21, 4) = "Veri21": Bellek(21, 5) = 3227176.67
Bellek(22, 1) = "Ana1": Bellek(22, 2) = "Alt3": Bellek(22, 3) = "Detay2": Bellek(22, 4) = "Veri22": Bellek(22, 5) = 787088.87
Bellek(23, 1) = "Ana2": Bellek(23, 2) = "Alt1": Bellek(23, 3) = "Detay1": Bellek(23, 4) = "Veri23": Bellek(23, 5) = 6465871.33
Bellek(24, 1) = "Ana2": Bellek(24, 2) = "Alt1": Bellek(24, 3) = "Detay1": Bellek(24, 4) = "Veri24": Bellek(24, 5) = 3820106.98
Bellek(25, 1) = "Ana2": Bellek(25, 2) = "Alt1": Bellek(25, 3) = "Detay2": Bellek(25, 4) = "Veri25": Bellek(25, 5) = 8115713.6
Bellek(26, 1) = "Ana2": Bellek(26, 2) = "Alt1": Bellek(26, 3) = "Detay2": Bellek(26, 4) = "Veri26": Bellek(26, 5) = 9229545.59
Bellek(27, 1) = "Ana2": Bellek(27, 2) = "Alt1": Bellek(27, 3) = "Detay2": Bellek(27, 4) = "Veri27": Bellek(27, 5) = 5298211.57
Bellek(28, 1) = "Ana2": Bellek(28, 2) = "Alt2": Bellek(28, 3) = "Detay1": Bellek(28, 4) = "Veri28": Bellek(28, 5) = 7607235.91
Bellek(29, 1) = "Ana2": Bellek(29, 2) = "Alt2": Bellek(29, 3) = "Detay1": Bellek(29, 4) = "Veri29": Bellek(29, 5) = 4013743.4
Bellek(30, 1) = "Ana2": Bellek(30, 2) = "Alt2": Bellek(30, 3) = "Detay1": Bellek(30, 4) = "Veri30": Bellek(30, 5) = 1698734.76
Bellek(31, 1) = "Ana2": Bellek(31, 2) = "Alt2": Bellek(31, 3) = "Detay1": Bellek(31, 4) = "Veri31": Bellek(31, 5) = 7987735.27
Bellek(32, 1) = "Ana2": Bellek(32, 2) = "Alt2": Bellek(32, 3) = "Detay2": Bellek(32, 4) = "Veri32": Bellek(32, 5) = 8408870.7
Bellek(33, 1) = "Ana2": Bellek(33, 2) = "Alt2": Bellek(33, 3) = "Detay2": Bellek(33, 4) = "Veri33": Bellek(33, 5) = 555934.91
Bellek(34, 1) = "Ana2": Bellek(34, 2) = "Alt3": Bellek(34, 3) = "Detay1": Bellek(34, 4) = "Veri34": Bellek(34, 5) = 4744591.71
Bellek(35, 1) = "Ana2": Bellek(35, 2) = "Alt3": Bellek(35, 3) = "Detay2": Bellek(35, 4) = "Veri35": Bellek(35, 5) = 1642341.61
Bellek(36, 1) = "Ana2": Bellek(36, 2) = "Alt3": Bellek(36, 3) = "Detay2": Bellek(36, 4) = "Veri36": Bellek(36, 5) = 2076272.96
Bellek(37, 1) = "Ana2": Bellek(37, 2) = "Alt4": Bellek(37, 3) = "Detay1": Bellek(37, 4) = "Veri37": Bellek(37, 5) = 3262062.07
Bellek(38, 1) = "Ana2": Bellek(38, 2) = "Alt4": Bellek(38, 3) = "Detay1": Bellek(38, 4) = "Veri38": Bellek(38, 5) = 5409135.82
Bellek(39, 1) = "Ana2": Bellek(39, 2) = "Alt4": Bellek(39, 3) = "Detay2": Bellek(39, 4) = "Veri39": Bellek(39, 5) = 6191875.93
Bellek(40, 1) = "Ana2": Bellek(40, 2) = "Alt4": Bellek(40, 3) = "Detay2": Bellek(40, 4) = "Veri40": Bellek(40, 5) = 7043957.71
Bellek(41, 1) = "Ana2": Bellek(41, 2) = "Alt4": Bellek(41, 3) = "Detay2": Bellek(41, 4) = "Veri41": Bellek(41, 5) = 6478211.88
Bellek(42, 1) = "Ana2": Bellek(42, 2) = "Alt4": Bellek(42, 3) = "Detay3": Bellek(42, 4) = "Veri42": Bellek(42, 5) = 7474157.81
Bellek(43, 1) = "Ana2": Bellek(43, 2) = "Alt4": Bellek(43, 3) = "Detay3": Bellek(43, 4) = "Veri43": Bellek(43, 5) = 1304204.46
Bellek(44, 1) = "Ana2": Bellek(44, 2) = "Alt4": Bellek(44, 3) = "Detay3": Bellek(44, 4) = "Veri44": Bellek(44, 5) = 3705153.47
Bellek(45, 1) = "Ana2": Bellek(45, 2) = "Alt4": Bellek(45, 3) = "Detay3": Bellek(45, 4) = "Veri45": Bellek(45, 5) = 3825693.13
Bellek(46, 1) = "Ana3": Bellek(46, 2) = "Alt1": Bellek(46, 3) = "Detay1": Bellek(46, 4) = "Veri46": Bellek(46, 5) = 9653644.56
Bellek(47, 1) = "Ana3": Bellek(47, 2) = "Alt1": Bellek(47, 3) = "Detay1": Bellek(47, 4) = "Veri47": Bellek(47, 5) = 3261439.8
Bellek(48, 1) = "Ana3": Bellek(48, 2) = "Alt1": Bellek(48, 3) = "Detay1": Bellek(48, 4) = "Veri48": Bellek(48, 5) = 1790893.08
Bellek(49, 1) = "Ana3": Bellek(49, 2) = "Alt1": Bellek(49, 3) = "Detay2": Bellek(49, 4) = "Veri49": Bellek(49, 5) = 2761232.85
Bellek(50, 1) = "Ana3": Bellek(50, 2) = "Alt1": Bellek(50, 3) = "Detay2": Bellek(50, 4) = "Veri50": Bellek(50, 5) = 5924582.48
Bellek(51, 1) = "Ana3": Bellek(51, 2) = "Alt1": Bellek(51, 3) = "Detay2": Bellek(51, 4) = "Veri51": Bellek(51, 5) = 4680056.57
Bellek(52, 1) = "Ana3": Bellek(52, 2) = "Alt2": Bellek(52, 3) = "Detay1": Bellek(52, 4) = "Veri52": Bellek(52, 5) = 8262255.19
Bellek(53, 1) = "Ana3": Bellek(53, 2) = "Alt2": Bellek(53, 3) = "Detay1": Bellek(53, 4) = "Veri53": Bellek(53, 5) = 8348171.71
Bellek(54, 1) = "Ana3": Bellek(54, 2) = "Alt2": Bellek(54, 3) = "Detay1": Bellek(54, 4) = "Veri54": Bellek(54, 5) = 4411146.64
Bellek(55, 1) = "Ana3": Bellek(55, 2) = "Alt2": Bellek(55, 3) = "Detay1": Bellek(55, 4) = "Veri55": Bellek(55, 5) = 7988843.92
Bellek(56, 1) = "Ana3": Bellek(56, 2) = "Alt2": Bellek(56, 3) = "Detay2": Bellek(56, 4) = "Veri56": Bellek(56, 5) = 3303008.08
Bellek(57, 1) = "Ana3": Bellek(57, 2) = "Alt2": Bellek(57, 3) = "Detay2": Bellek(57, 4) = "Veri57": Bellek(57, 5) = 2268660.07
Bellek(58, 1) = "Ana3": Bellek(58, 2) = "Alt3": Bellek(58, 3) = "Detay1": Bellek(58, 4) = "Veri58": Bellek(58, 5) = 2103686.33
Bellek(59, 1) = "Ana3": Bellek(59, 2) = "Alt3": Bellek(59, 3) = "Detay1": Bellek(59, 4) = "Veri59": Bellek(59, 5) = 2451739.31
Bellek(60, 1) = "Ana3": Bellek(60, 2) = "Alt3": Bellek(60, 3) = "Detay1": Bellek(60, 4) = "Veri60": Bellek(60, 5) = 8605892.66
Bellek(61, 1) = "Ana3": Bellek(61, 2) = "Alt3": Bellek(61, 3) = "Detay2": Bellek(61, 4) = "Veri61": Bellek(61, 5) = 8077797.89
Bellek(62, 1) = "Ana3": Bellek(62, 2) = "Alt3": Bellek(62, 3) = "Detay2": Bellek(62, 4) = "Veri62": Bellek(62, 5) = 5833590.03
Bellek(63, 1) = "Ana3": Bellek(63, 2) = "Alt3": Bellek(63, 3) = "Detay2": Bellek(63, 4) = "Veri63": Bellek(63, 5) = 1146233.08
Bellek(64, 1) = "Ana3": Bellek(64, 2) = "Alt4": Bellek(64, 3) = "Detay1": Bellek(64, 4) = "Veri64": Bellek(64, 5) = 979738.24
Bellek(65, 1) = "Ana3": Bellek(65, 2) = "Alt4": Bellek(65, 3) = "Detay1": Bellek(65, 4) = "Veri65": Bellek(65, 5) = 1877751.35
Bellek(66, 1) = "Ana3": Bellek(66, 2) = "Alt4": Bellek(66, 3) = "Detay2": Bellek(66, 4) = "Veri66": Bellek(66, 5) = 3398060.8
Bellek(67, 1) = "Ana3": Bellek(67, 2) = "Alt4": Bellek(67, 3) = "Detay2": Bellek(67, 4) = "Veri67": Bellek(67, 5) = 4166483.88
Bellek(68, 1) = "Ana3": Bellek(68, 2) = "Alt5": Bellek(68, 3) = "Detay1": Bellek(68, 4) = "Veri68": Bellek(68, 5) = 4629800.32
Bellek(69, 1) = "Ana3": Bellek(69, 2) = "Alt5": Bellek(69, 3) = "Detay1": Bellek(69, 4) = "Veri69": Bellek(69, 5) = 7005143.17
Bellek(70, 1) = "Ana3": Bellek(70, 2) = "Alt5": Bellek(70, 3) = "Detay1": Bellek(70, 4) = "Veri70": Bellek(70, 5) = 1282498.84
Bellek(71, 1) = "Ana3": Bellek(71, 2) = "Alt5": Bellek(71, 3) = "Detay2": Bellek(71, 4) = "Veri71": Bellek(71, 5) = 5338730.81
Bellek(72, 1) = "Ana3": Bellek(72, 2) = "Alt5": Bellek(72, 3) = "Detay2": Bellek(72, 4) = "Veri72": Bellek(72, 5) = 2895624.64
Bellek(73, 1) = "Ana3": Bellek(73, 2) = "Alt5": Bellek(73, 3) = "Detay2": Bellek(73, 4) = "Veri73": Bellek(73, 5) = 4334571.36
Bellek(74, 1) = "Ana4": Bellek(74, 2) = "Alt1": Bellek(74, 3) = "Detay1": Bellek(74, 4) = "Veri74": Bellek(74, 5) = 4106316.57
Bellek(75, 1) = "Ana4": Bellek(75, 2) = "Alt1": Bellek(75, 3) = "Detay1": Bellek(75, 4) = "Veri75": Bellek(75, 5) = 9030988.22
Bellek(76, 1) = "Ana4": Bellek(76, 2) = "Alt1": Bellek(76, 3) = "Detay2": Bellek(76, 4) = "Veri76": Bellek(76, 5) = 7130279.54
Bellek(77, 1) = "Ana4": Bellek(77, 2) = "Alt1": Bellek(77, 3) = "Detay2": Bellek(77, 4) = "Veri77": Bellek(77, 5) = 7570295.33
Bellek(78, 1) = "Ana4": Bellek(78, 2) = "Alt1": Bellek(78, 3) = "Detay2": Bellek(78, 4) = "Veri78": Bellek(78, 5) = 4804747.1
Bellek(79, 1) = "Ana4": Bellek(79, 2) = "Alt2": Bellek(79, 3) = "Detay1": Bellek(79, 4) = "Veri79": Bellek(79, 5) = 9193770.89
Bellek(80, 1) = "Ana4": Bellek(80, 2) = "Alt2": Bellek(80, 3) = "Detay1": Bellek(80, 4) = "Veri80": Bellek(80, 5) = 1195440.29
Bellek(81, 1) = "Ana4": Bellek(81, 2) = "Alt2": Bellek(81, 3) = "Detay1": Bellek(81, 4) = "Veri81": Bellek(81, 5) = 2613682.75
Bellek(82, 1) = "Ana4": Bellek(82, 2) = "Alt2": Bellek(82, 3) = "Detay2": Bellek(82, 4) = "Veri82": Bellek(82, 5) = 8042671.68
Bellek(83, 1) = "Ana4": Bellek(83, 2) = "Alt2": Bellek(83, 3) = "Detay2": Bellek(83, 4) = "Veri83": Bellek(83, 5) = 4140326.98
Bellek(84, 1) = "Ana4": Bellek(84, 2) = "Alt2": Bellek(84, 3) = "Detay2": Bellek(84, 4) = "Veri84": Bellek(84, 5) = 6789133.55
Bellek(85, 1) = "Ana4": Bellek(85, 2) = "Alt2": Bellek(85, 3) = "Detay2": Bellek(85, 4) = "Veri85": Bellek(85, 5) = 7599790.1
Bellek(86, 1) = "Ana4": Bellek(86, 2) = "Alt3": Bellek(86, 3) = "Detay1": Bellek(86, 4) = "Veri86": Bellek(86, 5) = 9619531.63
Bellek(87, 1) = "Ana4": Bellek(87, 2) = "Alt3": Bellek(87, 3) = "Detay1": Bellek(87, 4) = "Veri87": Bellek(87, 5) = 1786935.33
Bellek(88, 1) = "Ana5": Bellek(88, 2) = "Alt3": Bellek(88, 3) = "Detay1": Bellek(88, 4) = "Veri88": Bellek(88, 5) = 3640186.79
Bellek(89, 1) = "Ana5": Bellek(89, 2) = "Alt3": Bellek(89, 3) = "Detay1": Bellek(89, 4) = "Veri89": Bellek(89, 5) = 6736466.88
Bellek(90, 1) = "Ana5": Bellek(90, 2) = "Alt3": Bellek(90, 3) = "Detay2": Bellek(90, 4) = "Veri90": Bellek(90, 5) = 9003338.81
Bellek(91, 1) = "Ana5": Bellek(91, 2) = "Alt3": Bellek(91, 3) = "Detay2": Bellek(91, 4) = "Veri91": Bellek(91, 5) = 7708327.77
Bellek(92, 1) = "Ana5": Bellek(92, 2) = "Alt3": Bellek(92, 3) = "Detay2": Bellek(92, 4) = "Veri92": Bellek(92, 5) = 1492457.39
Bellek(93, 1) = "Ana5": Bellek(93, 2) = "Alt3": Bellek(93, 3) = "Detay2": Bellek(93, 4) = "Veri93": Bellek(93, 5) = 2729468.35
Bellek(94, 1) = "Ana5": Bellek(94, 2) = "Alt3": Bellek(94, 3) = "Detay2": Bellek(94, 4) = "Veri94": Bellek(94, 5) = 806913.38
Bellek(95, 1) = "Ana6": Bellek(95, 2) = "Alt1": Bellek(95, 3) = "Detay1": Bellek(95, 4) = "Veri95": Bellek(95, 5) = 7577292.92
Bellek(96, 1) = "Ana6": Bellek(96, 2) = "Alt1": Bellek(96, 3) = "Detay2": Bellek(96, 4) = "Veri96": Bellek(96, 5) = 6329758.17
Bellek(97, 1) = "Ana6": Bellek(97, 2) = "Alt1": Bellek(97, 3) = "Detay3": Bellek(97, 4) = "Veri97": Bellek(97, 5) = 3478326.8
Bellek(98, 1) = "Ana6": Bellek(98, 2) = "Alt2": Bellek(98, 3) = "Detay1": Bellek(98, 4) = "Veri98": Bellek(98, 5) = 3904714.58
Bellek(99, 1) = "Ana6": Bellek(99, 2) = "Alt2": Bellek(99, 3) = "Detay2": Bellek(99, 4) = "Veri99": Bellek(99, 5) = 9729666.71
Bellek(100, 1) = "Ana6": Bellek(100, 2) = "Alt2": Bellek(100, 3) = "Detay3": Bellek(100, 4) = "Veri100": Bellek(100, 5) = 4175992.01
Veriler1() = Bellek()
End SubReDim Bellek(1 To 100, 1 To 5)
Bellek(1, 1) = "Ana1": Bellek(1, 2) = "Alt1": Bellek(1, 3) = "Detay1": Bellek(1, 4) = "Veri1": Bellek(1, 5) = 5440139.77
Bellek(2, 1) = "Ana1": Bellek(2, 2) = "Alt1": Bellek(2, 3) = "Detay1": Bellek(2, 4) = "Veri2": Bellek(2, 5) = 157039.17 '4327595.23
Bellek(3, 1) = "Ana1": Bellek(3, 2) = "Alt1": Bellek(3, 3) = "Detay1": Bellek(3, 4) = "Veri3": Bellek(3, 5) = 157039.17
Bellek(4, 1) = "Ana1": Bellek(4, 2) = "Alt1": Bellek(4, 3) = "Detay2": Bellek(4, 4) = "Veri4": Bellek(4, 5) = 7536880.97
Bellek(5, 1) = "Ana1": Bellek(5, 2) = "Alt1": Bellek(5, 3) = "Detay2": Bellek(5, 4) = "Veri5": Bellek(5, 5) = 7148163.32
Bellek(6, 1) = "Ana1": Bellek(6, 2) = "Alt1": Bellek(6, 3) = "Detay2": Bellek(6, 4) = "Veri6": Bellek(6, 5) = 6962850.09
Bellek(7, 1) = "Ana1": Bellek(7, 2) = "Alt2": Bellek(7, 3) = "Detay1": Bellek(7, 4) = "Veri7": Bellek(7, 5) = 2431478.5
Bellek(8, 1) = "Ana1": Bellek(8, 2) = "Alt2": Bellek(8, 3) = "Detay1": Bellek(8, 4) = "Veri8": Bellek(8, 5) = 2752954.96
Bellek(9, 1) = "Ana1": Bellek(9, 2) = "Alt2": Bellek(9, 3) = "Detay1": Bellek(9, 4) = "Veri9": Bellek(9, 5) = 4302611.35
Bellek(10, 1) = "Ana1": Bellek(10, 2) = "Alt2": Bellek(10, 3) = "Detay1": Bellek(10, 4) = "Veri10": Bellek(10, 5) = 615222.45
Bellek(11, 1) = "Ana1": Bellek(11, 2) = "Alt2": Bellek(11, 3) = "Detay1": Bellek(11, 4) = "Veri11": Bellek(11, 5) = 7549083.23
Bellek(12, 1) = "Ana1": Bellek(12, 2) = "Alt2": Bellek(12, 3) = "Detay2": Bellek(12, 4) = "Veri12": Bellek(12, 5) = 2815034.39
Bellek(13, 1) = "Ana1": Bellek(13, 2) = "Alt2": Bellek(13, 3) = "Detay2": Bellek(13, 4) = "Veri13": Bellek(13, 5) = 8783845.9
Bellek(14, 1) = "Ana1": Bellek(14, 2) = "Alt2": Bellek(14, 3) = "Detay2": Bellek(14, 4) = "Veri14": Bellek(14, 5) = 8759746.55
Bellek(15, 1) = "Ana1": Bellek(15, 2) = "Alt3": Bellek(15, 3) = "Detay1": Bellek(15, 4) = "Veri15": Bellek(15, 5) = 4412162.3
Bellek(16, 1) = "Ana1": Bellek(16, 2) = "Alt3": Bellek(16, 3) = "Detay1": Bellek(16, 4) = "Veri16": Bellek(16, 5) = 3902914.52
Bellek(17, 1) = "Ana1": Bellek(17, 2) = "Alt3": Bellek(17, 3) = "Detay1": Bellek(17, 4) = "Veri17": Bellek(17, 5) = 4824280.74
Bellek(18, 1) = "Ana1": Bellek(18, 2) = "Alt3": Bellek(18, 3) = "Detay2": Bellek(18, 4) = "Veri18": Bellek(18, 5) = 5265731.81
Bellek(19, 1) = "Ana1": Bellek(19, 2) = "Alt3": Bellek(19, 3) = "Detay2": Bellek(19, 4) = "Veri19": Bellek(19, 5) = 8246021.27
Bellek(20, 1) = "Ana1": Bellek(20, 2) = "Alt3": Bellek(20, 3) = "Detay2": Bellek(20, 4) = "Veri20": Bellek(20, 5) = 1563022.14
Bellek(21, 1) = "Ana1": Bellek(21, 2) = "Alt3": Bellek(21, 3) = "Detay2": Bellek(21, 4) = "Veri21": Bellek(21, 5) = 3227176.67
Bellek(22, 1) = "Ana1": Bellek(22, 2) = "Alt3": Bellek(22, 3) = "Detay2": Bellek(22, 4) = "Veri22": Bellek(22, 5) = 787088.87
Bellek(23, 1) = "Ana2": Bellek(23, 2) = "Alt1": Bellek(23, 3) = "Detay1": Bellek(23, 4) = "Veri23": Bellek(23, 5) = 6465871.33
Bellek(24, 1) = "Ana2": Bellek(24, 2) = "Alt1": Bellek(24, 3) = "Detay1": Bellek(24, 4) = "Veri24": Bellek(24, 5) = 3820106.98
Bellek(25, 1) = "Ana2": Bellek(25, 2) = "Alt1": Bellek(25, 3) = "Detay2": Bellek(25, 4) = "Veri25": Bellek(25, 5) = 8115713.6
Bellek(26, 1) = "Ana2": Bellek(26, 2) = "Alt1": Bellek(26, 3) = "Detay2": Bellek(26, 4) = "Veri26": Bellek(26, 5) = 9229545.59
Bellek(27, 1) = "Ana2": Bellek(27, 2) = "Alt1": Bellek(27, 3) = "Detay2": Bellek(27, 4) = "Veri27": Bellek(27, 5) = 5298211.57
Bellek(28, 1) = "Ana2": Bellek(28, 2) = "Alt2": Bellek(28, 3) = "Detay1": Bellek(28, 4) = "Veri28": Bellek(28, 5) = 7607235.91
Bellek(29, 1) = "Ana2": Bellek(29, 2) = "Alt2": Bellek(29, 3) = "Detay1": Bellek(29, 4) = "Veri29": Bellek(29, 5) = 4013743.4
Bellek(30, 1) = "Ana2": Bellek(30, 2) = "Alt2": Bellek(30, 3) = "Detay1": Bellek(30, 4) = "Veri30": Bellek(30, 5) = 1698734.76
Bellek(31, 1) = "Ana2": Bellek(31, 2) = "Alt2": Bellek(31, 3) = "Detay1": Bellek(31, 4) = "Veri31": Bellek(31, 5) = 7987735.27
Bellek(32, 1) = "Ana2": Bellek(32, 2) = "Alt2": Bellek(32, 3) = "Detay2": Bellek(32, 4) = "Veri32": Bellek(32, 5) = 8408870.7
Bellek(33, 1) = "Ana2": Bellek(33, 2) = "Alt2": Bellek(33, 3) = "Detay2": Bellek(33, 4) = "Veri33": Bellek(33, 5) = 555934.91
Bellek(34, 1) = "Ana2": Bellek(34, 2) = "Alt3": Bellek(34, 3) = "Detay1": Bellek(34, 4) = "Veri34": Bellek(34, 5) = 4744591.71
Bellek(35, 1) = "Ana2": Bellek(35, 2) = "Alt3": Bellek(35, 3) = "Detay2": Bellek(35, 4) = "Veri35": Bellek(35, 5) = 1642341.61
Bellek(36, 1) = "Ana2": Bellek(36, 2) = "Alt3": Bellek(36, 3) = "Detay2": Bellek(36, 4) = "Veri36": Bellek(36, 5) = 2076272.96
Bellek(37, 1) = "Ana2": Bellek(37, 2) = "Alt4": Bellek(37, 3) = "Detay1": Bellek(37, 4) = "Veri37": Bellek(37, 5) = 3262062.07
Bellek(38, 1) = "Ana2": Bellek(38, 2) = "Alt4": Bellek(38, 3) = "Detay1": Bellek(38, 4) = "Veri38": Bellek(38, 5) = 5409135.82
Bellek(39, 1) = "Ana2": Bellek(39, 2) = "Alt4": Bellek(39, 3) = "Detay2": Bellek(39, 4) = "Veri39": Bellek(39, 5) = 6191875.93
Bellek(40, 1) = "Ana2": Bellek(40, 2) = "Alt4": Bellek(40, 3) = "Detay2": Bellek(40, 4) = "Veri40": Bellek(40, 5) = 7043957.71
Bellek(41, 1) = "Ana2": Bellek(41, 2) = "Alt4": Bellek(41, 3) = "Detay2": Bellek(41, 4) = "Veri41": Bellek(41, 5) = 6478211.88
Bellek(42, 1) = "Ana2": Bellek(42, 2) = "Alt4": Bellek(42, 3) = "Detay3": Bellek(42, 4) = "Veri42": Bellek(42, 5) = 7474157.81
Bellek(43, 1) = "Ana2": Bellek(43, 2) = "Alt4": Bellek(43, 3) = "Detay3": Bellek(43, 4) = "Veri43": Bellek(43, 5) = 1304204.46
Bellek(44, 1) = "Ana2": Bellek(44, 2) = "Alt4": Bellek(44, 3) = "Detay3": Bellek(44, 4) = "Veri44": Bellek(44, 5) = 3705153.47
Bellek(45, 1) = "Ana2": Bellek(45, 2) = "Alt4": Bellek(45, 3) = "Detay3": Bellek(45, 4) = "Veri45": Bellek(45, 5) = 3825693.13
Bellek(46, 1) = "Ana3": Bellek(46, 2) = "Alt1": Bellek(46, 3) = "Detay1": Bellek(46, 4) = "Veri46": Bellek(46, 5) = 9653644.56
Bellek(47, 1) = "Ana3": Bellek(47, 2) = "Alt1": Bellek(47, 3) = "Detay1": Bellek(47, 4) = "Veri47": Bellek(47, 5) = 3261439.8
Bellek(48, 1) = "Ana3": Bellek(48, 2) = "Alt1": Bellek(48, 3) = "Detay1": Bellek(48, 4) = "Veri48": Bellek(48, 5) = 1790893.08
Bellek(49, 1) = "Ana3": Bellek(49, 2) = "Alt1": Bellek(49, 3) = "Detay2": Bellek(49, 4) = "Veri49": Bellek(49, 5) = 2761232.85
Bellek(50, 1) = "Ana3": Bellek(50, 2) = "Alt1": Bellek(50, 3) = "Detay2": Bellek(50, 4) = "Veri50": Bellek(50, 5) = 5924582.48
Bellek(51, 1) = "Ana3": Bellek(51, 2) = "Alt1": Bellek(51, 3) = "Detay2": Bellek(51, 4) = "Veri51": Bellek(51, 5) = 4680056.57
Bellek(52, 1) = "Ana3": Bellek(52, 2) = "Alt2": Bellek(52, 3) = "Detay1": Bellek(52, 4) = "Veri52": Bellek(52, 5) = 8262255.19
Bellek(53, 1) = "Ana3": Bellek(53, 2) = "Alt2": Bellek(53, 3) = "Detay1": Bellek(53, 4) = "Veri53": Bellek(53, 5) = 8348171.71
Bellek(54, 1) = "Ana3": Bellek(54, 2) = "Alt2": Bellek(54, 3) = "Detay1": Bellek(54, 4) = "Veri54": Bellek(54, 5) = 4411146.64
Bellek(55, 1) = "Ana3": Bellek(55, 2) = "Alt2": Bellek(55, 3) = "Detay1": Bellek(55, 4) = "Veri55": Bellek(55, 5) = 7988843.92
Bellek(56, 1) = "Ana3": Bellek(56, 2) = "Alt2": Bellek(56, 3) = "Detay2": Bellek(56, 4) = "Veri56": Bellek(56, 5) = 3303008.08
Bellek(57, 1) = "Ana3": Bellek(57, 2) = "Alt2": Bellek(57, 3) = "Detay2": Bellek(57, 4) = "Veri57": Bellek(57, 5) = 2268660.07
Bellek(58, 1) = "Ana3": Bellek(58, 2) = "Alt3": Bellek(58, 3) = "Detay1": Bellek(58, 4) = "Veri58": Bellek(58, 5) = 2103686.33
Bellek(59, 1) = "Ana3": Bellek(59, 2) = "Alt3": Bellek(59, 3) = "Detay1": Bellek(59, 4) = "Veri59": Bellek(59, 5) = 2451739.31
Bellek(60, 1) = "Ana3": Bellek(60, 2) = "Alt3": Bellek(60, 3) = "Detay1": Bellek(60, 4) = "Veri60": Bellek(60, 5) = 8605892.66
Bellek(61, 1) = "Ana3": Bellek(61, 2) = "Alt3": Bellek(61, 3) = "Detay2": Bellek(61, 4) = "Veri61": Bellek(61, 5) = 8077797.89
Bellek(62, 1) = "Ana3": Bellek(62, 2) = "Alt3": Bellek(62, 3) = "Detay2": Bellek(62, 4) = "Veri62": Bellek(62, 5) = 5833590.03
Bellek(63, 1) = "Ana3": Bellek(63, 2) = "Alt3": Bellek(63, 3) = "Detay2": Bellek(63, 4) = "Veri63": Bellek(63, 5) = 1146233.08
Bellek(64, 1) = "Ana3": Bellek(64, 2) = "Alt4": Bellek(64, 3) = "Detay1": Bellek(64, 4) = "Veri64": Bellek(64, 5) = 979738.24
Bellek(65, 1) = "Ana3": Bellek(65, 2) = "Alt4": Bellek(65, 3) = "Detay1": Bellek(65, 4) = "Veri65": Bellek(65, 5) = 1877751.35
Bellek(66, 1) = "Ana3": Bellek(66, 2) = "Alt4": Bellek(66, 3) = "Detay2": Bellek(66, 4) = "Veri66": Bellek(66, 5) = 3398060.8
Bellek(67, 1) = "Ana3": Bellek(67, 2) = "Alt4": Bellek(67, 3) = "Detay2": Bellek(67, 4) = "Veri67": Bellek(67, 5) = 4166483.88
Bellek(68, 1) = "Ana3": Bellek(68, 2) = "Alt5": Bellek(68, 3) = "Detay1": Bellek(68, 4) = "Veri68": Bellek(68, 5) = 4629800.32
Bellek(69, 1) = "Ana3": Bellek(69, 2) = "Alt5": Bellek(69, 3) = "Detay1": Bellek(69, 4) = "Veri69": Bellek(69, 5) = 7005143.17
Bellek(70, 1) = "Ana3": Bellek(70, 2) = "Alt5": Bellek(70, 3) = "Detay1": Bellek(70, 4) = "Veri70": Bellek(70, 5) = 1282498.84
Bellek(71, 1) = "Ana3": Bellek(71, 2) = "Alt5": Bellek(71, 3) = "Detay2": Bellek(71, 4) = "Veri71": Bellek(71, 5) = 5338730.81
Bellek(72, 1) = "Ana3": Bellek(72, 2) = "Alt5": Bellek(72, 3) = "Detay2": Bellek(72, 4) = "Veri72": Bellek(72, 5) = 2895624.64
Bellek(73, 1) = "Ana3": Bellek(73, 2) = "Alt5": Bellek(73, 3) = "Detay2": Bellek(73, 4) = "Veri73": Bellek(73, 5) = 4334571.36
Bellek(74, 1) = "Ana4": Bellek(74, 2) = "Alt1": Bellek(74, 3) = "Detay1": Bellek(74, 4) = "Veri74": Bellek(74, 5) = 4106316.57
Bellek(75, 1) = "Ana4": Bellek(75, 2) = "Alt1": Bellek(75, 3) = "Detay1": Bellek(75, 4) = "Veri75": Bellek(75, 5) = 9030988.22
Bellek(76, 1) = "Ana4": Bellek(76, 2) = "Alt1": Bellek(76, 3) = "Detay2": Bellek(76, 4) = "Veri76": Bellek(76, 5) = 7130279.54
Bellek(77, 1) = "Ana4": Bellek(77, 2) = "Alt1": Bellek(77, 3) = "Detay2": Bellek(77, 4) = "Veri77": Bellek(77, 5) = 7570295.33
Bellek(78, 1) = "Ana4": Bellek(78, 2) = "Alt1": Bellek(78, 3) = "Detay2": Bellek(78, 4) = "Veri78": Bellek(78, 5) = 4804747.1
Bellek(79, 1) = "Ana4": Bellek(79, 2) = "Alt2": Bellek(79, 3) = "Detay1": Bellek(79, 4) = "Veri79": Bellek(79, 5) = 9193770.89
Bellek(80, 1) = "Ana4": Bellek(80, 2) = "Alt2": Bellek(80, 3) = "Detay1": Bellek(80, 4) = "Veri80": Bellek(80, 5) = 1195440.29
Bellek(81, 1) = "Ana4": Bellek(81, 2) = "Alt2": Bellek(81, 3) = "Detay1": Bellek(81, 4) = "Veri81": Bellek(81, 5) = 2613682.75
Bellek(82, 1) = "Ana4": Bellek(82, 2) = "Alt2": Bellek(82, 3) = "Detay2": Bellek(82, 4) = "Veri82": Bellek(82, 5) = 8042671.68
Bellek(83, 1) = "Ana4": Bellek(83, 2) = "Alt2": Bellek(83, 3) = "Detay2": Bellek(83, 4) = "Veri83": Bellek(83, 5) = 4140326.98
Bellek(84, 1) = "Ana4": Bellek(84, 2) = "Alt2": Bellek(84, 3) = "Detay2": Bellek(84, 4) = "Veri84": Bellek(84, 5) = 6789133.55
Bellek(85, 1) = "Ana4": Bellek(85, 2) = "Alt2": Bellek(85, 3) = "Detay2": Bellek(85, 4) = "Veri85": Bellek(85, 5) = 7599790.1
Bellek(86, 1) = "Ana4": Bellek(86, 2) = "Alt3": Bellek(86, 3) = "Detay1": Bellek(86, 4) = "Veri86": Bellek(86, 5) = 9619531.63
Bellek(87, 1) = "Ana4": Bellek(87, 2) = "Alt3": Bellek(87, 3) = "Detay1": Bellek(87, 4) = "Veri87": Bellek(87, 5) = 1786935.33
Bellek(88, 1) = "Ana5": Bellek(88, 2) = "Alt3": Bellek(88, 3) = "Detay1": Bellek(88, 4) = "Veri88": Bellek(88, 5) = 3640186.79
Bellek(89, 1) = "Ana5": Bellek(89, 2) = "Alt3": Bellek(89, 3) = "Detay1": Bellek(89, 4) = "Veri89": Bellek(89, 5) = 6736466.88
Bellek(90, 1) = "Ana5": Bellek(90, 2) = "Alt3": Bellek(90, 3) = "Detay2": Bellek(90, 4) = "Veri90": Bellek(90, 5) = 9003338.81
Bellek(91, 1) = "Ana5": Bellek(91, 2) = "Alt3": Bellek(91, 3) = "Detay2": Bellek(91, 4) = "Veri91": Bellek(91, 5) = 7708327.77
Bellek(92, 1) = "Ana5": Bellek(92, 2) = "Alt3": Bellek(92, 3) = "Detay2": Bellek(92, 4) = "Veri92": Bellek(92, 5) = 1492457.39
Bellek(93, 1) = "Ana5": Bellek(93, 2) = "Alt3": Bellek(93, 3) = "Detay2": Bellek(93, 4) = "Veri93": Bellek(93, 5) = 2729468.35
Bellek(94, 1) = "Ana5": Bellek(94, 2) = "Alt3": Bellek(94, 3) = "Detay2": Bellek(94, 4) = "Veri94": Bellek(94, 5) = 806913.38
Bellek(95, 1) = "Ana6": Bellek(95, 2) = "Alt1": Bellek(95, 3) = "Detay1": Bellek(95, 4) = "Veri95": Bellek(95, 5) = 7577292.92
Bellek(96, 1) = "Ana6": Bellek(96, 2) = "Alt1": Bellek(96, 3) = "Detay2": Bellek(96, 4) = "Veri96": Bellek(96, 5) = 6329758.17
Bellek(97, 1) = "Ana6": Bellek(97, 2) = "Alt1": Bellek(97, 3) = "Detay3": Bellek(97, 4) = "Veri97": Bellek(97, 5) = 3478326.8
Bellek(98, 1) = "Ana6": Bellek(98, 2) = "Alt2": Bellek(98, 3) = "Detay1": Bellek(98, 4) = "Veri98": Bellek(98, 5) = 3904714.58
Bellek(99, 1) = "Ana6": Bellek(99, 2) = "Alt2": Bellek(99, 3) = "Detay2": Bellek(99, 4) = "Veri99": Bellek(99, 5) = 9729666.71
Bellek(100, 1) = "Ana6": Bellek(100, 2) = "Alt2": Bellek(100, 3) = "Detay3": Bellek(100, 4) = "Veri100": Bellek(100, 5) = 4175992.01
Veriler1() = Bellek()
Sub Veri_Kur2()
On Error Resume Next
ReDim Bellek(1 To 100, 1 To Hafta)
For i = 1 To 100
ReDim Bellek(1 To 100, 1 To Hafta)
For i = 1 To 100
For ii = 1 To Hafta
Bellek(i, ii) = VBA.Format(Veriler1(i, 5) / Hafta, "#.##0,00")
Next ii
Next i
Veriler2() = Bellek()
End SubVeriler2() = Bellek()
'Module1
Option Explicit
Public Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Public Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Public IPic(15) As Byte
Public Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}" 'It may take a few seconds, please wait.
Public Const URL1 As String = "http://2.bp.blogspot.com/-G3KDFVP7V0Q/TcUhtYtMifI/AAAAAAAACw0/Ta6mFpFJtZ8/s1600/39.bmp" 'Microsoft Office Excel® Kod Kılavuzu [PBİD BackroundPicture]
Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg" 'Microsoft Office Excel® Kod Kılavuzu [PBİD Icon]
Public Const URL3 As String = "http://2.bp.blogspot.com/-1hXHEGgFNVw/TitNEweGo9I/AAAAAAAACyQ/UrAlITheBnI/s1600/Saatli_D%25C3%25BCnya_jpg.jpg" 'Microsoft Office Excel® Kod Kılavuzu [Harita]
Public Const URL4 As String = "http://3.bp.blogspot.com/-bwRSkWprDNs/Tiszo7ThzFI/AAAAAAAACyI/SGmlxMCgQWo/s1600/Mercek_bmp.bmp" 'Microsoft Office Excel® Kod Kılavuzu [Mercek]
Public URL As String
Sub Form_Aç() 'Open UserForm
On Error Resume Next
Load UserForm1
End SubLoad UserForm1
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 FunctionCLSIDFromString StrPtr(ClsID), IPic(0)
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim
'Sub References_List()
' On Error Resume Next
' Dim Eleman, No
' No = 1
' 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
' 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
Public Property Set Ekran1(Ekran As Object)
On Error Resume Next
Simge_Yarat Ekran, FindWindow(vbNullString, Ekran.Caption), Ekran.ImageList1.ListImages(1).Picture
SetWindowLong FindWindow(vbNullString, Ekran.Caption), (-16), GetWindowLong(FindWindow(vbNullString, Ekran.Caption), (-16)) Or &H80000 Or &H20000 Or &H10000
ShowWindow FindWindow(vbNullString, Ekran.Caption), 3
DrawMenuBar FindWindow(vbNullString, Ekran.Caption)
End PropertySimge_Yarat Ekran, FindWindow(vbNullString, Ekran.Caption), Ekran.ImageList1.ListImages(1).Picture
SetWindowLong FindWindow(vbNullString, Ekran.Caption), (-16), GetWindowLong(FindWindow(vbNullString, Ekran.Caption), (-16)) Or &H80000 Or &H20000 Or &H10000
ShowWindow FindWindow(vbNullString, Ekran.Caption), 3
DrawMenuBar FindWindow(vbNullString, Ekran.Caption)
Private Function Simge_Yarat(Form As Object, Başlık As Long, EkranSimge As Long)
On Error Resume Next
Call SendMessage(Başlık, &H80, 0&, ByVal EkranSimge)
Call SendMessage(Başlık, &H80, 1&, ByVal EkranSimge)
End Function
Call SendMessage(Başlık, &H80, 0&, ByVal EkranSimge)
Call SendMessage(Başlık, &H80, 1&, ByVal EkranSimge)
0 yorum:
Yorum Gönder