Search Engine

'UserForm1

'A) References List

'A1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL
'A2) Name: Excel, Description: Microsoft Excel 14.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE
'A3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'A4) Name: Office, Description: Microsoft Office 14.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLL
'A5) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\Windows\SysWOW64\FM20.DLL

'B) Additional Controls

'B1) Image1, Label1, Label2
'B2) TextBox1, ListBox1

'C) Arama Filitreleri (Search Filters)

'C1) # Herhangi bir rakam
'C2) * Bir veya daha fazla karakter
'C3) [aralık] Verilen aralıkta bir karakter
'C4) [!aralık] Verilen aralık dışında bir karakter
'C5) If adres Like "*İstanbul" Then ; ifadesi ile adres değişkeninin sonunda İstanbul bulunup bulunmadığı
'C6) If adres Like "*İstanbul*" Then ;ifadesi ile adres değişkeninin herhangi bir yerinde İstanbul bulunup bulunmadığı
'C7) If adres Like "İstanbul*" Then ; ifadesi ile adres değişkeninin başında İstanbul bulunup bulunmadığı kontrol edilebilir.
'C8) If x Like "?abc" then ; ifadesi ile x değişkeninin ilk harfinin herhangi bir karakter ancak diğer üç karakterin abc olup olmadığı
'C9) If x Like "#abc" Then ; ifadesi ile x değişkeninin ilk harfinin herhangi bir rakam ancak diğer üç karakterin abc olup olmadığı
'C10) If x Like "[a-f]abc" Then; ifadesi ile x değişkeninin ilk harfinin a ile f arasında herhangi bir karakter ve diğer üç karakterin abc olup olmadığı
'C11) If x Like "[!a-f]abc" Then; ifadesi ile de x değişkeninin ilk harfinin a ile f arasında olmayan herhangi bir karekter ve diğer üç karakterin abc olup olmadığı kontrol edilir

'D) Arama Operatörleri (Search Operators)

'D1) Aritmetik Operatörleri; ^, (-), *, /, \, Mod, +, -, &
'D2) Karşılaştırma Operatörleri; =, <>, <, >, <=, >=, Like, is
'D3) Mantık (Logic) Operatörleri; Not, And, Or, xOr, Eqv, Imp

Option Explicit
Private i As Long
Private No As Double
Private SDB As Variant ' Sample Data Base
Private Bellek(1 To 125, 1 To 1) 'Memory
Private LoS As Long ' Last of List
Private Bulunan As String 'Find String

Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] Search Engine"
Call Ekran_Düzenle
Call Sample_Data_Base
Application.Visible = False

End Sub
Private Sub TextBox1_Change()

On Error Resume Next
Bulunan = "*" & UCase(TextBox1.Text) & "*"
With Me.ListBox1

.List = SDB
For i = .ListCount - 1 To 0 Step -1

If Not UCase(.List(i)) Like Bulunan Then

.RemoveItem i

End If

Next i

End With

End Sub
Private Sub ListBox1_Click()

On Error Resume Next
No = ListBox1.ListIndex
TextBox1.Text = ListBox1.List(No, 0)

End Sub
Private Sub UserForm_Terminate()

On Error Resume Next
Application.Visible = True

End Sub
Private Sub Ekran_Düzenle()

On Error Resume Next
With Me

.BackColor = vbWhite
.Height = 252
.Width = 366
.Picture = LoadPicture("D:\MU\MU.bmp")
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeStretch
.PictureTiling = False
With Image1

.Top = 6
.Left = 6
.Height = 24
.Width = 24
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Picture = LoadPicture("D:\MU\PBİD.ico")
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False

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 TextBox1

.Left = 6
.Top = 36
.Height = 18
.Width = 348
.BackStyle = fmBackStyleOpaque
.BackColor = vbWhite
.Font.Bold = False
.Font.Name = "Arial"
.ForeColor = vbBlue
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched

End With
With ListBox1

.Left = 6
.Top = 54
.Height = 176
.Width = 348
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackColor = &H80FFFF
.Font.Bold = False
.Font.Name = "Arial"
.ForeColor = &H404000

End With

End With

End Sub
Private Sub Sample_Data_Base() 'All Microsoft Products

On Error Resume Next
Bellek(1, 1) = "Microsoft DOS 6.0 Upgrade (3.5 inch); Product Code: 3223 Platform: Windows Outlet Price: $4.99 "
Bellek(2, 1) = "Microsoft Encarta Encyclopedia Standard 2005; Product Code: 0230 Platform: Windows Outlet Price: $6.99 "
Bellek(3, 1) = "Microsoft Encarta Encyclopedia Standard 2006; Product Code: 7939 Platform: Windows Outlet Price: $3.95 "
Bellek(4, 1) = "Microsoft MS-DOS 6 Upgrade (5.25 inch); Product Code: 0157 Platform: Windows Outlet Price: $7.95 "
Bellek(5, 1) = "Microsoft Office 2000 Small Business Edition (OEM CD w/COA); Product Code: 4781 Platform: Windows Outlet Price: $59.95 "
Bellek(6, 1) = "Microsoft Office 2003 Professional (OEM CD w/COA); Product Code: 4783 Platform: Windows Outlet Price: $189.95 "
Bellek(7, 1) = "Microsoft Office 2004 for Mac; Product Code: 7243 Platform: Macintosh Outlet Price: $279.99 "
Bellek(8, 1) = "Microsoft Office 2004 for Mac; Product Code: 7992 Platform: Macintosh Outlet Price: $279.99 "
Bellek(9, 1) = "Microsoft Office 2007 Home and Student 3 User; Product Code: 8944 Platform: Windows Outlet Price: $121.95 "
Bellek(10, 1) = "Microsoft Office 97 Professional (OEM w/COA); Product Code: 7879 Platform: Windows Outlet Price: $69.99 "
Bellek(11, 1) = "Microsoft Office Small Business Management Edition 2006 (Full Retail); Product Code: 7989 Platform: Windows Outlet Price: $239.99 "
Bellek(12, 1) = "Microsoft Office XP Pro with Publisher (OEM CD w/COA); Product Code: 3390 Platform: Windows Outlet Price: $125.95 "
Bellek(13, 1) = "Microsoft Streets & Trips Essentials 2006; Product Code: 7899 Platform: Windows Outlet Price: $4.95 "
Bellek(14, 1) = "Microsoft Train Sim: The Activities (Add On for Microsoft Train Simulator 2002); Product Code: 7105 Platform: Windows Outlet Price: $5.00 "
Bellek(15, 1) = "Microsoft Visual C#.net 2003 Standard; Product Code: 8965 Platform: Windows Outlet Price: $59.99 "
Bellek(16, 1) = "Microsoft Windows 95 (OEM CD w/ COA) *Spanish Version; Product Code: 0061 Platform: Windows Outlet Price: $19.99 "
Bellek(17, 1) = "Microsoft Works Suite 2003 -DVD; Product Code: 4492 Platform: Windows Outlet Price: $29.95 "
Bellek(18, 1) = "Microsoft Works Suite 2006 DVD (OEM); Product Code: 7678 Platform: Windows Outlet Price: $42.69 "
Bellek(19, 1) = "The Magic School Bus Explores the Age of Dinosaurs; Product Code: 7108 Platform: Windows Outlet Price: $9.99"
Bellek(20, 1) = "Microsoft Office 2007 Small Business Edition OEM; Product Code: r2015 Platform: Windows Outlet Price: $249.99 "
Bellek(21, 1) = "Microsoft Expression Web 2; Product Code: r2083 Platform: Windows Outlet Price: $99.95 "
Bellek(22, 1) = "Microsoft Office 2007 Ultimate; Product Code: r2192 Platform: Windows Outlet Price: $335.95 "
Bellek(23, 1) = "Microsoft Office 2007 Ultimate - Upgrade; Product Code: r2193 Platform: Windows Outlet Price: $269.95 "
Bellek(24, 1) = "Microsoft Office Standard 2007 - Upgrade; Product Code: r2204 Platform: Windows Outlet Price: $174.95 "
Bellek(25, 1) = "Microsoft Office 2007 Professional Part #269-11094; Product Code: r2205 Platform: Windows Outlet Price: $399.95 "
Bellek(26, 1) = "Microsoft Office Accounting Standard 2008; Product Code: r2279 Platform: Windows Outlet Price: $29.99 "
Bellek(27, 1) = "Microsoft Expression Encoder 2 Upgrade Part # FKA-00113; Product Code: r2281 Platform: Windows Outlet Price: $45.95 "
Bellek(28, 1) = "Microsoft Windows Vista Home Basic 66G-02689; Product Code: r2474 Platform: Windows Outlet Price: $149.95 "
Bellek(29, 1) = "Microsoft Windows Vista Home Basic SP1 Part # 66G-02689; Product Code: r2476 Platform: Windows Outlet Price: $94.99 "
Bellek(30, 1) = "Microsoft Visio Standard 2007; Product Code: r2489 Platform: Outlet Price: $175.95 "
Bellek(31, 1) = "Microsoft Office 2007 Small Business Upgrade Part #W87-02379; Product Code: r2491 Platform: Windows Outlet Price: $219.95 "
Bellek(32, 1) = "Microsoft Office SharePoint Designer 2007; Product Code: r2495 Platform: Windows Outlet Price: $199.95 "
Bellek(33, 1) = "Microsoft Office Small Business 2007; Product Code: r2496 Platform: Outlet Price: $289.95 "
Bellek(34, 1) = "Microsoft Windows XP Professional W/SP2; Product Code: r2513 Platform: Windows Outlet Price: $249.99 "
Bellek(35, 1) = "Microsoft Windows Business Upgrade SKU- 66J-0003; Product Code: r2516 Platform: Outlet Price: $119.95 "
Bellek(36, 1) = "Windows Vista Ultimate W/SP1 sku# 66R-02261; Product Code: r2517 Platform: Outlet Price: $164.95 "
Bellek(37, 1) = "Windows Vista Ultimate Upgrade W/SP1 Sku# 66R-02262; Product Code: r2518 Platform: Outlet Price: $79.95 "
Bellek(38, 1) = "Microsoft Office Visio Standard 2007 Upgrade Sku# d86-02175; Product Code: r2519 Platform: Outlet Price: $69.95 "
Bellek(39, 1) = "Microsoft Office Visio Professional 2007 SKU # D87-02785; Product Code: r2520 Platform: Outlet Price: $479.95 "
Bellek(40, 1) = "Microsoft Office Excel 2007 SKU 79C-0007; Product Code: r2551 Platform: Outlet Price: $121.95 "
Bellek(41, 1) = "Microsoft Visual Studio 2005 Professional Edition sku CS5-00001; Product Code: r2564 Platform: Outlet Price: $579.95 "
Bellek(42, 1) = "Windows Small Business Server 2003 R2 Standard (UPGRADE) 5 Client T72-01415; Product Code: r2571 Platform: Windows Outlet Price: $285.95 "
Bellek(43, 1) = "Windows Small Business Server 2003 R2 Premium 5 Client T75-01256 UPGRADE; Product Code: r2572 Platform: Windows Outlet Price: $595.95 "
Bellek(44, 1) = "Microsoft Windows Small Business Server CAL 2003 Upgrade MS License Pack 20 Client Add Pak Device CA; Product Code: r2596 Platform: Outlet Price: $699.95 "
Bellek(45, 1) = "Microsoft Windows Server 2008 Terminal Services License Pack- 20 Cals SKU #TJA-00032; Product Code: r2598 Platform: Outlet Price: $1449.95 "
Bellek(46, 1) = "Zoo Tycoon 2 - Extinct Animals - Expansion Pack; Product Code: r2599 Platform: Windows Outlet Price: $12.95 "
Bellek(47, 1) = "Microsoft Office Outlook 2007; Product Code: r2601 Platform: Windows Outlet Price: $131.95"
Bellek(48, 1) = "Microsoft Office Word 2007 UPGRADE Part #059-05442; Product Code: r2602 Platform: Windows Outlet Price: $59.95 "
Bellek(49, 1) = "Office Standard 2007 Upgrade # w87-02379; Product Code: r2662 Platform: Outlet Price: $169.95 "
Bellek(50, 1) = "eTrust EZ Armor Antivirus; Product Code: r2704 Platform: Outlet Price: $0.99 "
Bellek(51, 1) = "Microsoft Office Publisher 2007 SKU 164-04130; Product Code: r2738 Platform: Windows Outlet Price: $112.95 "
Bellek(52, 1) = "Microsoft Office Outlook 2007 with Business Contact Manager SKU# NFA-00023; Product Code: r2745 Platform: Windows Outlet Price: $141.95 "
Bellek(53, 1) = "Microsoft Office Visio Professional 2007 Upgrade; Product Code: c1049 Platform: Windows Outlet Price: $209.95 "
Bellek(54, 1) = "Microsoft Office SharePoint Designer 2007 Upgrade Part# 79Q-00015; Product Code: r2756 Platform: Windows Outlet Price: $94.00 "
Bellek(55, 1) = "Microsoft Office Word 2007; Product Code: c1069 Platform: Windows Outlet Price: $169.95 "
Bellek(56, 1) = "Windows Vista Home Premium 66i-02387; Product Code: c1076 Platform: Windows Outlet Price: $175.95 "
Bellek(57, 1) = "Microsoft Windows Vista Home Premium SKU 661-00002; Product Code: r2759 Platform: Windows Outlet Price: $152.95 "
Bellek(58, 1) = "Microsoft Office Project Professional 2007 Upgrade (Part #H30-01823); Product Code: c1108 Platform: Windows Outlet Price: $369.95 "
Bellek(59, 1) = "Microsoft Office Language Pack 2007 Spanish (part #93A-00240); Product Code: c1131 Platform: Windows Outlet Price: $99.95 "
Bellek(60, 1) = "Microsoft Works 8.5; Product Code: r2767 Platform: Windows Outlet Price: $5.00 "
Bellek(61, 1) = "Microsoft Windows 7 Home Premium 64 bit (PN GFC-00977) (OEM); Product Code: c1162 Platform: Windows Outlet Price: $109.95 "
Bellek(62, 1) = "Microsoft Windows 7 Home Premium 32 bit (PN GFC-01042) (OEM); Product Code: c1163 Platform: Windows Outlet Price: $109.95 "
Bellek(63, 1) = "Microsoft Windows 7 Professional 64-bit (PN FQC-01197) (OEM); Product Code: c1164 Platform: Windows Outlet Price: $149.95 "
Bellek(64, 1) = "Microsoft Windows 7 Professional 64-bit (PN FQC-01197) (OEM); Product Code: c1165 Platform: Windows Outlet Price: $155.95 "
Bellek(65, 1) = "Microsoft Windows 7 Ultimate 32 Bit (PN GLC-00701) (OEM); Product Code: c1166 Platform: Windows Outlet Price: $202.95 "
Bellek(66, 1) = "Microsoft Windows 7 Ultimate 64 Bit (PN GLC-00736) (OEM); Product Code: c1167 Platform: Windows Outlet Price: $202.95 "
Bellek(67, 1) = "Windows 7 Professional UPGRADE (PN FQC-00130); Product Code: c1173 Platform: Windows Outlet Price: $169.95 "
Bellek(68, 1) = "Learn Microsoft Windows XP; Product Code: r2835 Platform: Outlet Price: $7.95 "
Bellek(69, 1) = "Microsoft Expression Studio 2 Upgrade; Product Code: r2913 Platform: Win/Mac Outlet Price: $169.95 "
Bellek(70, 1) = "Microsoft MapPoint 2009; Product Code: r2945 Platform: Windows Outlet Price: $159.95 "
Bellek(71, 1) = "Microsoft Windows Small Business Server 2003 Premium Edition R2 5CAL T75-01255; Product Code: r3044 Platform: Windows Outlet Price: $850.95"
Bellek(72, 1) = "Learn2 Training for Microsoft Word; Product Code: r3127 Platform: Windows Outlet Price: $8.95 "
Bellek(73, 1) = "Windows Small Business Server CAL 2003 License Pack Transition Pack Device CAL T74-01132; Product Code: m3184 Platform: Windows Outlet Price: $159.95 "
Bellek(74, 1) = "Microsoft System Center Essentials 2007 Client Management License 4PX-00078; Product Code: m3186 Platform: Windows Outlet Price: $364.95 "
Bellek(75, 1) = "Microsoft Exchange Server 2007 Standard - 5 CAL 381-03588; Product Code: m3187 Platform: Windows Outlet Price: $298.95 "
Bellek(76, 1) = "SBS SMALL BUSINESS SERVER 2000 5 client additive liscense E76-00005; Product Code: m3188 Platform: Windows Outlet Price: $219.99 "
Bellek(77, 1) = "Microsoft SQL Server Workgroup Edition 2005 32 Bit CD/DVD 5 Client A5K-01017; Product Code: m3193 Platform: Windows Outlet Price: $549.99 "
Bellek(78, 1) = "Microsoft Windows Server 2003 For Small Business W/SP2 5Cal T73-01060; Product Code: m3208 Platform: Windows Outlet Price: $949.95 "
Bellek(79, 1) = "Microsoft SQL Server Enterprise Edition 2005 32 Bit CD/DVD 1 Processor License 810-05192; Product Code: m3194 Platform: Windows Outlet Price: $9999.95 "
Bellek(80, 1) = "Microsoft SBS Small Business Server 2000 20-client Add On 3.5 DMF E76-00006; Product Code: m3197 Platform: Windows Outlet Price: $929.99 "
Bellek(81, 1) = "Microsoft Streets & Trips 2010 with GPS Locator; Product Code: r3164 Platform: Windows Outlet Price: $41.95 "
Bellek(82, 1) = "Microsoft System Center Essentials 2007 UCH-01720; Product Code: m3201 Platform: Windows Outlet Price: $1749.95 "
Bellek(83, 1) = "Microsoft Windows Terminal Server 2008 - 5 Device CAL TJA-00036; Product Code: m3204 Platform: Windows Outlet Price: $396.95 "
Bellek(84, 1) = "Microsoft Office Home and Business 2010 MS-T5D-00417; Product Code: r3176 Platform: Windows Outlet Price: $240.95 "
Bellek(85, 1) = "Microsoft Office Professional 2010 (Academic); Product Code: z3179 Platform: Windows Outlet Price: $149.95 "
Bellek(86, 1) = "Microsoft Windows 7 Ultimate Upgrade P# GLC-00184; Product Code: r3180 Platform: Outlet Price: $210.95 "
Bellek(87, 1) = "Windows Server 2003 Client Additional License for Devices- 20 Pack R18-00910; Product Code: m3213 Platform: Windows Outlet Price: $274.95 "
Bellek(88, 1) = "Microsoft Expression Web 3; Product Code: r3214 Platform: Windows Outlet Price: $135.95 "
Bellek(89, 1) = "Microsoft Visio Standard 2010 PN#D86-04533; Product Code: r3215 Platform: Windows Outlet Price: $225.95 "
Bellek(90, 1) = "Microsoft MapPoint 2010; Product Code: r3247 Platform: Windows Outlet Price: $231.95 "
Bellek(91, 1) = "Microsoft Office PowerPoint 2007 PN#079-02840; Product Code: r3256 Platform: Windows Outlet Price: $129.95 "
Bellek(92, 1) = "Microsoft Visio Professional 2010 PN#D87-04973; Product Code: r3216 Platform: Windows Outlet Price: $354.95 "
Bellek(93, 1) = "Microsoft Project Standard 2010 PN#076-04843; Product Code: r3217 Platform: Windows Outlet Price: $475.95 "
Bellek(94, 1) = "Microsoft Office Project Standard 2007; Product Code: r3358 Platform: Windows Outlet Price: $436.95 "
Bellek(95, 1) = "Bitdefender Internet Security 2011 - 3 User; Product Code: r3502 Platform: Windows Outlet Price: $29.95 "
Bellek(96, 1) = "Roxio Creator 2011 - Full Retail; Product Code: r3503 Platform: Windows Outlet Price: $72.95 "
Bellek(97, 1) = "Dragon Naturally Speaking Home Version 11; Product Code: r3504 Platform: Windows Outlet Price: $73.95 "
Bellek(98, 1) = "Dragon Naturally Speaking Premium Version 11 Bluetooth; Product Code: r3506 Platform: Windows Outlet Price: $275.95 "
Bellek(99, 1) = "Norton Antivirus 2011 with Antispyware 5-User; Product Code: r3507 Platform: Windows Outlet Price: $87.95 "
Bellek(100, 1) = "Titanium Internet Security 2011 1-User; Product Code: r3508 Platform: Windows Outlet Price: $35.95 "
Bellek(101, 1) = "Titanium Maximum Security 2011 3-User; Product Code: r3509 Platform: Windows Outlet Price: $49.95 "
Bellek(102, 1) = "Titanium Antivirus Plus 2011 1-User; Product Code: 53510 Platform: Windows Outlet Price: $27.95 "
Bellek(103, 1) = "Titanium Internet Security 2011 3-User; Product Code: r3511 Platform: Windows Outlet Price: $45.95 "
Bellek(104, 1) = "Titanium Antivirus Plus 2011 1-User; Product Code: r3510 Platform: Windows Outlet Price: $27.95 "
Bellek(105, 1) = "Microsoft LifeChat ZX-6000 Wireless Headset; Product Code: r3731 Platform: Outlet Price: $34.95 "
Bellek(106, 1) = "Microsoft OEM Optical Mouse with PS2/USB Adapter; Product Code: r3733 Platform: Outlet Price: $8.95 "
Bellek(107, 1) = "The Professional PC Startup Bundle Pack - 4 Amazing Products!; Product Code: k1001 Platform: Windows Outlet Price: $324.99 "
Bellek(108, 1) = "Microsoft LifeCam VX-1000 - Web camera; Product Code: r3715 Platform: Windows Outlet Price: $25.95 "
Bellek(109, 1) = "The Professional PC Startup Pack 32-bit - 4 Amazing Products!; Product Code: k1002 Platform: Windows Outlet Price: $324.99 "
Bellek(110, 1) = "Microsoft Windows Essential Business Server 2008 Standard 6XA-00137 / 6XA-00068; Product Code: m3202 Platform: Outlet Price: $2999.95 "
Bellek(111, 1) = "Microsoft Exchange Server 2007 Enterprise Edition 25-CAL w/ SP1 395-03824; Product Code: m3500 Platform: Outlet Price: $6649.95 "
Bellek(112, 1) = "Microsoft 720p LifeCam HD-6000; Product Code: r3825 Platform: Outlet Price: $34.95 "
Bellek(113, 1) = "Microsoft Office Project Professional 2010 Academic; Product Code: r3834 Platform: Outlet Price: $319.95 "
Bellek(114, 1) = "Microsoft Visio Professional 2010 Academic; Product Code: r3835 Platform: Outlet Price: $274.95 "
Bellek(115, 1) = "Microsoft Office Word 2010 Academic; Product Code: r3836 Platform: Outlet Price: $139.95 "
Bellek(116, 1) = "Microsoft Office Publisher 2010 Academic; Product Code: r3837 Platform: Outlet Price: $139.95 "
Bellek(117, 1) = "Microsoft LifeCam Show; Product Code: r3839 Platform: Outlet Price: $27.95 "
Bellek(118, 1) = "Microsoft Money 2007 Deluxe; Product Code: r3828 Platform: Windows Outlet Price: $79.95 "
Bellek(119, 1) = "Microsoft Small Business Server 2000 Upgrade 5-cal Add On E76-00131; Product Code: m3199 Platform: Windows Outlet Price: $189.99 "
Bellek(120, 1) = "Microsoft Windows Server 2008 Client Additional License for Devices - 20 pack R18-02454; Product Code: m3206 Platform: Windows Outlet Price: $699.99 "
Bellek(121, 1) = "Windows Small Business Server Premium User CAL Suite 2008 English 5 Client Access AddPak 6VA-00105; Product Code: m3207 Platform: Windows Outlet Price: $849.99 "
Bellek(122, 1) = "Windows Small Business Server Standard 2003 R2 Transition Pack 5 Client; Product Code: m3210 Platform: Windows Outlet Price: $1199.99 "
Bellek(123, 1) = "Microsoft Windows Small Business Server 2003 Upgrade 20 Client T74-01213; Product Code: m3216 Platform: Outlet Price: $699.99 "
Bellek(124, 1) = "Windows Small Business Server CAL 2003 Upgrade MS License Pack 20 CAL T74-01212; Product Code: m3220 Platform: Outlet Price: $799.99 "
Bellek(125, 1) = "Microsoft Visual Studio Team Foundation Server 1-CAL 2005 License Pack Device CAL 126-00661; Product Code: m3502 Platform: Outlet Price: $499.99 "
Sheets(1).Range("A1:A125") = Bellek()
LoS = Sheets(1).Range("A" & Cells.Rows.Count).End(xlUp).Row
SDB = Sheets(1).Range("A1:A" & LoS)

End Sub



'Module1


Sub Form_Aç()

On Error Resume Next
UserForm1.Show 0

End Sub

'Sub ReferencesList()

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

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

' Next Eleman

'End Sub