I have two txt file where the report is being generated but importing it in excel and using text to column distorts the data plus it has a header which repeats on every page... how can delete those header and tidy the sheet up. I have attached the txt header example.. Any help on this.
View 14 Replies
how to remove the .xls from the header when using the the &[file] automatic method of gaining the file name?
View 5 Replies View RelatedSub filtertest()
Range("C17:L33").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("C13:C14"), CopyToRange:=Sheets("Combined Summary").Range("B7")
End Sub
This works fine - it filters the data in C17:L33 on the source sheet and then copies it to the combined summary (beginning in cell B7) but when it copies the data it also copies the header row - i only want to the data to be copied? - how can i amend the above??
Also - there will be a few tables i'll be amending the above code to work on as i'll be pulling them into 1 summary - how can i amend the B7 section so that they paste into the next free row - because at present they will just past over one another?.........
I have a workbook that is setup with headers and footers. To the right, left, and below the worksheet there are other pages greyed out pages that are not being used. Is there a way to change the view and potentially remove these "other sheets?"
View 3 Replies View RelatedThe basic spreadsheet consists of a list of names down the left hand side with 19 columns across - one for each art activity (I have pasted a copy of it below - but it doesn't paste so good!). Each person has selected their three activities and this has been recorded by placing a 1, 2 or 3 in the relative columns. Each person has been told that they will get a place on two out of three of their chosen activities (in which case we will change one of their choices to a 0).
What I would now like to be able to do is to create a mail merge in Word which looks at each person and then goes along that row to find out which columns have a 1, 2, or 3 in it. The heading for that column would then be used as a merge field so that I end up with a word document which looks something like this:
{Woodwork Stars} and {Cooking Sweets}
NameClassGlass
Painting
Candle
Centre Piece
Large
Nativity Figures
Beaded
Decorations
Advent
Calendars
CrackerPaint
Bowl/Plate
Xmas
chimes
Woodwork
Stars
Cross
Stitch
Sewing
Decorations
Recycled
Wreaths
Pompom
Robins
Clay
Xmas Tiles
Decoupage
Bowl
Cooking
Cake
Cooking
Sweets
Salt
Dough
Wrapping
Paper/Cards
Smith, Fred213John, Elton213Turner, Tina123
The column header row for a string; if the header contains one of two possible strings then copy the entire column. I've tried the following code but it's not working.
Select Case oColHeader
Case InStr(oColHeader, "how much", 1) > 0
Selection.EntireColumn.Copy
Case InStr(oColHeader, "level of sat", 1) > 0
Selection.EntireColumn.Copy
End Select
Import Mulitple Single Column Text Files
The code by Jindon works but only for the text files that do not contain a header. Can someone please telll me what I have to change in the code to make the code skip the header information (1st three line) when importing? Currently, if I use Jindon's code, it fails once it tries to import one of these text files. Here is Jindo's
Sub test()
Dim myDir As String, fn As String, txt As String, x
myDir = "c: est" '<- change to actual folder path
fn = Dir(myDir & "*.txt")
Do While fn <> ""
txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll
x = Application.Transpose( Split(txt, vbCrLf))
Sheets(1). Range("a" & Rows.Count).End(xlUp)(2).Resize(UBound(x,1)).Value = x
fn = Dir()
Loop
End Sub
I have my students down the far left column (30 rows) and along the top for each worksheet is the criteria which they must be able to do. If my in row 2 completes the criteria text above in column 5 for example, then I input a 3 which then adds the points and works out their sub level scores. However I am now in need of it being able copy the criteria above if a student on any row has a T(for target) in that box. I would then like that criteria to be copied to a master sheet which displays their name down the side and all the targets they have for that subject in the next column, so that they can be referenced for their report summary worksheet.
View 14 Replies View RelatedI've been using a nice colorful spreadsheet to use to schedule rooms for an organization. Visually it has worked out well but now I need to automatically generate a 'report' using that data. So...
I want to scan each row of a table and create another table with that data transformed.
That is, scan each row and whenever I find any text in a cell I want to return that text (the room being used) as well as the row and column header information (who is starting to use that room and on what date). I've attached a jpeg to show the example.
Ideally, when I scan the row and find text to return the headers I'd like the row scan to also find when the fill color changes and return that column header, too as that that would be the date that the room stops being used.
I would like to BeforePrint check Left and Right Header for a specific text. If the text is different then i.e. “XYZ Test” then call sub ClearForm().
View 9 Replies View RelatedIs there a way to link a header or a portion of a header to a specific cell?
View 14 Replies View RelatedI have the following two columns, and would like to obtain for each individual Company, the corresponding Country values excluding duplicates as text in a single cell.
Company 2Country B
Company 2Country C
Company 3Country C
Company 3Country C
Company 5Country A
Company 5Country C
Company 5Country C
For example:
- For Company 2, a cell containing "Country B, Country C"
- For Company 3, a cell containing "Country C"
- For Company 5, a cell containing "Country A, Country C"
I've approached generating an array using an IF statement, as in =IF(INDEX(A1:A8="Company 5",,),INDEX(B1:B8,,)," "), which returns the following array: ={" ";" ";" ";" ";" ";" ";" ";"Country A";"Country C";"Country C";" ";" ";" ";" "}.
The question is: how do I get that array to produce, as text in a cell: "Country A, Country C". Note that the duplicate Country C has been removed.
There are a few "StringConcat" User-defined functions that I've found elsewhere on the internet, but they don't seem to be able to handle to conditionally generated IF Index array, which I would think is key to parsing between Countries corresponding to each Company in the list.
I am trying to concatenate entries into one cell so that when uploaded, the comma-separated contents will be treated as tags. copperberry sample file.xlsxSee attached sample file. Wherever there is a 1 in a row, I want to take the column header text above that 1 and concatenate it with subsequent text in the cell at the end of the row. See sample end result in cell J2. I assume I need an IF statement, but I'm not sure how to phrase it to collect all the concatenations needed. There are 200+ rows.
copperberry
Windows 8.1
Excel 2013
Is it possible to copy text from a Excel worksheet and paste it into the custom header or can you just type in the three boxes?
View 1 Replies View RelatedI am trying to figure out a way to condense my code (improve my code) Right now I am using a Macro in Excel to go through a workbook by selecting each column individually and if there is something in the header then formatting that column as text. The problem with the way I am currently doing it, is that due to size limitations on the VBA code, I can only select columns A to Z, and if there is more data in the worksheet it is not formatted. Also I would like the code to check the header and if the word date is in there, format it as a date instead. Also if there is a way to delete any invalid ranges in the workbook
Sub Format()
Dim VarFileName As String
Dim VarPath As String
Dim VarSavein As String
Dim wsheet As Worksheet
VarSavein = Sheets("sheet1").Range("C2").Value
VarFileName = Sheets("sheet1").Range("A2").Value
VarPath = Sheets("sheet1").Range("B2").Value
Workbooks.Open VarPath & VarFileName
For Each wsheet In ActiveWorkbook.Worksheets
Sheets(wsheet.Name).Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:= Array(1, 2), TrailingMinusNumbers:=True..........................................
I have a column in which the cells contain values such as "012321 BGH YRK". Is there any way you know of that I can remove just the text from every cell and keep the numeric values? A mass operation because there are literally hundreds of these cells. I am using Excel 2001.
View 9 Replies View RelatedI've been trying find an appropriate formula to extract the column header from a table in a different sheet if the row header and value in that table is known.
in the lookup table the row titles (column A) are product codes, column titles (row 2, D through AX) are business names and the table values are quantity.
In a different table I have product codes in column A and in column B i have the max number/quantity of products for that code. In column C i want to put the company name associated with the product and the number/quantity.
I need to format C2 so that it removes all text that comes after a dash in B2, but if no dash exists, then it returns the text: Parent. For example, here are 3 values in B2, B3, and B4:
1234-s
1234-m
1234
In C2, C3, and C4 I'd like to have the following values returned based on the above values in B:
1234-
1234-
Parent................
I'm working with a large range of data in single columns and I want to remove all text characters (a-z) from the workbook. There are some cells which have text characters with numerical characters so I'm struggling to find a way to isolate them.
View 6 Replies View RelatedIn a cell there is text and numbers, example: ABC123. In an other cell I want
to show the numbers only (123).
I am trying to remove the last character from some text with:
Application.SendKeys "{F2}"
Application.SendKeys "{BS}"
Application.SendKeys "{Enter}"
But when I do this, it is giving me the object browser in VBE . . .
I have copy some data from other program which when paste, it give as text value with few space at end of the text value ie 120@@@ (@represent spacing).
I try using text to column to delimited the space but it not working.
I often get spread sheets to work with that have a non visable/printable character (') in front of them. I haven't been able to find a way to get rid of them other than editing each cell and removing it. I am sure there must be a way. I have attached a small sample of the cells in question.
View 3 Replies View RelatedI'm trying to use the SUBSTITUTE function to remove spaces from my cells in column A. The trouble is My formula is removing all the spaces from the cell. My formula is: SUBSTITUTE(A1," ","")
I do however have many cells that contain a space between characters 5 and 7 and spaces at the end of the cell which have been padded out to 15 characters long.Its only the spaces at the end of the cells I need to remove.
Got a slight problem; I am making a "worker-plan", where you should be able to write a name on one file and have it updated (removed) from the equivalent columns on another file automatically. Here's an example with two separate projects:
Project 1 before and after changes:
Attachment 257366
Attachment 257367
Project 2 before and after changes:
Attachment 257368
Attachment 257369
You can see here how I intended it to work. When one worker is moved from Project 1 to Project 2, that worker should also be removed from those weeks in Project 1. The previous worker from Project 2 should also be removed from those weeks (in Project 2).
Are there any formulas that can make this work automatically? All week numbers will belong to the same columns in all files.
Edit: There are 30 files that should be syncronized, not just two.. I could also gather all files into one file with sheets, instead of having seperate files.
1) In any cell, I would like to remove "Area#xxxxxxxxx" (where x are random numbers).
Example : "INFO Log - [sys] Area#541185471Character#46545"
2) I would like to remove x characters before a word.
Example : 2013-08-28.txt@INFO
I would need to remove 14 characters before the character "@".
I tried to play with the LEN and RIGHT/LEFT formula but so far, I can't get it to work... The idea is to parse some text and remove the part in red (I was thinking about using SUBSTITUTE).
I am exporting lots of data from a website and for some reason to do with html i am getting &nbsp; in a few cells in my description column (column C), i think that means "& " in html. this occurs in some cells but not others when i paste it into Excel. I would like to remove these characters.
I know I can do it with crtl H and the replace field blank but I would like a formula so in the future the user will simply have to paste information and then get converted information out (as they will struggle to use excel).
I'm trying to convert variable length strings which are being copied from a display and loaded into an array.
I have it working fine for the majority of the data, which comes in looking like "*ABC@US" or "*AABC@US"
However, some of the data looks a bit different, particularly lacking the @ symbol. So what I end up with is
"*ABC US*ABC US*ABC US"
What I need to get to is just "ABC US" FYI the US part can be 1-5 characters.
SO... I need a way to truncate anything after the second instance of the asterisk. Haven't been able to get it to work using various trim, mid, len, left, right, etc functions.
I know how to remove the first part of a text, but not the end. I have a very large amount of data in which the first column contains a product description and then the UPC code. I need to isolate the product name from the UPC code into 2 columns. I used =RIGHT(B2,14) to isolate the UPC, but since the length of the product name varies, I'm not sure how to isolate the product name. I have looked at using the TRIM and TRUNC functions without any luck. 'Text to columns' doesn't work because I have multiple spaces, 'Text to columns' would work if I could used 2 digits as the delimiter, but the function doesn't allow that.
Can someone please suggest a function or formula for this?
Here is an examples of how the text appears in the field. (Note: I only need to cut off the UPC code, I need the measure information to stay).
some really long product name 12 oz 5 bag 09-99999-99999
another shorter name 2 oz 09-99999-99998
I have a long list of around 400 phrases, all in their individual cells. My problem is some of the terms have duplicate words in them.
Here's an example: [URL]
Is there any way to remove this duplicate text from the cell?
