IDS and brengine,
Thanks for your input, I do appreciate it. I got the code originally by Googling "Excel Tab Order" and found the post "Excel Tab Order - special request!" on experts-exchange.com. (Will I be banned for mentioning another forum?) Anyway, you can see the original code in its...
Hello! I have a program embedded in an excel workbook that controls the taborder of a worksheet. The macro which controls the taborder is in the ThisWorkbook object, while the function telling the macro the order of the range is embedded in the Worksheet itself. The function began like this...
Hello all! I have a macro which will search for a PDF in a directory and kill it if it exists. A problem occurs if someone else has the file open. I would like to have a msgbox pop up with the username who has the file open on our network, so the user can go and ask them to close it. Is there a...
So how do I update the control as each line is processed? That is what I am unsure of. I would like my Progress Bar (or TextBox) width to change for each line of code processed. What I don't know is how to read a line of code as a number and send it to the bar to change its width. Additionally...
Hello! I woud like to make a progress bar hack that uses the width of a textbox as the size of the bar. My question is how can I have the progress bar show while my macros are working in the background? Additionally, I would like the bar to increment for each line of code read, so the progress...
Clever! I hadn't realized that, but it makes sense now. About your recommmendation, I'm not exactly following you. What flag should I use to identify the change? Is there an example that I could look at that would show a similar condition?
Thanks,
I have a combobox with the following code:
Private Sub SN3_Change()
cRng = 6
If Worksheets(1).Range("A6") <> "" Then
CfgName = Worksheets(1).Range("A6")
Else
MsgBox "You must enter a Part Number before selecting a Paint Specification."
SN3.Value = "~"
Exit Sub
End If
If...
Okay, Joerd! I got it fixed. The vlookup formula has been changed to =VLOOKUP(VALUE(L6),D32:D55,3,FALSE). All of the values in the lookup except one are numbers, so they will be force-formatted by the addition of the VALUE() function which gives a proper return. To get the first value, which is...
But how is that possible? L6 gets its value from the combobox as the LinkedCell, which gets its values from D32:D55 as the ListFillRange. How can they not be exact? I even went back and changed the range & L6 to Text format, hoping to make it more specific. Is there any other problem? An options...
I have a control listbox in my XL spreadsheet. Its ListFillRange is D32:D55, and its LinkedCell is L6. The BoundColumn value is set to 0. In cell D6, I have a formula that retrieves the value which corresponds to the row that is selected in the listbox: =INDIRECT("F"&32+L6). This takes the index...
man, handleman, you're a genus:class:genius! (A little zoological humor there.) I didn't check the Constant Type Library; the only one that was showing was the 2005...since I have 2007, I thought it might have been obsolete or something like that. Well, that's what I get for those assumptions...
Okay, let me rescind my last post. When I start Visual Basic from SWX and run the code, it works peachy. However, when I copy the code to Visual Basic in Excel and run it, nothing happens; it cycles through the code and doesn't add the BOM in, but it doesn't return any kind of an error either. I...
handleman, interestingly enough, I did get it to work. My first problem was that the filename for the table template was wrong; that is, the path was correct, but the actual file was incorrect. It had two spaces in "HTC BOM" instead of one. I have since corrected. Secondly, and this is an...
I am attempting to insert a Bill of Materials using a specific table template into a Solidworks drawing via API. My macro so far is thus:
Sub Macro2()
Dim BomTable As Object
Dim BomFeat As Object
Dim Names As Variant
Dim Visible As Variant
Set swApp =...
Good to know CCG. Since there are only five other checkboxes, my code would only be two lines longer, as follows:
If Checbox0.Value = True Then
Checkbox1.Value = True
Checkbox2.Value = True
Checkbox3.Value = True
Checkbox4.Value = True
Checkbox5.Value = True
End If
Problem solved.
Hello! I have an Excel worksheet with 6 checkboxes on them. The first checkbox is supposed to check all checkboxes when it is clicked. I have the code below:
Private Sub Checkbox0_Click()
If CheckBox0.Value = True Then
Dim i As Integer
For i = 1 To 5
CheckBox(i).Value = True
Next i
End If...
I am writing a VBA macro that will populate a Solidworks General Table from a range of cells in Excel. What I would like to do is either edit an existing general table or insert a new one, via an If/Then statement. I can insert one with no problem, but I can't seem to edit/select an existing...
