I have a excel sheet that contains about 8000 entries... I need to create a macro to help me. my file is like this:
123
RT4
eliott.billy
mark.garth
elena.david
I would like to split first name and last name. All the ligne that contains "." split it in 2. Example: eliott.billy will become eliott (column A) billy (column B)
Part I... I got the answer 1987, and now I want Excel to take the numbers out and display... 1 in one box then i set + in the next, then 9 in the 3ed. box, next box +, then 8, then +, then 7 in the last so that i can have Excel make a SUM of it all to 25.
How do I split 1987 and put the numbers in different boxes?
Part II... I want to make A=1 B=2... all the way up to 9, then start over again with J=1 K=2... up to 9 again and then over again.
So that if I write my name it comes out as a value of 14 (Odd = O=6 D=4 D=4 =14)
(AJSØ=1 BKTÅ=2 CLU=3 DMV=4 ENW=5 FOX=6 GPY=7 HQZ=8 IRÆ=9, It's the Norwegian alphabet, that's why there are some extra letters)
So how do I set up my Excel so that is ANY name is typed in I can get it out into a number from the values assign?
Code: Sub SplitApart() Dim data As String data = Sheets(1).Cells(20, 1).Text For Each EachSplit in Split(data) n = n + 1 Sheets(1).Cells(20, n + 1) = EachSplit Next End Sub
Error code when Debugging on "Split":
"Wrong Number of arguments or invalid property assignment"
I have some data that is imported, it's about 25,000-30,000 characters and 2,300- 3,500 words, it all comes in as one cell, A1, if I do a text to column on it I will loose everything past column IV. Is there anyway a macro can take the data and put each word in a cell by its self starting in A2? The words a have a space between them.
i have wordlists which i would like to enhance through texts. For that purpose i need a macro which reads a text and splitts it into words and put the words into three columns. Lets assume the column where the words are supposed to be put is columns A,C and E. The column A should contain single words containing no spaces from Text, column C should contain compound words which have one space between them and in column E those compounds which have two spaces. Now i will put my existing wordlist in column G before i start splitting texts. The macro should put only those words from text into column A,C and E which dont already exist in columns A,B,C,D,E,F and G. In Column B i will place the corrected or checked words from column A. In column D i will type the corrections and checked versions of those compunds existing in column C. And the column F will contain the compound words which are corrected and checked from Column E.
Column A--> single words splitted from text through macro (containing no spaces) Column B--> corrected and checked versions of words from column A through user Column C--> compound words containing one space splitted from text through macro (for example:"etwas möchten" or "do something") Column D-->corrected version of C through user Column E-->compound words containing two space splitted from text through macro (for example:"sich uerberzeugen lassen" or "down in dumps") Column F-->corrected E Column G--> existing dictionary wordlist through user
Signes like ".", ":",";", "/" or quotation signe itself should be seen as seperator. And the words or compounds splitted from the text should not contain these signs.
The text will be put in another sheet in the same excel file. Lets call that sheet "text". The macro should search for words through whole sheet ignoring empty cells or columns.
None of the columns should be filtered or ordered. The columns shound not be deleted as well. That way the user wont have to correct the same word each time cus the corrected as well as the original words will be there.
A thread with similar purpose was made sent by AdamDay as well, where rylo has posted a good solution already.
I have huge columns of data that can only be 30 characters long. I want to use a formula to split the column into two. The original column will have a character limit of 30, and should not cut words in half. If the Length will be more than 30 while including the entire last word of the cell, that word should be the first displayed in adjacent cell in the 2nd column.
The 2nd column can be any length.
I usually use a Text to Columns method, but dont know how to make it not cut off the words.
I am suffering with split a long descriptions into 3 cells with criteria 1st cell not more than 30 characters, 2nd cell not more than characters and 3rd cell will locate the remaining characters there. I think this is quite easy if I use LEN/MID/RIGHT/LEFT formula. However, I wish the formula will smart enough to split word by word. refer to example below:-
"My lecturer replied, that i really did very bad in final, nothing's gonna change my plan."
If I use left(A1,30) formula, the result is "My lecturer replied, that i re"however, the word "really" is cut half way. I am finding the formula that split description to not more than 30 characters and won't cut my string and become incomplete word. Expected result should be 1st cell "My lecturer replied, that i", then "really did very bad in final," at 2nd cell.
I'm looking for a macro to remove all words (in a single word per cell format) in a range (approx 100 columns & 7000 rows), except for a list of 100 words.
These names are in Column A. I want to split the first and last name into Column A and Column B of my spreadsheet. I Usually copy row 1 to a txt file then import with "space" as my delimiter. I basically want an automated method of doing this.
I'm using a CALL Macro to split up a HUGE macro into different pieces:
Code: Sub RSLDASHBOARDV2() 'Macro recorded 12/14/2010 by Ryan R. Koleno, Pharm.D. 'Last Updated 7/10/12 by Ryan R. Koleno, Pharm.D. 'Do Not Modify Code Unless Given Proper Privileges to do so. Dim APPSPD As Worksheet With Application .ScreenUpdating = False .Calculation = xlCalculationManual
[code]...
The first few macros dealing with page setup and what not work fine but when it hits the Pivot table code for the STATSPIVOT macro it errors out stating: "Run-time error '1004': Unable to get the PivotItems property of PivotField class' at this point in the code:
Code: objField2.PivotItems( _ "TRC").Position = 1 objField.PivotItems( _ "MEDCO MAIL OR AOB").Position = 2
When this macro is not split up it worked fine as written. Am I overlooking something in the Call Macro's code or is there a variable I'm not aware of. I have included the Pivot Table code that errors out as well.
Code: Sub STATSPIVOT() 'STATS PAGE BASED ON STATS DATA TAB Sheets("STATS DATA").Select Dim objTable As PivotTable, objField As PivotField ActiveWorkbook.Sheets("STATS DATA").Select Range("A1").Select
I have a column of words in Column A and I want to replace all the times that these words appear in the rest of the excel sheet with the words in Column B. If someone has already answered a similar problem link me to the thread because I can't find anything.
I've been using conventional method to do this and it's time consuming. I would like to total up 2 column. A multiply B to be exact. Below are some examples:
Table 1 - Before totaling up:
Quantity Product 5 2 x Button A White 3 4 x Button B Pink 4 5 x Ribbon A Black 2 3 x Thread A White 6 2 x Cloth A Blue
Table 2 - After totaling up:
Quantity Product 10 Button A White 12 Button B Pink 20 Ribbon A Black 6 Thread A White 12 Cloth A Blue
I need to have the sum of the "Quantity" multiply "Product". Or in short A x B. And the end result need to have the number and "x" sign removed while keeping on the the products names. (2 x ) Take note it's "number" space "symbol" space.
I am look for a macro that can look through a range of cells within a sheet and sorts that range of cells by word count.
I have 1 macro that is excellent which sorts by character count.
If possible, if this macro can be duplicated exactly the same, but to sort by Word count and not character count.
As a note the range of cells are always in a sheet labelled " AllKWs" Always start from Cell A3 running down. And the phrases could be anything like "car to rent in london"
As to the macro I have already for character count, it is this kindly written by VOGII
Sub NoOfCharacters() Dim lastrow As Long, TotP, TotC, AvC lastrow = Cells(Rows.Count, 1).End(xlUp).Row If lastrow < 4 Then MsgBox "Nothing to sort!" Exit Sub End If
I have a set of numbers (representing time), and I need a macro that will generate a split of these numbers that both have an equal sum (or as close to equal as possible). Also, everytime the macro is run, a different split should be created.
I have file that may contain about 100 or more rows depending on the request. In column A, i have several names that is seperated by comma in ever row so basically what i want to do is to remove each name and insert a new column and paste the removed name in the new column and keep doing that until only one name is left for each row. I would like the code to check every row until the last row of the file and perform the splitting method that i have mentioned above. Pls. note that some row may contain only one name in this case we don't need to copy and insert new column but if the row contains more that one name then i would like to split it as shown below. I have attached file for details. I really appreciate for your help.
Here is an example of the current issue Mike, David, John Eric, Dave Joe, Johnson, Edward, Ellen Thompson, Adrienne.........
I need to split a worksheet into new workshets in the same workbook using customer names in column D which includes subtotals. However, the macro i am using splits the customer name and customer subtotal into different sheets as the customer name now contains "total" so the macro doesn't recognize this is the same customer.
E.G
Customer name Kwik Fit Kwit Fit Subtotal Mail Marketing Mail Marketing Subtotal
I need the macro to split the above customer names so that the customer name including the subtotal gets split into a new worksheet AND the new worksheet is named after the customer name.
I am aware their are add ins for such tasks but i am using this at work and cannot install any files.
Code:
Sub Lapta() Dim lastrow As Long, LastCol As Integer, i As Long, iStart As Long, iEnd As Long Dim ws As Worksheet
I would love to be able to click on an assigned button in a new sheet, and a pop box appears.
Then I can type in a word, click find, and the macro will go through my whole list of keyword phrases and find all the words STARTING with the word chosen in the pop up box.
Yes, I could just sort from a-z, find the word, then copy and paste etc. But I work with large lists sometimes, and its just so much easier to type the word, click find and the macro returns the list of just the phrases with the starting word I've chosen
As a note. I did put a post up a while ago which a coder called Jindon solved which works perfectly. (A great job by the grand master) This macro finds the words ending with. So, what I would really like is exactly the same macro, but it finds words at the start of a phrases not the end of a phrase. I'll post Jindon's macro now
Sub Find_Words_Ending_In() Dim sTime As Single, res As String, msg As String, x As Range Range("c3:c" & Rows.Count).ClearContents res = InputBox("Enter word to find") If res = "" Then Exit Sub sTime = Timer On Error Resume Next................
I am trying to find certain words in a column and delete the word and characters following. For example, Say I have a column of info as seen below. This is a test of me. I am just experimenting with this stuff. Deleted (6/15/01) Let me know what you think. I am not sure about it all, but I guess I will figure it out. riviledge1 (01/05/06) Now let's see what happens when I try to test it.
I want to find all the "Priviledge1 (01/05/06)" and replace with nothing. Please note, the date will change with each record, so I need to figure out how to tell Excel to find "Priviledge1", delete it and the date behind it. So I want to delete "Priviledge1" and the next 11 characters including the space.
On to the topic, I have all the US and Canadian states abbreviated (CO = Colorado, etc.) and was wondering if there is a way to make all of them convert to their respective names in one fell swoop instead of writing it in for each one, one at a time. Something along the lines where I can make, CO = Colorado, TX = Texas and then hit enter and all of the abbreviations would convert. Some kind of command.
I want to sort on number of words, i.e. if a cell contains 1 or 2 words etc, with the cells containing 1 word coming first then cells containing 2 words. Also, if possible, first the cells with fewer characters.
I have tried Sumproduct and Countif and can not get a proper count of rows that contain specific words in multiple columns. I have attached an example spreadsheet where I am looking for a result of 7 rows that contain 1 to 4 specific words within phrases. The example looks for the words: "virus", "spyware", "malware" & "adaware", and ignores any other words like "aware" or "ware".
I have 4-5 separate lists of words/letters and I would like to combine them in a certain order but creating all possible combinations resulting a new word. It's like a conjugation tool for verbs. For example if List 1 = be/el/ki/meg; List 2= m List3=e/é; List4= gy/" "; List 5=" "/ek/sz/nnek So the output has to be (if the order is List1+List2+List3+List4+List5)= bemegy/bemegyek/bemegysz/bemesz/bemész/elmegy/elmennek/ ..... and all possible combinations.
Preferentially I would like to automate it in a way that it straight outputs into MS Access. Also can it be automated that it reads the list from a file (database)? (Also can it recognize the word by letters? Because the basic word that I would load the program= List2+List3+List4)
I have a spreadsheet with approx 7000 rows, many of which contain the same item but with flavors and other variations on the end. An example would be:
VB: A B 10142 6kg of whey bundle With Free protein shaker-Banana 10143 6kg of whey bundle With Free protein shaker-Chocolate 10144 6kg of whey bundle With Free protein shaker-Strawberry 10145 6kg of whey bundle With Free protein shaker-Unflavoured 10010 **Bodybuilding Warehouse Premium Whey Probiotic - 2.2kg 10011 **Bodybuilding Warehouse Premium Whey Probiotic - 2.2kg + FREE Shaker
Would it be possible To create a New column (column C) which would display all common words from row b into the New column Like below?
A B C 10142 6kg of whey bundle With Free protein shaker-Banana 6kg of whey bundle With Free protein shaker 10143 6kg of whey bundle With Free protein shaker-Chocolate 6kg of whey bundle With Free protein shaker 10144 6kg of whey bundle With Free protein shaker-Strawberry 6kg of whey bundle With Free protein shaker
[Code] ....
I've attached a larger sample of our list to get a better idea of different variations that are on the spreadsheet.
I think what we need is something similar to this thread[URL] .....