Index of the VBProj.VBComponents("ThisWorkbook") component?
I need to refer to that component but not by its name because the file I use, goes to some users that have MS Excel installed with another language and their Excel translate the component's name in that language so
VBProj.VBComponents("ThisWorkbook") should be VBProj.VBComponents("[that-language-translation]")
I need a routine that splits a cell with a name into its various components.
For example: split the name Johnny Jones and place Johnny into a different cell, and place Jones into yet another cell.
I'm having a bit of an issue with OWC in 2007. I know they have been deprecated but I was under the impression, form many places including MS themself, that you could install them. I downloaded this file
http://www.microsoft.com/downloads/d...DisplayLang=en
and then the SP1 2007 file here
http://www.microsoft.com/downloads/d...displaylang=en
All seems to go well and there seems to be a appropriate .dll in c:Program FilesCommon FilesMicrosoft SharedWeb Components111033 by the name of OWCI11.DLL. However when I attempt to add a reference to that file in a VBA project in Excel (it's one that has an old broken reference to 2003 OWC) by browsing to that file it tells me
"Can't add a reference to the specified file"
What have I done wrong? Is what I am attempting, getting 2007 to use OWC, even possible? Note I did not write any of the code for this Excel Add-in so have very little idea about what OWC are for.
I want to remove all userforms, modules, codelines in open worksheet and some worksheets when user is not a authentic user. I got the following VBA scripts to that purpose but it prompted me with something like "trusted access to VB project...." and "protected project..."
Is it possible to use vba to enable "trusted access to VB project" as the excel application is used by someone using excel in their own machine?
Code:
Application.DisplayAlerts = False
sHostName = Environ$("computername")
If Sheets("H").Range("p1").Value "" Then
If Trim(sHostName) Sheets("H").Range("p1").Value Then
[Code] .....
I need to separate the content of every address cell to the four separate cells : city, street, street number, zip code
address cell examples: ...
I receive a list of finished part #'s everyday at work. With this list I need to have excel figure how many components are in each finished part. In the table below, COM. 1 goes into Parts A,B and E one time each. COM. 2 goes into Parts B, C and D twice each. COM. 3 goes into each part once. I need a formula that will find the QTY needed for each component multiplied by the QTY to build.
Finished Part #
QTY to build
Component #
QTY needed
Part A
4
COM. 1
PART B
5
COM. 2
Part C
8
COM. 3
Part D
2
Part E
6
What I'm trying to do:
Create a "search" userform that pulls data from a spreadsheet of raw data (hardware specs) and organizes it into a multipage control. Each page of the MultiPage has a different piece of hardware with simliar data entry categories (height, weight, calibration date for example).
Each page at the moment contains labels and textboxes only. The idea is to place data from the spreadsheet into these textboxes, and create new pages as needed during runtime.
My current issues:
Just for testing/ debugging, I have a "_Change()" code that is triggered by changing pages within the Multipage. When I run the control, I trigger the change, but the textboxes and labels disappear.
I don't have much code to show, other than basic _Change() structure containing a msgbox for debugging.
This is related to a locked thread, where "imgUpdating" and "DoEvents" were referenced. I tried DoEvents, without success. I also don't know what "imgUpdating" is, but it sounds like it helped the other person with a similar issue:
UserForm Controls not displaying at runtime
Is there a simpler way to to the calculations on the spreedsheet i have attached?
Basically I want to count up the components used to make one product
- I have some buttons set-up to insert pre-set diagrams from sheet “FISH PARTS” onto sheet “THE JUMPER FISHBONE”
- However, before inserting a new diagram onto sheet “THE JUMPER FISHBONE” I need to make sure the default diagram components are all gone.
- There are seven components all with structure Like “BONE_*”
- If one or more of these components are present I want to display a message to confirm the user wishes to delete the default diagram and insert new chart (or abort is they do not wish to delete the default)
- some explaination of structure below
- spreadsheet also attached
I have been sent a spreadsheet containing the following Macro, which is fair enough, only thing is, I don't understand the Macro, its too high for my extremely basic knowledge of VBA.
Private Sub CommandButton1_Click()
Dim rng As Range
Dim i As Integer
Dim sht1 As New Worksheet
Dim sht2 As New Worksheet
Set sht1 = Sheets(ActiveSheet.Range("D2").Value)
Set sht2 = Sheets(ActiveSheet.Range("D3").Value)
Set rng = sht1.Range("First_Line")
i = 0
Do Until sht1.Cells(rng.Row + i, 1) = ""
sht2.Range("Managers_Name") = sht1.Cells(rng.Row + i, 1)
sht2.PrintOut
i = i + 1
Loop
End Sub
translate this for me, step by step, as to what this Code is doing?
I have a spreadsheet with thousands of rows of text that I need converted from one language to several other languages.
Is there a macro I can use that taps into some free service, running down my page and giving a foreign language conversion for each cell?
[URL]
How would I go about putting the following formula into VBA code? The .008 would be going in field O8. =IF(AND(M8>5,M8<10,N8>5,N8<10), 0.008)
View 5 Replies View RelatedIt looks like the above has been inserted into my current workbook (by mistake). How do I delete it all (lots of the options have the remove option disabled)
View 3 Replies View RelatedI am trying to find a way to make a certain number equal a certain name. For example 1111 will equal Name1 in another cell and 1112 will equal Name2....
View 5 Replies View RelatedI have excel workwook with Month sheet Jan,Feb,Mar....Dec and YTD
In each monthly sheet i will have either "yes"or "No" in cell B66:K75.
Below is what i need to do in YTD sheet cell B66:K75. Each cell in TYD B66:K75 will have 12 digit number
Need to go thru each monthly sheet for each of the above cell and find if Yes or No and translate that into number (yes = 1, no = 0)
Example:
If B66 in Jan, Feb and Mar is Yes and B66 in Apr thru Dec is No then the number in YTD in cell B66=111000000000
I have 3 columns of data, column C has a number representing a length of time in months. I need to add a number to the end of each row (Column D), depending on the number in column C. Example:
If column C has a number between 0 and 3, the number to go in D would be 1. If column C has a number between 4 and 6, the number to go in D would be 2. Here are the list of possiblities (only 5):
0-3 = 1
4-6 = 2
7-9 = 3
10-12 = 4
12+ = 5
This will form part of a macro, so a VBA solution would be ideal. I thought of having a named range and looking up each row with a list of all possiblities. But i see that as rather crude. I'm hoping someone has a more logical solution they could share.
I am trying to create a formula that can translate true calendar dates when a date is entered IE 2/15/09 if with the normal formaula, it alwways calulates 30 days or even on 31 day months.
I need th formula to calculate actual dates and know when there is a 31 versus a 30 day month or 28/29 for February.
I have several hundred points in cartesian x,y,z coordinates. I used an Excel add-in program to calculate the equation of best fit to the points. The equation is:
z=A*x+B*y+C
where (for this case):
A= 2.29091
B= -1.77338
C= -192.494
My objective is to define the several hundred x,y,z points in cartesian coordinates about a new cartesian coordinate system whose origin is the centroid of the data points and whose z plane (ie z=0) is equal to the best fit plane defined above (when referenced from the original coordinate system).
Using Pro/e (a cad program), I was able to create the new coordinate system using the x, y, and z intercepts from the best fit plane, and then was able to redefine the points about the new coordinate system. After the points were redefined in Pro/e, I was able to export the points back to Excel; however, I would prefer to only use Excel / VBA because I prefer the calculations be transparent for optimal accuracy and validation.
I've developed a spreadsheet in Excel 2000 where one of the cells contains the number of months a quantity will last, calculated by taking the total amount and dividing it by the amount used each month (a constant).
I would like to have another cell where that number is translated into the future date that number of months represents, so that in addition to seeing how many months the total amount will last, one can see when the amount will be depleted.
For example, suppose it is December 9, 2009 (as it is now) and the number in the number-of-months cell is 6. Then, is there a way that when 6 is calculated, in another cell appears something like June 9 2010 or 6/9/2010 or 6/9/10 (assuming the computer's clock is correct)?
It would be nice if the formula would handle decimals too, such as the date for 6.4 months, but that's not essential.
Lets suppose that in a drop down box I have the words : "I" "want" "to" "create" "a" " sentence".
Well what I would like to do is have each word as selected in the drop down box, placed in another cell creating a sentence.
If you picked the words in order the cell should read: I want to create a sentence or it could read any combination of these words depending in the order they were picked. So it could read: I sentence want to create a sentence if the words were selected in this order.
How do I translate this to a vba code?
=INDEX('Workers List'!D3:D13,MATCH('Workers List'!C4,'Workers List'!C3:C13,0),1)
what i have done is
test = Application.Index(Sheets("Workers List").Range("C3;C13"), Application.Match(1, Sheets("Workers List").Range("D3:D13"), 0), 1)
But i keep getting an error, may i know whats wrong with it?
I have some data for international dialed numbers, I need to translate this into a country or destination name.
for example if the dialled number begins with 001, the is the united states etc..
I have all of the required codes, but they all differ in length.
ie 0033 is spain but 003356 is a spain mobile.
I was thinking that i could use VLOOKUP to find the relevant text to display, but this does not work with the varying lengths of the codes.
In Excel 2013, how do I translate all characters of selected cells to Unicode?
There is a formula to translate the first character into Unicode [=UNICODE(text)] and that formula would have worked fine for me .Only if it could translate all the characters to Unicode not just the first one.
In Excel 2013, how do I translate all characters of selected cells to Unicode? There is a formula to translate the first character into Unicode [=UNICODE(text)] and that formula would have worked fine for me .Only if it could translate all the characters to Unicode not just the first one.
View 10 Replies View RelatedHow to translate a specific number into a specific letter related to the number itself.
I have lots of different numbers for example all going down a specific cell (These numbers I want to separate into 3 different catagories. The positive numbers I want to be calculated as the same Letter that is next to that row directly over to the left of that cell.
So if the letter
B / cell / cell / +9 / Then I want if its a positive number like +9 to answer in the formula with the same letter (B) listed to the right in the same row in a different cell of course
B / cell / cell / -6 / Then I want if its any negative number like -6 to answer in the formula as the opposite Letter of (P) listed to the right in the same row in a different cell of course
P / cell / cell / +17 / Then I want if its a positive number like +17 to answer in the formula as the same letter (P) listed to the right in the same row in a different cell of course
P / cell / cell / -3 / Then I want if its a negative number like -3 to answer in the formula as the opposite Letter of (B) listed to the right in the same row in a different cell of course
and thirdly if its a (0) zero and only (zero's) Then I want the answer to stay (0) zero.
The number can be any numbers it doesn't matter. Only distinction is that positive number of +1 and up repeat and stay the same letter that the cell on the far left is already stated.
and all the negative number of -1 amd below all reverse the letter to the opposite letter of (B to a P) or (P to a B) listed to the right in the same row in a different cell of course
and of course (0) zero would be listed as a positive number and only return a (0) zero as the result of the formula.
In cell C2 I want to compute the value of 5x^6 + SQRT of 6, where the value of x is located in cell A%. What formula would I need to enter into cell C2 to do this?
View 9 Replies View Related