Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Nisan 2011 Cuma

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

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul