1) Numerous cells in columns A and B on a w/s have a combination of two fonts each.
For example, cell A1 shows # 15 on the Formula Bar. The # sign is in "Wingdings 3" Font and 15 is in "Arial".
Cell A1 correctly displays |15 (i.e.; up arrow,space,15).
2) Other cells on the w/s reference those cells.
For example, cell C1:: =IF($J$5="Vortex",A1,B1)
When the above condition is true: Is there a way to return | 15 (i.e.; up arrow,space,15) in C1 , exactly as displayed in A1 ??
if it is possible to concatenate multiple cells that have different font formats? For example; cell A1 is font formatted SYMBOL and contains the letter "D", cell B1 is font formatted ARIEL and contains the word "delta". What I am trying to do is concatenate the two cells while maintaining their font formats.
I'm looking to set up a spreadsheet whereby individuals answer questions and have to format their answer using a particular font, colour, font size and so on. The idea is that I can then compare their answer sheet to a pre completed one using an =IF function and get a total score. The only problem is =if and =exact only lookup cell text/numbers and don't look at how the text is formatted within them.
Every day I receive a csv file of NAMES, PLACES, ADDRESSES, IDS, SPECIAL ID (ETID), ITEMS, QUANTITY, AND OTHER INANE INFORMATION. which is a list of people from places that are ordering item(s) for each ETID)
I CONVERT TO EXCEL BECAUSE I HAVE TO CLEAN THE DATA FORMATTING, AND SPLIT A COLUMN INTO 2 (LAST NAME AND ETID ARE TOGETHER).
I need to put the items into a form, one order per ETID.
I tend to receive on NAME, PLACE, ADDRESS, sending orders for multiple ETIDS.
I don't know the easiest or best way to get the info into the order form. I have designed the form in word and excel.
I'm new to VBA. I'm trying to write a macro that toggles between three or more font colors for the cells that are selected. I started with the "record macro" feature and then tinkered with the code because I obviously don't have a very good understanding of this process yet. How would I go about writing a code like this?
I am creating a MIS for my team. But I am now struck while creating dashboard. I have a workbook with 12 raw data spreadsheets for specific months. Now what I want is that in 13th sheet if I select January then 1st cell in 13 sheet will show the value January cell 1 value. However if I select February then 1st cell in 13th sheet will show the value of February cell 1 value.
I have a list box in sheet 3 of my workbook containing a list of various vehicles and I want to be able to select certain data from it and transfer it to a single cell on sheet 2. Is there a formula for this. I tried entering the data into individual cells and then copying it to a single cell but it keeps pasting all cells seperately.
I am working with several userforms and try to transfer data obtained in one userform (lets call it Userform1) to another (Userform2).
Specifically, the idea is to have a commandboxA where the user can choose several options and the selection will define a string, and I want to use this string in Userform 2 to define a text.
Example:
The user chooses "solid" in the commandbox and I define the string as "rock"
Dim structure As String If commandboxA1.value = "solid" Then structure = "rock" etc...
And in Userform 2 I would like to combine the string structure with other strings, e.g.
If commandbox.value = "example" Then example text = "example text@ & structure & "text"
However this does not work, because the string which I have defined in Userform1 is not defined in Userform2. How would I define the string specifically, such that I have access to it in both userforms? How can I define the string as public? I tried several times, but could not get it to work.
The goal here is to select the worksheets in one list box and transfer it to another. Multiple Selection is allowed. I am having 2 question i am struggling with.
Question 1 - When passing the sheet names from List Box 1 to List Box 2 (using Add button) i would like the selected items of List Box 1 to be deleted after transfer. I thought i could access this using the command below but it does not work properly -> error message.
Question 2 - When the user is done the ListBox 2 need to be stored. When I save then close my workbook and then reopen it, i would like to be able to access the selection that the user has made before closing the worksheet. How can I store the content of ListBox 2 to achieve such a result. I guess i could use a use a hidden Worksheet where i could store the selection into some cells but i would like to know if there is a pure VB solution.
I import data into an excel spreadsheet where a unique job number may have multiple costs against it. These import as separate lines, repeating the job number.
The data imports on a sheet called 'DataImport'. From that sheet I transfer some of the imported fields onto another sheet.
What I need to be able to do is transfer the job number and a sum of the costs onto the other sheet.
The data is run regularly and I delete all the fields on the DataImport sheet in the macro each time the import is run.
For example I have three columns named Name, City and Telephone.
UserForm1 has three textbox(TextBox1, TextBox2 and TextBox3). All three textboxes data populated from sheet1 (Name, City and Telephone) by selecting a comboBox.
The code is below... and which is working fine.. The problem is in my next code. I am trying to amend data in all worksheets but it is not working.
Private Sub ComboBox1_Change()
Dim strNamedRange As String Dim lRelativeRow As Long
With ComboBox1 If .ListIndex > -1 Then strNamedRange = .RowSource
I try to transfer a data from multiple worksheet in a same 2 identical workbook. One I keep for me and the other one will be update by the user. So I need the data update by the user can be transfer to my workbook and only the new data not the one that already in my workbook. I try with the code below but it seem not working. The code run but nothing being transfer.
I am looking for the best way to change the font of cells in a Worksheet that contain a formula. I have used Go To-Special-Formulas but have one slight problem with this method. It highlights all cells that contain an "=" sign. Some cells may be linked (ie cell A2 may say =cell A1). How would I change the font only for cells with a Function such as Sum or Vlookup and not for cells that simply link to another cell?
I have a rows of cells,each with over 30 columns.The writing is in 3 fonts,blue,black and red.
I want to award a score of 1 for a blue font,0 for afont cell and -1 for a red font and then get the total score for each row,to place in an additional column on the right.
I have a new spreadsheet that I made to give us the break down of each invoice we create. what we want is to see each job that is done (by code), the amount we charge per each, the cost of goods per each, and the profit margin. In this spreadsheet I have two tabs. in tab one it has the form I made that has a place to input the data that will change with each invoice as well as a section that is broken down into columns. In these columns I have it listed this way. CA=Job code, CB=Job Description, CC=how many, CD=Charge ea., CE=rate total, CF=COGS ea., CG= COGS total, CH=profit
I have the formula done for all of the math the get the totals. My idea was to make a second tab. In tab 2 I have everything listed in columns that will go into tab one. It is broken down like this. CA=Job Code list, CB=Job Description list, CC= charge ea. CD= COGS ea.
What I want to be able to do is when I type in the job code in the first cell under the column A on tab one, it will bring over all of the info from tab 2 and put it in the right spot for that code. So if I typed in say TT001 in that cell it would bring over the description matching that code and put it in the cell under B, along with the charge in column D, and the COGS under column F. And I want it to be that way for each code I type in and it will be different each time I fill this out. How do I explain this part? Ok so I a new invoice made its # 22. I take this spread sheet and do what I want and get all the totals so I print it out. I then want to be able to clear all the info and or just type in a new set of codes that will be on invoice # 23 and then #24 etc.
So what I am saying is the codes will be different each time I fill it out. that's why I have them listed on a different tab and will just put them in tab one long enough to get the total and print it out. Is that clear as mud? I will stop here and wait and see what questions I get back.
I am trying to automatically transfer data from nonadjacent cells (C1, B5,B10,B16,B22,B28) from multiple workbooks in a masterworkbook folder from A2:F2. I am a novice at VBA. I am not able to copy as Range("C1,B5,B10,B16,B22,B28") and the way it currently is coded only the last copied range (B28) is pasted to the master workbook. The data pastes to A2 in the master workbook instead of F2 where I want it. I need copying the cells from the workbooks into row 2 in the master bookbook. Here is what I currently have:
Sub LoopThroughDirectory() Dim MyFile As String Dim erow MyFile = Dir("C:ToolFolderWorkObjectives")
I have been given the following code to transfer data from multiple workbooks within folders and subfolders to retreive the same line of data from each of the workbooks and place them in a master workbook.
the folders are set up as follows,
there is a main folder, (a yearly folder) within this are 12 monthly folders (named January to December) within these are four weekly folders (named week 1 -week 4) contained within these weekly folders are the workbooks that i wish to copy data from.
for example a1 - k1
the code i am using transfers the file names but comes up with #REF! instead of transfering the data
I have a column of names, some of which are manually formatted with the strikethrough font.
I need to know how to count the cells that contain text formatted in this way. This total will then be used within a longer formula to produce a net result.
I have found tips on counting coloured cells but none that seem to apply to this form of font format.
I am trying to delete certain cells within a range of data (A13:E29) that have white font or #N/A's. The only information I need is the black data. I have to manually go and clear these cells for many different ranges. I'd like to incorporate a macro that analyzes the range first to delete the values that are white font or #N/A.
I'm using some basic code below in an on Workbook Open event to format cells with a value less then 2 and less than 1 with a particular color.
The code works, but it really slows my worksheet down when opening. Is there better way to write this?
Code:
Dim myRange As Range Dim cell As Range Set myRange = Range("V6:V50000") For Each cell In myRange If cell.Value < 2 Then cell.Font.ColorIndex = 5 If cell.Value < 1 Then cell.Font.ColorIndex = 3 Next
if the first character of the cell is number or * then copy that cell(row i ) and the cell above(row i -1) to sheet2. I am not sure how to check the first character is *.
I created UserForm for people to enter there details into this form. I designed it ok, but i need it to, once it is filled in to copy what is entered onto a page in the spreadsheet.
So someone enters there details into a form that appears but then i need their details to appear on the spreadsheet at the click of a button.
I have the mask edit box functioning quite well. However, when the data is transferred from the userform to the worksheet, I cannot get the data to format to the preset format of the cell it is populating. The phone number displays as ########## instead of (###) ###-#### as it is formatted to do. Here is an excerpt of the transfer code I am using:
