Check Text In Cells And Delete And Add Column Accordingly
Nov 1, 2009
I receive thousands of raw data every week as shown in the excel sheet {raw data}
I would like to use a macro that could automatically sort the raw data like the format in the excel sheet {template}
For example:
Looking at the raw data and compare with the template, i would have to delete the whole columns that have (BU_CODE , EAN_CODE, SUPPLIER_CODE, SUPPLIER_NAME , BRAND_NAME, and SUB_CATEGORY_CODE) and add in columns and name it as Principal, Cateogry , Brand and range).
I have a worksheet for a mailing list with name, address and other information. I need to search for the text "board" in the name column and if it is found, add a code to a different column.
Column Y-has Y, N entered in cells Column R-has 1,2, etc... entered in cells (some cells have color index 26) Column O-has 1, 2, etc... entered in cells (some cells have color index 3) Column G-has names entered entered in cells (some cells have color index 38)
I need the macro to check if Column Y has a "N" and then if it does check Column R, O, G and if there is no color index in any of the Columns the macro will delete the row.
If Column Y has a "N" but Column R, O, G has a color index it will not delete the row.
There are 3000 rows on the spreadsheet and the macro would need to go through all the rows.
Trying to figure out a VB Script but don't know where to start.
I have a sheet for each month. lets take September 2013
A Column with 200 Servers (A1:A200) on the Intranet listed as server-1/, Server-2/ Server-3 ... Server-200/ Each Server lists a location of a file for each day (31 columns per row)
I am trying to check for the existence of the files on each server (The Cells contain the URL and File Name in Range B2:AF201) starting with server-1 check the URL in B2 if it exists, go to C2, Continue with that row until the file check is False (The Page will show a 404 error) if not found delete cell url and continue. do this for all 200 rows
What I am attempting to do is search if 2 cells contain specific text. For example in Column C I want to output "Yes" only if cell A and B are Yes otherwise the output is "No".
ABC 1YesYesYes 2YesNoNo 3NoNoNo
I have tried =IF(A1=B1="Yes", "Yes, "No") to no avail
What I want is to find out whether a value in a node can be found from a group of other nodes. I've tried lupike this, but it doesn't seem to work properly.
I guess one solution could have been using concatenate function, but why on earth can't I use the function like this: concatenate(A1:A5)? Why do I have to put each term individually?
1. Find the last row (cell) of data in the "Customer Number" column. This search should be by the name "Customer Number" rather than by column letter because the column that "Customer Number" will be in can change.
2. Find the column named "Purple" (also by name for same reason)
3. If the "Purple" column has no blank cells in those same number of rows as the "Customer Number" column, delete the whole "Purple" column.
I am trying to find a solution for highlighting cells in a column that are repeats, ie. >3. I also need these cells to only be highlighted if the adjacent cell in the next column contains specific text. I have tried using conditional formatting with a countifs formula to no avail.
i would like to be able to use a macro that will delete all columns in the sheet that do not contain one of 5 pieces of text in cells 1 to 20.
It is driving me mad, i have managed to find macros that delete empty columns, but they do not remove the columns that do not contain any of the 5 words. often the cells are empty down to row 5, when the data starts
Note: The "Bread Type" column will ALWAYS be in row 1, BUT will ALWAYS be in a different column letter, so I would like this macro to find the "Bread Type" column by name rather than by column number. All criteria should NOT be case sensitive.
In the example below, rows 2, 4 & 5, have the text "Wheat" or "Rye" in the "Bread Type" column, therefore, all 3 of these entire rows should be deleted. Yes, I do mean the ENTIRE row, wipe these rows off the face of the earth
I have a spreedsheet that has both numerical data and text data in column "A". I need to delete all the rows that have text in Column A and keep the rows that have numerical data.
I need search and clean the entire cell, with the word "MENOR". (in english is Minor). The problem is: The cells can contain the word "es Menor" or "Menor de edad" (the macro is in spanish) in english is "is minor" ". "You are a minor"...(I try but my english is not very good,)
I want to delete any/all rows from a worksheet (named UK) which have the word "VAN" in column P. I have tried using a 'For Each... Next statement' in a macro, but always get a debug box "Run Time Error '91' Object variable or With block variable not set". What am I doing wrong? my code follows
Sheets("UK").Select Dim cell As Range For Each cell In Worksheets("UK").Range("P10:P200").Cells Cells. Find(What:="VAN", _ After:=ActiveCell, _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, _ MatchCase:=False, _ SearchFormat:=False).Activate Selection.EntireRow.Delete Next
I'm using Excel 2010). I have column I, which is the sum of columns A and B (first and last names of patrons), and I have used conditional formatting to identify all duplicates in column I with red text. I would now like a macro to find red text in column I and then delete the corresponding rows.
I've been looking around on the web for a while and have cobbled together this code stolen from other people's macros:
[Code] ....
When I run it, I get the following error:
Run-time error '1004':Application-defined or object-defined error
Excel doc is called "stupid mailing list.xlsm", sheet I want to run the macro on is called "voters".
I am trying to move through the worksheets and delete all columns with "Accession" in contained in them. I have to do this with an external macro as the spreadsheet with the data is created from another program. I tried this and get an 'Object or With block variable not set' error and the debug highlights the Cells. Find line of the code.
Also, the number of columns could be variable within the spreadsheet as it is compiled by the other program.
Sub DelAccessionNum() Dim Wrkst As Worksheet For Each Wrkst In ActiveWorkbook.Worksheets Cells.Find(What:="Accession", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _ , SearchFormat:=False).Activate On Error Goto Completed: Selection.EntireColumn.Delete Shift:=xlToLeft Completed: Next End Sub
My requirement is compare two cells a1 & a2 if found true highlight a2,compare a2 & a3 if found same highlight a3 or compare a3 and a4 and repeat the same for the entire sheet.
I need to remove multiple instances of pages numbers from a 2000 character text string I have dumped into a cell. The spacing is not equal between the page numbers but they always take the form |#####-##| i.e. bar delimited 5 digit-2 digit. I tried SUBSTITUTE but it will not accept wildcards. I was thinking of looping through a SEARCH. The numbers are ordered ie |00001-01| to |00001-25| then |00002-01| etc, stopping at 25. This might lend to looping but I couldn't wrap my head around the VBA to accomplish that. A sample of the text
"|00006-01| (Defendants' Exhibit Nos. 1,2 marked for |00006-02| Identification.) |00006-03| BY MR. JOHNSON: |00006-04| Q. Doctor, I am handing you Exhibits 1 and 2. |00006-05| Exhibit 2, is that the one that you brought with you, |00006-06| the deposition notice of today? |00006-07| A. I believe so, yes." Auto Merged Post Until 24 Hrs Passes;I should have said this before but this is for use on Excel 2003 WinXP.
i m creating a macro to delete extra characters in a column. I have over 200,000.00 records in one column which consists of numbers with characters. For example:
if anybody can come up with a macro, so that I can just have the numbers and nothing else. I would like to exclude the following -~!@#$%^&*()_=+?/.";:|][{},^` within a cell.
I have data in Row 53 that spans 7 columns, but stays in the same row. I want to design a loop to select every 7th cell in that row and check if it is empty. If not, add onto a "counter" then display the final number of occupied cells (the value of the counter) at the end. This is what I have so far, but I get all sorts of errors.
Code: Sub Tester()
Dim WB As Workbook Dim WS As Worksheets Dim modCounter As Long Dim Cell As Range
Set WB = Workbook("Transverse Series.xlsm") Set WS = WB.Sheets(BM18)
I am using the code below in an effort to copy two columns from Worksheet1 ("S:S","T:T") to Worksheet3 ("A:A","B:B"), delete the empty cells and then find the difference between the two values for each row("C:C"). I do not want to create a new column in Worksheet1. The code worked great before adding the SpecialCells code but was slow since it had to also process the blank cells. I am trying to speed it up. The code has an error on line five and I cannot seem to figure out why.
Sub TempDiffok() Dim wsNew As Worksheet Set wsNew = Worksheets.Add(After:=Sheets(Sheets.Count)) Sheets("Sheet1").Range("S:S").Copy Destination:=wsNew.Range("A:A") Sheets("Sheet3").Range("A:A").Select.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp Sheets("Sheet1").Range("T:T").Copy Destination:=Sheets("Sheet3").Range("B:B") Sheets("Sheet3").Range("B:B").Select.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp Sheets("Sheet3").Range("C2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]" Selection.Copy Columns("C:C").Select.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ True, Transpose:=False End Sub
The last two lines are from the previous version before adding the ability to delete rows prior to the calculation.
I want to create a column where the user can input ANY data (number, symbol, letter, etc.) and create a sum. Basically, I want to be able to add "checkmarks" where the checks have a predetermined value based on the column the check is placed.
I am making a buiness card request form, which I have attached. On the Master Sheet (Sheet 1), the user enters in his/her personal data, such as his name address, phone number, etc. After he/she finished entering all the relevant data, Business Card Layout (Sheet 2) automatically populates and shows the user what their business card will look like.
Everything works fine, however I just realized that the contact information might vary from person to person. Right now, a person can enter 5 different contact information, but most of them will probably only choose four.
I wanted to know how to shift the cells down if the user does not fill out one of the contact information.
What i really need it to do is if each row in column H = "Cleared" then to only clear columns A, C to H. Theres a formula in B that needs to be left... any ideas?
Also i need this to work on all atbs as the commandbutton will on a master tab
VB: Private Sub CommandButton1_Click() With ActiveSheet .AutoFilterMode = False
I have seen many threads on how to delete rows with no data in them (empty rows).. but I have a spreadsheet that has large "chunks" of column data separated by random empty cells. (It is like this from earlier manipulation of summing similar cells...)
Some columns do not have any empty cells and some have a many empty cells. I only want to shift the cell directly beneath it up, and only concentrate on a single column at a time.
So my main questions is: How do you delete single cells, in a single column, and shift the data below up?
