TTHBF251863100
147943F00KNQ TTHBF251863100
REF VINS DU MONDE SA
O/RTT HBF251863100
I need a macro to transform my multiple lines cell as above ( 5 lines ) into a one line cell as below.
REF VINS DU MONDE SA
As the cells needing changing will always be different it would be good if I could have a macro working on the selected cells only, not a specified range.
I have around 50 text files with similar design per attached file. I need to import the text files with criteria below:-
1. include file name
2. let user choose the folder
3. exclude data from "work in process summary" to "work in process cost totals"
4. only have one title in the excel files which all text files is combined "Item, Line ....."
5. If the text files do not have title like "Item, Line, ..." do not import
Is it possible to have all criteria listed above by running a macro?
A.txt
I have a column of cells with Customer info and address in each row, that I need to move into multiple columns. ie Cust name, acct #,address, city,state, zip the problem is ALL of the info for each customer is in ONE cell.To be clear, cell B1 has complete name address etc for one customer, B2 has the info for another, B3... on and on. To complicate matters as in the example, there is not a pattern in the lines. the first example shows the info beginning on the 2nd line of the cell, but the 2nd example shows info in the first line. I have tried the text to column fixed width. Didn't work because names and addresses are of varying lengths. Then I tried delimited, but there isn't a common separation between different data. I am using excel 2007. FYI I did go through many many threads and found some that were close to my problem but not close enough to work.
"
JOES TOWING SERVICE [0123451]
123 STREET
CALEDONIA FL 12345
"
"BUBBA / SHOP
ACCURATE AUTO SUPPLY INC [0234567]
21234 HYDRAULIC DR
LOCKWOOD OR 45678
"
I have a challenge where in have a list of about 4000 rows and each cell have mutiple lines. ( i know there is a thread about this but that did not address my issue).
So my data is as follows - (I have attached teh sample file)
"Pari bom - GP and CFO 02547895452 pari@gmail.com
papa bom - GP and CFO 23365789541 papa@gmail.com
mama bom - CFO 2587412589 pari@gmail.com
nana bom - CFO 2587412589 nana@gmail.com
masi bom - CFO 2587412589 masi@gmail.com
"
I want to be in a position to seperte each line in exclusive rows and then seperate teh name, number and the email ... the later eing easier but cant get my head around seperating the cells.
share a macro to copy cells from range C20:C300 and paste them in C2 on multiple lines. If possible two lines gap between each cell's value when they are pasted in C2.
View 9 Replies View RelatedI need a macro that will seperate multiple lines in more than one cell into multple rows.
Cells G-N contain multiple lines of data that I must split out into multiple rows; the multiple lines of data must be parced out into the same row.
I have values in a column of cells in the format (All numbers in a single cell)
34567,43510,'1'
44049,99820,'1'
11124,37373,'1'
etc
up to ten such entries may appear in each cell with an arbitrary number in each cell. They were entered using the ALT+Enter method. Is there an easy formula to extract each row (such as 44049,99820,'1') to use in a formula. If there are two entries I would like to write two separate rows like:
LINE 34567,43510,'1'
LINE 44049,99820,'1'
If a macro would be required I understand and could use that also.
I am trying to cut and paste from a PDF document into excel and a grab of text when pasted sits in three boxes instead of one. How can I manage this?
View 9 Replies View RelatedI am using Excel to generate a CSV file to load into a industrial cutting machine. The CSV file is used to import the cut list. As such formatting and the data per cell in Excel is important.
What I am presently trying to do is input the dimensions and type of the overall part and have the individual pieces be generated in a second sheet. I can presently do something of the sort using extensive 'if' statements. The problem with this is that I can only generate one line for every line I enter.
So this leads to what my problem is. I want to be able to have the info on 'Row one' 'sheet one' generate its parts list (which maybe 1-3 rows) and post that to sheet 2. Then 'row two' 'sheet one' generate it's info, but place it into the next unused row on sheet two. One of the issues I am having is that each row on sheet one may need to generate between 1-4 lines, maybe more, and I don't know how to not overwrite or have gaps on sheet 2.
Am I looking at going into macros or learning VBA?
I have a table in word that I'm trying to copy into excel.
The problem is one of the columns in the row in that table may have multiple lines with hard returns.
When I copy and paste into excel, the result gives me multiple lines. I want a single line, with the exact multiple text in a single cell. How can I do this?? Nobody in the world seems to know.
To try this set up a word table with a single row, 3 columns. In the 3rd column put the following value.
Value 1
Value 2
Value 3
Now copy the entire row and attempt to past into excel. Watch as it creates 3 rows.
I am trying to add multiple lines in comment. problem is the text to this mutiline comments is stored in a range
Range("J15").Select
Range("J15").AddComment
Range("J15").Comment.Visible = False
Range("J15").Comment.Text Text:="Line1" & Chr(10) & "Line2"
(This is recorded). assuming that range "A1:A15" is where text for this comment is stored from a different VBA program.(15 number of line is the max i have programmed to accept). assuming there are 10 cells currenty full. how can i add this 10 text lines to a comment box.
I have a problem that i don't know how to solve. I have one cell with values like this: 127;71;512;458;1250;722;2154;742;29;350;
and what to put in lines like this:
127
71
512
458
Has i have a lot of data in the cell and everyday it changes, i take several hours doing it manually. I have tried using the command data/ text in colluns but because i have huge data it leaves a lot out. Do you have any idea how to put that values in lines automatically?
I have 2 columns in Excel wich havn't the same amount of lines.
One colom is 65.000 lines and the other one is 64.000
I am looking for a option to delete 1 line after each 65 lines.
Is this possible?
I'm trying to remove a proceedure code or just line 3 if I could in the active workbook"ThisWorkbook" mod. However I'm having an issue with this code. how to remove all the code that is in "ThisWorkbook" mod? or just line 3 in that code. I have other mod that I want to keep. So I dont want to wipe out all the code from the workbook. Here is what I have but I get a sub or function not defined error.
View 2 Replies View RelatedI am attempting to write a macro that given a range of cells goes into each cell and deletes the text after the first bullet. An example of this would be:
The original cell contains: ....
I have 3 different sheets named:
USA
UK
DK
and 1 sheet named:
I would like to have a macro written that when runned will delete all data in line 2 to 1000 in the first three sheets and line 2 through 1500 in the compilation sheets
I have a complex worksheet that I have some duplicates that I want to merge the data together with Daily. The problem is now the process is getting too long due to the data size increasing. Access will not be a feasible solution at this time.
Column A would have the matching info.
The cells I want to copy are in columns AM:AP
Way it looks now:
A, [Col B:AL], AM, AN, AO, AP
Product#, [B:AL], New List, ID, Vendor, Rep
07256,[Data I want to leave],,,,
07256,[Blanks],HighRisk,32,59,1732
Way I want it to look:
A, [Col B:AL], AM, AN, AO, AP
Product#, [B:AL], New List, ID, Vendor, Rep
07256,[Data I want to leave],HighRisk,32,59,1732
Delete the second row after the data was merged and look for remaining matchs to do the same.
After it is completed have a message box indicating the number of records that this was done to.
i'm trying to tweak Chip's code [url] to include the body of the module as well.
it works, but when there's blank lines in-between modules it'd show less of the modules.
is there a way to delete the empty line in VBE?
or did i miss something out in the code below?
Sub ListProcedures()
Dim VBCodeMod As CodeModule
Dim StartLine As Long
Dim Msg As String
Dim ProcName As String
Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("MyModule").CodeModule
With VBCodeMod
I have a list of values. they are in C2:C25
I want to go dorn column B, starting at B26:B, and if the value in B equals any of the values in C2:C25 than delete that entire row(not just delete the word, because there are values in column C and D that I need gone with the C value).
I'm writing a macro in excel that edits a text file runs another program that uses this text file as its input and then stores the results. Perameters are then changed in the input file and it is then repeted over and over again. One of the parts I am stuck on is I need to delete the last 5 lines in the input file called INPfile.txt. See below:............
This section is always at the end of the file, is 5 lines long and always starts with [DEMANDS] and always ends with [END].
I'm trying to apply an autofilter to do the ol' "delete visible lines that meet criteria" trick. Unfortunately my vb macro, although applying the string correctly, hides all of the lines...
This is the part of code relevant to filtering (i'm trying to filter on column M which is 13):
I have tabulated data from columns A to I, in column B words different only in last letter, going from A to C,
column F=Date and column G=Hour, something like this: ...
I have 2 lists of codes with values tied to them, columns A & B, and columns C & D. Column A is a list of the codes in use, and column C is every code possible, I need to line up the codes and shorten column C to match column A, while retaining the value that is tied to each code so that I can compare Columns B & D easily.
View 2 Replies View RelatedI have a public/shared Excel 2007 workbook on our network and someone colored an entire column yellow. When that happened, it increased the number of rows to over 655,000. I didn't know that was posible but they are there... The thing moves very slowly now and when I try to delete (45,000 lines at a time), I either get a error window telling me I don't have resources to perform the operation, or I do smaller chucks and after 30 minutes deleting lines, it will not save.
I would rather not have to recreate the whole workbook if I can delete the lines on this one page.
In my userform I have a list of check box's that can be selected. Currently if more than one is selected, they will appear in the spread sheet in the same line one after another with a space between them. How do I make it so they either appear with a comma appearing after each, so the next value appears on the next line below or most perferably the cell turning to a drop down list with the values?
Current code
VB:
If CheckBox1.Value = True Then ws.Cells(iRow, 2).Value = ws.Cells(iRow, 2).Value & " " & CheckBox1.Caption
If CheckBox2.Value = True Then ws.Cells(iRow, 2).Value = ws.Cells(iRow, 2).Value & " " & CheckBox2.Caption
If CheckBox3.Value = True Then ws.Cells(iRow, 2).Value = ws.Cells(iRow, 2).Value & " " & CheckBox3.Caption
If CheckBox4.Value = True Then ws.Cells(iRow, 2).Value = ws.Cells(iRow, 2).Value & " " & CheckBox4.Caption
If CheckBox5.Value = True Then ws.Cells(iRow, 2).Value = ws.Cells(iRow, 2).Value & " " & CheckBox5.Caption
If CheckBox6.Value = True Then ws.Cells(iRow, 2).Value = ws.Cells(iRow, 2).Value & " " & CheckBox6.Caption
Spreadsheet current cell appearence if all 6 are selected ' Chinnook EH101 Lynx Puma Sea King Fixed Wing'
Required appearence:
Chinnook
EH101
Lynx
Puma
Sea King
Fixed Wing
I have to the following lines in the header (left side).
Canadian Mutual Fund Industry
Gross Sales By Fund Company
As at January 31, 2006
(FYTD Tier 1 Firms)
(C$ 000's)
the date is Strored in strDatey. the problem I m having is that I don't know how to make muliple lines in the header through the code.
Private Sub CommandButton1_Click()
Dim strHeader As String
Dim strDatey As String
Sheets("FYTD Gross (Tier 1)").Select
strDatey = "April 20"
MsgBox (strDatey)
strHeader = strHeader & "Canadian Mutual Fund Industry " & strDatey ' text strDatey
ActiveSheet.PageSetup.LeftHeader = strHeader
End Sub
I have a list of projects and a list of milestones and I want to extract every milestone for a project one by one. I have found a way to do this for one project but as there is not a fixed number of milestones, it's proving tricky to do it for multiple projects as I don't know how to tell the formula to stop looking at the Project 1 and move on to Project 3 for example.
This is a very very simplified version of my table (there are other columns inbetween and many more projects)
Project 1Milestone 1
Project 1Milestone 2
Project 1Milestone 3
Project 1Milestone 4
Project 1Milestone 5
Project 2Milestone 1
Project 2Milestone 2
Project 2Milestone 3
Project 2Milestone 4
Project 2Milestone 5
Project 2Milestone 6
Project 2Milestone 7
Project 3 Milestone 1
Project 3 Milestone 2
I have a list of car-dealers and licence plate numbers. f.e. data in tab 1 Supplier-Cars.jpg
In another tab (let's call this tab 2) I have to make drop-down lists, depending on the value in this drop-down the cell next to it must give the list of cars from this supplier. f.e. if I select in the first line Supplier 1, I get a drop-down list where I can select Car 1 if I select in the second line Supplier 4, I get a drop-down list where I can select Car 4, 6 or 7 etc. Because of the number of suppliers, I can not work with predefined lists where I put all the suppliers one next to the other...
have a drop-down in each line to go look for the cars depending on the supplier I selected ?
is there possible to freeze multiple line and column in one sheet i.e freeze line 1 and column A1:A10 and free lines 3-10 and then freeze line 11 and free lines 12: 20
View 1 Replies View Relatedhow to copy cells from different columns to another workbook and to do this for several lines? The macro stops at the blue line
For i = 8 To WS2.Cells(Rows.Count, 3).End(xlUp).Row
If MySheet.Name = WS2.Cells(i, 3).Value Then
WS2(i, 4).Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Destination = WB1.Worksheets(table(z)).Range("G10")