I need a quick macro that will search column D for the words "balance forward" then delete the entire row. The macro needs to loop through many rows and it contain more than one "balance forward" reference.
View 9 RepliesI am looking for a macro or someway that I can delete data out of a workbook that dont contain specific data. On the example shown below, if in column E it dont say one of the following Nhampton, euston, tring, bletchley, Nhamp Emd, Nhamp NJ, Nhamptn RS, Watford Jn, Bltchly MD, Bedford, Bletch CS or M keynes I need the row totally deleted.
******** ******************** ************************************************************************>Microsoft Excel - Book1.xls___Running: xl2002 XP : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutA4=
ABCDEFGH4LTP**BY**751*******5*CNDR**CRE****6On4.472*Bletchley*04+595K087Off11.47**M*Keynes05+055.242K088Hrs07:00**Euston6.296.372N139****Nhampton7.53**10DaysSX**TRAIN*GOES*FORWARD*TO*NEWST.***11From09/07/2007422(350*Nhampton*8.241W5212To07/09/2007**Euston9.25**13***PNB(*30**MINS*)***14***ASSTEuston*10.242N5715****(To*Northampton)***16****Bletchley11.12**Sheet1*
[HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name box
PLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.
Code in VBA which I can auto delete many specific rows.
example: in column B got the word "Tester, Dummy, Display and Mini.."
I would like a code which automatically delete the rows which contain the text as above.
I have been trying to create a macro vba that will look at a specific row in the current sheet and if it sees a name I need to delete that row. But I am looking to also under stand what it is doing so I can use this script in other instances. I just bought some things off MrExcel's Store but i won't get this for a few days.
View 9 Replies View RelatedI have a large report that I pull each month listing which products we sold last month. There are certain products I don't want included in the report. Until I can have the report re-written, I'm looking for a macro or a function that will find all the rows that contain these product numbers in column M and delete the entire row. The product numbers I need to delete are always the same, but some months one or more of them might not be in the report if they weren't sold.
In Summary:
Find in column M the product numbers:
c1000
316140a
316140
316295a
316295
316311a
316311
316451a
316451
316450a
316450
316452a
316452
Delete those rows containing the product numbers above
create a VBA to delete rows if the cell doesn't have "Other".
The data is in Column C which consist of the below data so I like VBA to delete the rows when the cell doesn't have "Other"..
-Primary
-Business
-Home
-(blank)
-Other
I need a Macro that will search all of the cells for specific text, and delete all cells containing the text. I prefer to make a list of the specific texts and run macro to find all of them and delete all cells containing the text. I need to be able to add some more text into the list in future.
View 9 Replies View RelatedI have 2 spreadsheets of delivery information. Sheet 1 contains data of all stores in the UK with addresses. Sheet 2 containts contacts of all stores that promotional matrial needs to be sent to.
The only common cell in a column of 4 digit store numbers.
I need to delete all rows from sheet 1 that do not contain a value in the store number column that is displayed on sheet 2.
I have written such loop which I want to delete entire row when a given cell is empty:
Code:
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For Counter = lastrow To 2 Step -1
If Cells(Counter, 6).Value = "" Then
Selection.Rows(Counter).EntireRow.Delete
End If
Next
It works not the way I want. It has ommited some blank rows and also removes 5th row everytime I run it.
I have a macro that delete's a row when a cell in that row contains a specific value. I am unable to make the macro work automaticly when the file opens.
Sub Delete_Rows()
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("A1:F400"), ActiveSheet.UsedRange)
For Each cell In rng
[Code].....
I have a sheet of data. The data starts in row 4 and can be variable in length. I want to delete rows that do not meet a specific criteria, for example a location, Leeds, which is in column "i" of the table. I have written the below but it seems to delete data from row 1 rather than row 4 and repeat down each row
Code below
Sub deleterows()
Dim i As Integer
Dim intCounter As Integer
Dim strLocation() As String
p = Range(Cells(4, 6), Cells(4, 6).End(xlDown)).count
[Code] ..........
I need A VBA that will delete a cell if it contains a specific text string
As long as the cell content is deleted, I can do the rest that needs to be done.
I need a code for filtering the cell's content.
What i want to filter and delete is all/any text found following after the symbol ">" .
I am having some trouble writing a macro to delete cell content. I know which cells I want to clear, but I can't seem to get the macro to do it.
I also want to have something in the macro that inserts data into the lines that I am trying to clear. I want cell A67 to say "Payment" and cell A71 to say "Total."This is the code I am using:
Sub DeleteCell()
Dim i As Integer
For i = 67 To 71
If Range("A" & i).Value = "--" Then
Range("A" & i).Delete
Next i
End Sub
I need a formula or VBA macro to do the following:
I have 2 worksheets, namely sheet 1 and sheet 2.
Sheet 1 contains data in columns A to H.
Sheet 2 contains data only in column A.
I want Excel to check the data found in column A of Sheet 2 with those in Column A of Sheet 1. Hence, when an exact match is found in Column A of Sheet 1, Excel will delete that entire row.
Currently I am using the Kickbutt VBA Find Function of Aaron, but I would like to have something that works more efficiently. What I currently do is (assuming all possible values for Column J are A - F):
Find_Range("A", Columns("J"), MatchCase:=True).EntireRow.Delete
Find_Range("B", Columns("J"), MatchCase:=True).EntireRow.Delete
Find_Range("C", Columns("J"), MatchCase:=True).EntireRow.Delete
Find_Range("D", Columns("J"), MatchCase:=True).EntireRow.Delete
Find_Range("E", Columns("J"), MatchCase:=True).EntireRow.Delete
although I just want some code that says: delete all rows except those that have "F" as content in Column J. I already tried something like:
Range("1:65536").Select
For Each cl In Range("J:J")
If cl.Text = "A" Or cl.Text = "B" Or cl.Text = "C" Or cl.Text = "D" Or cl.Text = "E" Then
Rows(cl.Row).Delete
End If
Next
but it also takes much to long. The major problem I think, is that the number of records is variable so I search the entire worksheet...
I need a code that will delete a row if it has a specific text in a specific column.
In this case in column W if there is anything that starts with '>TC' I need that entire row deleted that its in.
I have been wracking my brain around how to put this formula together.
Is it possible or it can't do more then 1 cell at a time?
Here is an example:
If F1= button request and E1= Scoring then OK (take no action) also i want to add that Folder in F and Corrupt in E would = OK
If it doesn't match to highlight the cell in red
I'm trying to copy data from one excel sheet to another excel sheet. However, the data to be copied is dependent on the 'client name'.
To explain this further, in the first list I have a detailed report on our clients and the services provided to every employee of that company/client.
However, the sheet two only needs the names of the employees that belong to a specific client.
This can be done manually by setting a fliter on the name of the client/company, but I need to be automated. To ensure only that specific company/client company's employee name is copied.
I want to extract the following details into another collumn (bold ) from data in column B1 into C1. The information i want begins with 3 digits with a '/' then other digits follow.
M / AS308 - :308/65588 POUN
S33 / 33 - :133/01504 TR
NI101 - :101/915635 T
N101 - :101/915635
I have a big data sheet. I have approximately 2170 rows and 50 columns. In some rows I have a series of consecutive zeros. I need to build a formula that gives me the date ( located in row3) right before the first zero in the series of consecutive 12 zeros.
For instance in row 1340 I have a series of 12 consecutive zeros. The first zero happens in column AC, therefore I need the formula to retrieve cell AD3. however every rows has zeros located in different cells therefore I need a general formula.
A vehicle has been assigned to collection, time of entry appears in Load cell coresponding with vehicle eg.e vehicle 1 'A1' = load 1 'B1'. I can get the exact time to appear in the cell currently but when I try to assign a second truck, the load 2 'B2' cell AND the load 1 'B1'. Im sure that there is an easy way to do this but i just cant figure it out. Can someone please help me out. Can i disable the cell that is updating?
I have a spreadsheet, where I am measuring dimensions for a cpk test. My question is, can I use vba to format the calculated cpk cell so that if it falls below a certain value it replaces that value with whatever I have specified in vba? Was wondering is this is possible.
View 5 Replies View RelatedI have an Excel 2003 spreadsheet with multiple sheets - one main one with all data and others which have only the data that falls into certain criteria. I'm wondering if there's a way to enter the information on the main sheet and have it automatically populate the correct "sub-worksheet" depending on what is entered in a specific column.
I'm not describing this well but I've attached a sample of what I mean.
I have created a form where a date and remark is added every few days. I am using Phone Number as the base of VLookup. I want a code so that the date and remark which is entered in a Text Box, is stored in the first available blank cell pertaining to that employee. I want the first date and remark to be under "Date 1" and "Remark 1".
Thereafter, if another remark is subsequently added for that employee, the form would ask to enter his phone number to identify which employee the remark pertains to. Then the Text Box where remark is entered should be stored under "Remark 1" if there has been no remark before, "Remark 2" if "Remark 1" already exists, "Remark 3" if "Remark 2" already exists and so on.
I do not want to enter it in a new row. I want to enter the remark in the next blank cell of the row which matches the employee Phone Number.
Untitled.png
I have data in several cells, and I want to extract only the information in the cell up to a /. For example "joesmith/shipping" I would like to have only joesmith in the cell next to it.
View 2 Replies View RelatedI'm basically creating a file where a userform comes up when you open the workbook, blocks the access to the actual workspace so that no manual entry can be done. What the userform allows you to do is add a new entry to the database (the userform has some text boxes where we type in stuff like location and name or age) after having found the next empty row in the enormous database (3.000 lines)
After having clicked the OK button in the userform and added the data to the database, I would like the userform to have a pop-up message box with specified text like:
"The number assigned to this entry is:" and then I would like to add a variable with excel using the cell in column D of the same row of the new entry. So the end result would be :
The number assigned to this entry is: 01
to shade rows of data in a table if a cell contains a specific value, such as the word Total.
View 9 Replies View RelatedI have number in cell (A1) = 100. when I enter number in any cell of column(B) for example (B1)=10. then in cell (C1) the result of (A1) - (B1) = (90) and if I add in cell (B2)=10 then in cell (C1) the result of (A1) - (B1+B2) = 80 .accumulatively in cell (C1). and any number in column (B), the result will be (A1) minus any number in column(B) accumulated in (C1)
second question
I have number in cell (A1) = 100. when I enter number at cell (B1) = 10 then the result would be in the adjacent cell (C1) = (A1) - ( B1) = 90 and If I enter a new number in cell (B2) = 10 then the result would be in the adjacent cell (C2) = (A1) - (B1+B2) = 80 and If I enter a new number in cell (B3) = 10 then the result would be in the adjacent cell (C3) = (A1) - (B1+B2+B3) = 70 and so on. I want the result to be add automatically to adjacent cell in column (C)
I have large worksheet with data. Have data in the range L121:ED490.
I need to VB macro to check cells in column L,P,T,(every 4th column) until row 490 column ED and see if the cell is blank. If any cell in column L,P,T, and so on until column ED is blank then i need to make corresponding cell in column N,R, V and so on blank. Example : If L151 is blank then need to make N151 blank. If T152 is blank the need to make V152 blank.