Lowyat.NET: Latest topics by Nocrimes

VBA Excel

Nocrimes — Wed, 16 Jun 2010 11:02:17 +0800

Hi there,

I did use a workshop from a Magazine that work ok.
Then I did what some of you may find stupid as I do not have any background what so ever.
What I am trying to do now is to have the ComboBox1 with a Lookup from the source in “C:\Users\Christian\Documents\Xls's 06-10\VIP_DatabaseMacro&Filter.xls” with the reference value being in ComboBox2.
Now, as I try looking on the net (not to good at it apparently) but did not find anything on the subject, my question are as follow:
Is it possible?
I what to learn to understand my mistake, anything to start with?
If you give me the code could you please tell me why this dose work like it dose, by this I meant do I need a SUB or an Integer for example?
Thank you in advance
Tonton.

Any ways I try to modify the code to suit my need and it look like this:

Private Sub ComboBox1_Change()
Dim FileName As String
Dim MyRange As String

FileName = "C:\Users\Documents\Xls's 06-10\VIP_DatabaseMacro&Filter.xls"
MyRange = "b5:J1000"

Dim Res As Variant
Dim myList As Variant
myList = Array(Sheet3)
Res = ComboBox2
Res = Application.Match(Me.ComboBox2.Value, myList, 0)

End Sub

Private Sub ComboBox2_Change()

End Sub

Private Sub ComboBox3_Change()

End Sub

Private Sub ComboBox4_Change()

End Sub

Private Sub ComboBox5_Change()

End Sub

Private Sub ComboBox6_Change()

End Sub

Private Sub ComboBox7_Change()

End Sub

Private Sub ComboBox8_Change()

End Sub

Private Sub CommandButton1_Click()
Dim VIPStatus As String
Dim FirstEmptyRow As Integer

'following line lets you test macro from inside VB editor
Sheets("Raw Data").Activate
FirstEmptyRow = Columns("A:A").Find(What:="", LookAt:=X = lWhole).Row
Cells(FirstEmptyRow, 1) = ComboBox1.Text
Cells(FirstEmptyRow, 2) = ComboBox2.Text
Cells(FirstEmptyRow, 3) = TextBox3.Text
Cells(FirstEmptyRow, 4) = ComboBox3.Text
Cells(FirstEmptyRow, 5) = TextBox5.Text
Cells(FirstEmptyRow, 6) = TextBox6.Text
Cells(FirstEmptyRow, 7) = TextBox7.Text
Cells(FirstEmptyRow, 9) = ComboBox4.Text
Cells(FirstEmptyRow, 10) = ComboBox5.Text
Cells(FirstEmptyRow, 11) = ComboBox6.Text
Cells(FirstEmptyRow, 12) = ComboBox7.Text
Cells(FirstEmptyRow, 8) = TextBox8.Text
Cells(FirstEmptyRow, 14) = ComboBox8.Text
If OptionButton1 Then
VIPStatus = "New V.I.P "
ElseIf OptionButton2 Then
VIPStatus = "New V.I.P with Jura"
ElseIf OptionButton3 Then
VIPStatus = "New V.I.P with Order"
ElseIf OptionButton4 Then
VIPStatus = "New From Food Industry"
ElseIf OptionButton5 Then
VIPStatus = "Order with Full Payment"
ElseIf OptionButton6 Then
VIPStatus = "Order with Down Paiment"
ElseIf OptionButton7 Then
VIPStatus = "Reserved Item(s)no Payment"
Else 'must be OptionButton8
VIPStatus = "Jura Coffee Machine"
End If
Cells(FirstEmptyRow, 13) = VIPStatus

'Reset dialog after data is entered
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox3.Text = ""
TextBox8.Text = ""
OptionButton8.Value = True
ComboBox1.SetFocus
CommandButton2.Caption = "Close"

End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub CommandButton3_Click()
'Reset dialog after data is entered
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
TextBox3.Text = ""
ComboBox4.Text = ""
ComboBox5.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
ComboBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Image1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label10_Click()

End Sub

Private Sub Label11_Click()

End Sub

Private Sub Label12_Click()

End Sub

Private Sub Label121_Click()

End Sub

Private Sub Label13_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub OptionButton16_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub Label7_Click()

End Sub

Private Sub Label8_Click()

End Sub

Private Sub Label9_Click()

End Sub

Private Sub OptionButton1_Click()

End Sub

Private Sub OptionButton2_Click()

End Sub

Private Sub OptionButton3_Click()

End Sub

Private Sub OptionButton4_Click()

End Sub

Private Sub OptionButton5_Click()

End Sub

Private Sub OptionButton6_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub OptionButton7_Click()

End Sub

Private Sub OptionButton8_Click()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub TextBox6_Change()

End Sub

Private Sub TextBox7_Change()

End Sub

Private Sub UserForm_Click()

End Sub

The Mag code is:

Private Sub CommandButton1_Click()
Dim ParkingStatus As String
Dim FirstEmptyRow As Integer

'following line lets you test macro from inside VB editor
Sheets("Seet1").Activate
FirstEmptyRow = Columns("A:A").Find(What:="", LookAt:=X = lWhole).Row
Cells(FirstEmptyRow, 1) = TextBox1.Text
Cells(FirstEmptyRow, 2) = TextBox2.Text
If OptionButton1 Then
ParkingStatus = "Parking Issued "
ElseIf OptionButton2 Then
ParkingStatus = "Waitlisted"
ElseIf OptionButton3
ParkinStatus = "N/a"
End If
Cells(FirstEmptyRow, 3) = ParkingStatus

'Reset dialog after data is entered
TextBox1.Text = ""
TextBox2.Text = ""
OptionButton3.Value = True
TextBox1.SetFocus
CommandButton2.Caption = "Close"

End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub CommandButton3_Click()
'Reset dialog after data is entered
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

Private Sub Frame1_Click()

End Sub

Win7 Strange behavior

Nocrimes — Sat, 05 Jun 2010 22:54:57 +0800

Hi there Sifus;

My specs are as follow:

OS Name Microsoft Windows 7 Ultimate
Version 6.1.7600 Build 7600
System Manufacturer Gigabyte Technology Co., Ltd.
System Model EX58-UD3R
System Type x64-based PC
Processors Intel® Core™ i7 CPU 920 @ 2.67GHz, 2661 Mhz, 4 Core(s), 8 Logical Processor(s)
BIOS Version/Date Award Software International, Inc. F11, 11-Mar-10 SMBIOS Version 2.4
Installed Physical Memory (RAM) 6.00 GB
Total Physical Memory 6.00 GB
Available Physical Memory 4.13 GB
Total Virtual Memory 12.0 GB
Available Virtual Memory 9.70 GB
Page File Space 6.00 GB

I build the computer myself with a clean install, Everything was normal for a few month then the problems below started this was the same even with the beta version of Win7.
I got random freezes, Usually just after the Boot time, During the 4 orbs sometimes (up to 4 time in a row) sometimes it appears during log in time.
If the computer start normally the first time then it will freeze at random time.
I then need to reset the computer.

Ok now my Question is. How do I monitor what is happening here and do you think this is serious or it can be fixed by myself?

Please do not hesitate to ask if you need more infos!Thank YOU in advance for your help.
Norimes

What 's happening this week end

Nocrimes — Sat, 01 Mar 2008 10:17:37 +0800

Just a Thought

About what are the Boots set up in Lowyat ground floor for this week end?
As I am a bit far from KL, it is nice if people who are there surfing the net, and most probably enjoying a cup of drinks could let us know if it is worth coming all the way over!
Hope this is not another wrong section posting or double
Tonton

Is this setup balanced?

Nocrimes — Thu, 07 Feb 2008 09:14:47 +0800

Hi Guys;
I finally came up with some specks for my new rigs, however I have some challenges and difficulties for some of the parts, also I want to be sure that this will work.

Not that this is what I think may be a good Rig for me, to last 2 to 3 years, so I planned for some future upgrades possibilities.

Last but not least, my rig is mainly for gaming movies and excel, some downloading.
I try to give you the maximum information's but if required please do not hesitate to ask. I did not started OCING yet not really interested yet.

Processor: Intel(R) Core(tm) 2 Duo E8400
Mobo: need recommendation, See Below
Ram: Kingston 2G 667Mhz ddr2 x2
HDD: 320G sata 16mb (have a 320 for storage is it enough)
GC: Asus HD3870 512mb 256Bit DDR4
Sound Card: using onboard from MOBO
Rom: LG 20X DVD-RW sata
PSU: Silverstone Strider 800 watts
Casing: Cooler Master 690
Monitor: Samsung 226BW (already have)
KeyB $ Mouse]: Tarantula or Reclusa Any Recommendations Please& Krait
OS: Windows Vista ultimate EOM 32 (Some says that it is the best to play games, less problems)
Others: Norton 360 Help if better, do not want to bother about security and it seems to me like a good package. I do note that there is a few Mobo who comes with Norton 2006 ?????

My biggest problem I think comes from the motherboard. Well witch one to choose from, there is P35's somehow limited for upgrades and there is the X38's expensive but seems to fit the purpose?

My thinking: Help me Choose here I do not have any preferences, as I just want what is best bang for my bucks

ABIT:
P35 :
X38 :
Asus:
P35 :
X38 :
Deffi:
P35 :
X38 :
MSI:
P35 :
X38 :
Gigabyt :
P35 :
X38 :
Foxconn:
P35 :
X38 :

Guys rest assured that I Will appreciate your Help

Asus Rampage Formula x48

Nocrimes — Wed, 30 Jan 2008 22:54:23 +0800

Ok I know:

But I am curious about this board any one can comment on this
- Asus Rampage Formula x48

-To me the layout look like the X38 Maximus Formula ...

CPU
Intel Socket 775 Core(tm)2 Quad/Core(tm)2 Extreme/Core(tm)2 Duo/Pentium(R) Extreme/Pentium(R) D/Pentium(R) 4/ Processors
Compatible with Intel(R) 05B/05A/06 processors
Support Intel(R) next generation 45nm CPU

Chipset
Intel X48
ICH9R
Intel Fast Memory Access Technology

Memory
4 x DIMM, Max. 8 GB, DDR2 1200*/1066/800/667/ ECC,Non-ECC,Un-buffered Memory
Dual Channel memory architecture
*DDR2 1200 is O.C. speed.
*Refer to www.asus.com or this user manual for the Memory QVL(Qualified Vendors Lidts).

Expansion Slots
2 x PCIe 2.0 x16 , support at full x16, x16 speed
3 x PCIe x1 ( the PCIEx1_1 (black) is compatible with audio slot)
2 x PCI 2.2

Storage
Southbridge
6 xSATA 3 Gb/s ports
Intel Matrix Storage Technology Support RAID 0,1,5,10,
JMicron(R) JMB368 PATA controller
1 xUltraDMA 133/100/66/33 for up to 2 PATA devices

LAN
Dual Gigabit/ controllers, both featuring AI NET2 Support Teaming Technology

Audio
SupremeFX II Audio Card
ADI 1988B 8 -Channel High Definition Audio CODEC
Coaxial / Optical S/PDIF out ports
ASUS Noise Filter

IEEE 1394
2 x 1394a ports (1 port at back I/O, 1 port onboard)

USB
12 USB 2.0 ports (6 ports at mid-board, 6 ports at back panel)

Special Features
ASUS MyLogo 3
ASUS EZ Flash 2
ASUS CrashFree BIOS 3
Q-Connector
Onboard Switches: Power / Reset / Cls CMOS (at rear)
ASUS Q-Fan 2
LCD Poster

Overclocking Features
Extreme Tweaker
Loadline Calibration
2-Phase DDR 2
Intelligent overclocking tools
- CPU Level Up
- ASUS EPU (Energy Processing Unit)
- AI Gear 3
- AI Overclocking (intelligent CPU frequency tuner)
- ASUS AI Booster Utility
- ASUS O.C. Profile: overclocking configuration-sharing tool
Overclocking Protection
- COP EX (Component Overheat Protection - EX)
- Voltiminder LED
- ASUS C.P.R.(CPU Parameter Recall)

Back Panel I/O Ports
1 x PS/2 Keyboard
1 x S/PDIF Out
1 x IEEE 1394a
2 x LAN(RJ45) port
6 x USB 2.0/1.1
1 x Clr CMOS switch

Internal I/O Connectors
3 x USB connectors supports additional 6 USB 2.0 ports
1 x Floppy disk drive connector
6 x SATA connectors
1 x IEEE 1394a connector
1 x CPU Fan connector
3 x Chassis Fan connector
1 x Power Fan connector
3 x Optional Fan connectors
1 x S/PDIF Out connector
1 x8-pin ATX 12V Power connector
24 -pin ATX Power connector
3 x thermal sensor connector
1 x En/Dis-able Clr CMOS
Chassis Intrusion connector
System Panel Connector

BIOS
16 Mb Flash ROM
DMI 2.0
AMI BIOS
PnP
WfM 2.0
SM BIOS 2.4
ACPI 2.0a
Multi-language BIOS

Manageability
WOL by PME,WOR by PME, Chasis Intrusion

Accessories
User's manual
Cable Ties
ASUS Optional Fan
I/O Shield
3 in 1 Q-connector kit
LCD Poster
SupremeFX II Audio Card
UltraDMA 133/100/66 cable
Floppy disk drive cable
SATA cables
SATA power cables

Support Disk
Drivers
ASUS PC Probe II
ASUS AI Suite
ASUS Update
The hottest 3D Game: S.T.A.L.K.E.R.
Futuremark (R) 3DMark(R) 06 Advanced Edition
Kaspersky(R) Anti-Virus

Mooding Hold Laptop

Nocrimes — Fri, 25 Jan 2008 09:10:51 +0800

Hi there

I Very by seeing two hold laptop sitting in my room none of them is working properly.
The first on is a ThinkPad 310ED and the Second one is a Gateway Solo 2550
Is it possible to merge any parts from one to another? Any Ideas from your side, is it worth it most importantly?

Thanks

Hardware requirements For

Nocrimes — Thu, 24 Jan 2008 09:13:16 +0800

Hi there

Could anyone advise us or comments about the amount RM it may take if we would build a rig to play the game above.

We are looking for medium to high set up price may not be more than 6000 RM, No monitor needed, Intel is preferable as well as an ATI GC (CF possible).

Is it reasonable or overkill?

Thank you