EVGA GeForce GTX 580 Superclocked 1536 MB GDDR5 PCI Express 2.0 2DVI/Mini-HDMI SLI Ready Limited Lifetime Warranty Graphics Card, 015-P3-1582-AR
Intel Core i7-960 Processor 3.20 GHz 8 MB Cache Socket LGA1366
Corsair Vengeance 12 GB ( 3 x 4 GB ) DDR3 1600 MHz (PC3 12800) 240-Pin DDR3 Memory Kit for Intel Core i7 SDRAM CMZ12GX3M3A1600C9
Lite-On LightScribe 24X SATA DVD+/-RW Dual Layer Drive IHAS424-98 – Retail (Black)
Cyber Acoustics 3 pc Subwoofer/Satellite System CA-3602
Cyborg V.5 Keyboard
Logitech Optical Gaming Mouse G400 with High-Precision 3600 DPI Optical Engine (910-002277)
Cooler Master HAF 932 Advanced Full Tower Case with SuperSpeed USB 3.0 – (RC-932-KKN5-GP)
Microsoft Windows 7 Home Premium
Creative Labs SB0880 PCI Express Sound Blaster X-Fi Titanium Sound Card
StarTech.com 1 Port PCI 10/100/1000 32 Bit Gigabit Ethernet Network Adapter Card (ST1000BT32)
Western Digital 2 TB Caviar Green SATA II Intellipower 64 MB Cache Bulk/OEM Desktop Hard Drive – WD20EARS
EVGA 131-GT-E767-TR LGA1366/ Intel X58/ DDR3/ CrossFireX & 2-Way/3-Way SLI/ SATA3&USB3.0/ A&GbE/ ATX Motherboard
Also is this a good price Sub-Total 1,508.30. The graphics card also comes with Batman Arkham City
Help! Visual Basic Excel?
In the Microsoft Visual Basic for Applications window, delete any empty comment lines or blank lines in the code, and then copy the entire RoomSort macro from the Sub statement to the End Sub statement.
I was able to create the macro but don’t quite understand what it wants me to do. The validity of the macro may be wrong but if I edit this in any way the macro won’t work.
Sub RoomSort()
‘
‘ RoomSort Macro
‘
‘
Range(“A3:J16″).Select
Selection.Copy
Sheets(“Room”).Select
Range(“A4″).Select
ActiveSheet.Paste
Application.Goto Reference:=”Room!RC”
Application.CutCopyMode = False
Application.AddCustomList ListArray:=Array(“MWF”)
Application.DeleteCustomList ListNum:=5
Application.AddCustomList ListArray:=Array(“MWF”, “MW”, “M”, “W”, “TR”, “T”, “R”, _
“S”)
ActiveWorkbook.Worksheets(“Room”).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(“Room”).Sort.SortFields.Add Key:=Range(“E5:E17″), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
“MWF,MW,M,W,TR,T,R,S”, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets(“Room”).Sort.SortFields.Add Key:=Range(“F5:F17″), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(“Room”).Sort
.SetRange Range(“A4:J17″)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
→ 1 Comment
Posted in RC Submarines
Tagged Basic, blank lines, code, comment, Excel, microsoft, microsoft visual basic, RoomSort, statement, sub, Visual, visual basic excel, visual basic for applications, window