I'm working with a line of code I can't seem to get right. I've got this string that will put breaks in, but I've realized it would make my life easier if the code, along with inserting a break, then inserted a formatted gray divider, it would make it easier. Here's what I have:
Sub BreakSections()
'This macro breaks the new data on sheets into their individual groups, inserting a blank line_
'which will need to be filled with a gray dividing line
Dim i As Long, j As Long
Application. ScreenUpdating = False
With Sheets("Contract Manufacturers")
. Cells.UnMerge
i = .UsedRange.Rows.Count
End With
For j = i To 2 Step -1
If Not IsEmpty(Cells(j, 5)) And Cells(j + 1, 5) <> Cells(j, 5) Then Rows(j + 1).Insert
Next
Application.ScreenUpdating = True
End Sub
I've tried then to put this code in after the Insert:
But I end up getting a whole mess of gray rows, displacing a lot of data. Is it possible to do these things together, or I should write another macro that just looks for the blank spots? It seems like it would be easier to do it all at once.
I have Excel 2008 for Mac (vers 12.0). On a basic spreadsheet, the first column is for date which I have formatted so I can type in 15/8/9 and it appears as 15-Aug-09.
However, each time I open Excel after having Quit it, I have to reformat the cells in this column again as they revert to converting my date input with something like 39,123.
My other columns are formatted to currency and are always okay.
I'm trying to copy about 10,000 barcode over to a new spreadsheet, the prob is that when I copy them over they appear as XXXX+12 and then when I try and use them it doesn't like it. I can solve it if I format the column to text - and then double click it. This is ok for a hundred or so but fingers start to hurt after that!
I have a cell that calculates an etch time, eg 41.88. The cell is formatted to give me whole numbers and quarters only so that the operators input is made easier, in this case 42.
When I use a macro to copy this to another worksheet, although it appears as 42, the actual cell data is 41.88. Anyway I can get the actual cell data to be 42?
I have a project where if the user enters 'R' into cell H17 then cells B19:K19 are to be filled with black color. These cells are divided into three fields: B19:E19, F19:H19, and I19:K19.
When I select these three fields and use the conditional formatting tool the only cells that are black are B19:E19. Even though the rule explicitly shows that cells B19:K19 are to be affected. In order to have all three fields black I have to make three rules (one for each field).
The same behavior happens when I use the conditional formatting tool and select the cells from within the tool's dialog.
How can I get all three of the fields formatted with one rule?
I have a cell that I've formatted to dd/mmm/yy, It used to work, but now it doesn't. When I type in 1/2/03, the formatted cell shows 0-Jan-00, The formula bar shows =1/1/2. I seem to have a formula in the cell, but I can't get rid of it. I know it's most probably somethinmg I've done , but I don't know what. I've tried everything I know. I can't seem to re format the cell , and I can't delete the formatting in it. I'm stuffed.
this code works fine on my desktop but on 2 of work's pc's it produces a error at the msgbox line
Private Sub Workbook_open() 'http://www.ozgrid.com/forum/showthread.php?p=306542&posted=1#post306542 Dim dDate As Date dDate = Sheet16. Range("a1").Value MsgBox "Today is the " & Format(dDate,"dd/mm/yy"), vbOKOnly End Sub
i have changed the security settings in macro's and one of them was using office 2000, not sure about the 2nd one but i will check next time iam at the office and grab the error codes.
Is it possible to sum cells that contain numbers converted to text? I used TEXT function to convert them because I needed to format them (to display three decimal digits, if number < than 0.05, three digits otherwise). But now SUM Formula doesn't work.
I have two columns with entries consisting of numbers. I'm trying to match between the columns but some names dont match because of the formatting.
Example
065 matches 065 (I have that green triangle on the cell that indicated "The number in this cell is formatted as text")
However 120 doesn't match with 120 (only one of them have that green triangle)
I tried to format all the cells as text at it seems the match only works when the green triangle is available. The green triangle seems to only show its self when I double click on the cell. I have thousands of entries so that doesn't work. I also tried to use the "Text to Columns" but it coverts entries like 002 into 2 which I dont want.
I want to be able to "count" apples and oranges. Is there a way to record a particular text in a text formatted cell and count it. e.g. 10 cells, 3 say "apples", three say "oranges", 4 say "plums". I want excel to keep track of the three types of fruit when I change them and give me a running number of each.
I want to find strikethrough text and replace it with blanks. In my sheet there are cells that contain both strikethrough and normal text. I tried using the 'Find and replace' tool, specifying the format. I've attached a picture with the settings from the Replace window.
The problem is that Excel finds the cells that contain strikethrough text, but replaces with blank ALL the cell content. I would like to replace only the strikethrough text from the cell and leave the normal text as it is!
Column A has a custom format of 000. Therefore the numbers in that column always have leading zeroes if they're less than 3 digits long.
I want to copy these leading zeroes to another column, but I DON'T want to have to custom format the new column. I just want the values copied over with any leading zeroes, if applicable.
When I "Paste Special" and select "Values", numbers like "1" that show up as "001" in Column A will show up as "1" again in the new column. How can I get the actual value "001" to be all that's in the new column?
If it's easier for you, pretend I need to copy over these custom formatted values in to another program which does not retain any custom formatting.
I have been asked by my manager to make new shelf labels for all our stationery products for the VAT change in the new year. I'm sure I can get excel to help me make the task quicker but i'm just having trouble with pasting the formulas into the label template that I have to use, I was wondering if anyone could tell me why and if it is possible to do with the way I set the document out. Attached is what I have so far.
if there is a simpler way of doing this. The data sheet is the item description and the old price. The labels sheet i need to be able to print off in that format so i can cut it up and use the labels on our shelves. The formula for the VAT change is on the labels sheet, it works on the old price on the data sheet. I want to be able to quickly apply the formulas and format of the labels to more cells in the sheet so i can print off multiple pages of labels.
I have tried just copying the current formatted cells (A2 to C29) which I have seperatley typed the formulas into (takes ages) and pasting them beneath that. It doesnt continue the formula though. Instead of the next label cells formula carrying on and being Data!A43 it become Data!A29. Perhaps what I want to do is not even possible!
I need columns A, B, and C to have borders all the way around each cell in the row. Then, columns D through H need to be merged, with one border around the merged cell. The row height needs to be size 16 font, which I've been solving by putting in one letter that size, colored white so it doesn't show up when I print.
Basically, I have a spreadsheet of a bunch of tools, and I need to insert a row below each entry for the mechanics to sign their initials for three stages of the repair process, and also have the larger, merged cell for notes.
ANYONE KNOW, OTHER THAN CUT AND PASTE, A METHOD OF "flip flopping" names in a list, from last, first to first last? (maybe "telling"the list to separate into 2 columns the words separated by the comma, last in one column and first in another). I have a list of 360 names and not looking forward to cut and paste this list.
I have a whole number in cell C2, but i am formatted it in Cell C3 to always have leading zeros combined with the number in Cell C2, where the result will be 8 digits long. example, my number in cell C2 = 572 but i need it formatted to be 00000572, but if the number was 19 it needs to be formatted to be 00000019 and so on.
I have roughly 100 HTML files, each containing a single table of formatted data (created with the SAS statistical software package).
I realize that I can open an HTML file with Excel, do what I need (e.g., copy, format, save as an Excel file), but I would like to try to automate the process, if at all possible, even if it's simply open the HTML file and save it as Excel. That would save me quite a few clicks it seems.
Ideally I could pass a directory name to Excel (via VBA) and have a series of "operations" (i.e., save as an Excel file) performed on each HTML file in the directory, ultimately resulting in a corresponding collection of "new" files (in my case, Excel files).
If this was very fancy, I would love to take each HTML file and copy the one table in each, and paste into a separate worksheet in a new Excel file (so 100 HTML files would result in one Excel file with 100 worksheets).
I did try to generate a macro while using the Import External Data "tool", but didn't have luck with that (although I am able to get the tool to work, just not within a macro environment).
Need vba code for excel that will auto add a formatted row when a button is pushed? I have the button made, but I need it to move down a row each time a user clicks the add line button.
I have a graph that pulls data from a toggled list. Values include currency, percentages and general numbers. The data is set up as text to report as currency, percentages and general numbers. Is it possible to have a graph read these text values?
I am trying to calculate the difference in time between two cells and if the difference is >= 8 Hours the result is 8 hours - 1 Hour if the result is less than 8 hours then the result stands. I have the following, but it returns 8 always.
I'm trying to filter a long list to look for specific employee numbers. The employee numbers are so long that they have to be formatted as text or they are automatically formatted as scientific notation (they are 18 digits long). For some reason this is causing the filter not to work properly.
I am trying to write some code that will loop through the workbook (selecting all cells formatted as currency), updating the cell value and rounding to 2 decimal places. The updated price must be rounded as these prices are used in calculations. The prices are not in a contiguous range and are in different cells on each sheet, but all within the range (“B1:V200”) I need the user to enter the required increase I,e 1.05 (5%) in Price update sheet, cell “F6”, then run the code from this sheet (which will be the only sheet I do not want to run the code on, which will be the active Sheet) This is the code I have so far I don’t know if it will work yet as it errors out (Type mismatch) on this line. cell = cell.Value * Sheets("PriceUpdate").Range("F6").Value
Sub UpdatePrices2()
For Each Ws In ThisWorkbook.Worksheets If Ws.Name ActiveSheet.Name Then For Each cell In Ws.Range("B1:V200") If cell.NumberFormat = "$#,##0.00" Then cell = cell.Value * Sheets("PriceUpdate").Range("F6").Value cell = WorksheetFunction.Round(cell, 2) End If Next cell End If Next Ws End Sub
I am in need of a formula. I am subtracting one number from the other and if the result is negative, “Short” otherwise “Add”, I want to use subtracting result in the formula. So for example A1 has 50,000 and A2 has 40000 so the formula in cell A3, should say add $10,000.
Or something like this, =IF(A1-A2>0,”ADD”,”SUBTRACT”,”&TEXT(A1-A2,”$#,##0.00”)
The solution below to look up numbers in an array formatted as 10 characters as text. =VLOOKUP(TEXT(A1,"0000000000"),LOOKUPTABLE,2,FALSE)
This has worked well except now I have received the data and the text I want to lookup has been reformatted (previously leading zeros) to the number with trailing spaces, still a total of 10 characters but the above formula no longer works. Is there an easier workaround other than using "Find" to locate the position of the first space.
Receive worksheets with data in different layouts that needs to be moved into formatted worksheet with unique layout and field size to import in to Access database.
