I have an array of values that come in off of a form. One of these
values is "Empty Device". Here's the code I'm using to handle that:
Devices = Array(cmb1.Value, cmb2.Value, cmb3.Value, cmb4.Value,
cmb5.Value, cmb6.Value, cmb7.Value)
Now that I have my Devices array, I loop through the number of devices
that were selected and assign values to other variables and another
array. Here's some of that code:
For i = 0 To UBound(Devices)
If Not Devices(i) = "" Then NumOfDevices = NumOfDevices + 1
If Devices(i) = "EMPTY DEVICE" Then NumOfEmptyDevices =
NumOfEmptyDevices + 1
'Match Description to Ganged
Select Case True
Case Devices(i) = "EMPTY DEVICE"
Ganged = Ganged & "X "
ReDim Preserve arrDeviceName(0 To i)
arrDeviceName(i) = "EMPTY DEVICE"
Case Devices(i) = "20A RECEPTACLE"
Ganged = Ganged & "O "
ReDim Preserve arrDeviceName(0 To i)
arrDeviceName(i) = "D20120"
Case Devices(i) = "20A GFI"
Ganged = Ganged & "G "
ReDim Preserve arrDeviceName(0 To i)
arrDeviceName(i) = "G20120"
I need to find out a way to handle "EMPTY DEVICES". Later on in the
code, I loop through the TotalNumOfDevices which equals all of the
devices picked except for "EMPTY DEVICE". That throws off my looping,
because the numbers aren't ever equal when these are chosen. How
would I dip into the arrDeviceName array and trim out all of the
"EMPTY DEVICES". Better yet, would be how to keep "EMPTY DEVICE" from
even getting into the arrary. Currently, when I comment out the ReDim
statment for "EMPTY DEVICE", I still get a value of "" within my
array. This essentially is throwing off the whole calculation.
I'd appreciate any input!
Cheers,
Matt
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
