I have a spreadsheet with thounsands of rows. Some of the rows I'd like to delete because thier values are below 5%. I wrote a VBA code, which primary function is to look for a cell and delete the row if the value is less than or equal to 5%. The code looks fine but I get an "Infinite Loop" anytime the first row value is not true. Below is the code,
-jungleman1
Sub Delete_Zero_Factors()
Dim i As Integer
Dim CUSIP As String
Sheets("Report").Select
Range("B5").Select
i = 0
While Not (IsEmpty(ActiveCell.Offset(i, 0).Value))
CUSIP = ActiveCell.Offset(i, 0).Value
Need the code for deleting multiple columns simultaneously in an excel depending on some search criteria.Suppose I want to delete the columns whose names are "Roll No" ,"Age" & "Class"
I am trying to delete entire row that has certain text, let say "hi". I was able to delete cells with exact word "hi", but was not able to delete cells that have texts other than "hi". ex) "hi myname." Below is my vba code, and I keep getting run-time error and cannot execute the code.
VB: Sub HiDelete() Dim srchRng As Range Set srchRng = ActiveSheet.Range("g:g") For i = srchRng.Rows.Count To 1 Step -1 If worksheefunction.Search("hi", Cells(i, 7)) > 0 Then Rows(i).Delete Next i End Sub
I've been tasked with developing a macro that will generate schedules. For background, we're taking a QuickBooks Customer file and exporting it to be picked up by the macro. I've got that part working, but now I need to delete various rows based on certain criteria.
The spreadsheet has a field for Job Status which we use to define whether an account is under contract (2 in QuickBooks), or some other status. Basically what I need to do is delete the entire row of data where JobStatus (Column R) is anything but 2.
Working on some code that will find the Column Name "CL" and delete the entire column. Here is what I have so far...it does not give me a error when it compiles, but for some reason the statement in red is being ignored. I tried switching Range with Columns, but that did not work.
Private sub coldelete () Dim Rng2 as Range
shUCLR = sheets("Unit Cost").usedrange.rows.count Set Rng2 = Sheets("Unit Cost").Range("A1:BF1")
For Each d In Rng2 If d = "CL" Then colnum = d.Column colletter = Left(Sheets("Unit Cost").Cells(1, colnum).Address(False, False), (colnum)
I currently have the following code that works great and deletes the row from my spreadsheet when the word "vacant" appears in column F.
Sub test() Dim r As Range With ActiveSheet[code]....
The problem is, "Vacant" also sometimes appears in column G. So, as this code is now it is finding the word "Vacant" in either column F or column G and then deleting the row.
How can I write the code so that it only deletes the row where "Vacant" appears in column F but ignores it when it is in column G?
I have a long list (over 1000 lines) of numbers, some of which are duplicated. Up to now I have been sorting them, adding in a simple check column to see if the number is a duplicate of the one below, and then manually deleting this cell.
Is there a better way to do this using VBA? The only way I have managed to find is by deleting the entire row, but I cannot do this as I have additional data to the right that I need to keep.
I also cannot install any add-ons as this on a work computer.
I have a large database of customers. I would like to edit this database so that it only lists those customers that have an email address listed in that particular column. I can then save that as a separate list to upload to my marketing campaign.
Is there an easier way than just deleting entire rows at a time? About a 2,000 name list with maybe 30% having email addresses.
I'm trying to come up with a macro that can delete an entire column based on formatting of the cells. Basically what I have is a range of cells, and if all cells in a particular column have no fill color, then delete the entire column.
I have an excel work book with 6 tabs. I would like to have Excel move an entire row from one tab to another tab (removing the row and inserting it in the other tab). I.e. Example I have a tab with items that are marked as "Open Actions" so if I were to change the drop down to close. Excel would move that entire row of actions to the tab with the "closed actions" and insert into the next available row. Now if someone were to come back at a later date say no it should be reopened than I would change the drop down to open and excel would move that row back to the open actions tab into next available row. I tried a PIVOT table and no good I played with few macro and not.
I want to catch an error and reset the entire code to the very beginning and skip that entire entry. When I use "Next fieldSheetName" I get "Next without For," error 1004. Searches tell me I have an open block somewhere, but that's not true. Removing that statement (and having the loop iterate as normal) has no error at all.
Dim employeeName As String Dim fieldMax, x, y As Byte ' Counters mostly Dim workedHours, fieldSheetName As Integer
fieldMax = 204 ' Row number to stop on in the field time sheet row = 4 ' Row specification for field time sheet. Begin at row 4 to ignore headers ' and start on the first name. This should not be changed! Col = 3 ' Start at column 3 then increase by one to start going to next time entry
' RESET HERE! For fieldSheetName = 4 To fieldMax Step 8 ' This is our MAIN loop. It iterates from 0 to fieldMax, which is 204...........
I'm trying to autofill a series of rows (that are blank) with data from an above row. I want to autofill the row in its entirety, not just filling in blank cells.
For instance (assuming comma is a new column). Colors listed are just a data example. Space between commas indicates a blank cell:
So rather than it just completing the task in one desired cell, it would complete the task over the entire spreadsheet. Data spread can be as far as row 500 and column BY, so you can see how a copy + paste or a drag would get monotonous.
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.
Is there a way to concatenate part of a formula into an entire row?
If I have a formula such as =(8.15*$D$1)*1.35 whereas each line in the row has a different value in the brackets. I need to add + 0.60 in the brackets. But don't want to do it manually for 1200 lines.
This problem has been driving me insane, as I thought it wasn't possible to do in excel however this morning I accidentally pressed a shortcut key on my keyboard and what I wanted, happened.. pity I can't remember how I did it.
How do I highlight an entire row, but remains highlighted when i enter info in the cells until i move down to the next cell? Eg. I click on row"1" so that all cells are highlighted, then while entering info in B:1 - the entire row is still highlighted? This will be very useful in my line of work.
I know there was some information on conditioning formatting, but surely there is a way to do it via keyboard shortcut since i accidentally did it just before.
I have used the Selection x1Down code to select all rows to the next one with data in but now need some code to deselect the final row (I want to delete all of the blank rows above)
Here is the code that I have so far and it works almost the way I want it to. I need to copy over more than just that cell that is being coppied over I need to copy over certain columns in that row.
Private Sub ListBox1_Click() Dim wksData As Worksheet, wksPayment As Worksheet
'payment sheet Set wksPayment = Sheet11 Set wksData = Sheet26 Dim LR As Long LR = wksData.Cells(Rows.count, "A").End(xlUp).Row
Dim varField As Variant varField = wksPayment.OLEObjects("Listbox1").Object.Value Range("F6").Value = varField
I have looked through the forum at several different copy and Vlookup examples, but I can’t seem to get them to work. I need to compare worksheet(1) (“Portfollio”) in column “B” against Worksheet(2) (“PJS Cap”) column “B” to find any items that the worksheet(2) has that Worksheet(1) does not. Then for these items copy the entire row to the end of worksheet(1). My code gives a runtime error on the copy line
Sub PJSUpdate() Dim Found As Boolean Dim I As Integer Dim J As Integer Dim LastRowE As Long Dim LastRowP As Long Dim InsterRow As Long LastRowE = Worksheets("PJS Cap"). Range("b65536").End(xlUp).Row LastRowP = Worksheets("Portfollio").Range("b65536").End(xlUp).Row InsertRow = LastRowP For J = 2 To LastRowE ' loops through the portfollio worksheet project list Found = False 'flag intitated to not found........................
I thought I would simply be able to click on another row and re-use the Macro, but this doesn't seem to work, as I get the following error message: AutoFill method of Range class failed.
What do I need to change in my code, so that it will work in any row I choose?
Basically every month I keep a track of my sales in a spreadsheet.
I've attached a sample file : Discrepancy Form.xlsx‎
Sometimes I don't get paid correctly. So rather then filling everything in manually, I want to simply put a "Y" (for yes, there's a discrepancy) or "N" (for no, there's no discrepancy" next to worksheet "Sales" but then have it display the values in worksheet "Discrepancy."
I'm trying to sort a spreadsheet that has 6 columns with 36 rows total. I want to alphabetize the entire spreadsheet, from A1 to F36 so that A1 is the first of the alphabet and F36 is the last. When I select all the data on the spreadsheet and click sort by ascending, it sorts the columns within themselves instead of within each other.
I've got spreadsheet I use to control the inventory of my user equipment; who has it, what is it, where is it, etc.
I'd like to "lock" multiple consecutive cells of each row so that they never seperate. This is because they need to be together. However, periodically, I need to move, sort, or rearrange the sheet.
Is there a way I can "idiot proof" this so that these cells never come unlocked from each other?
There is no vba involved (primarily because I don't know how), and no other scripting either.
The subject summarizes what I want to achieve. I just want to tie an if statement to an entire column, so it will disappear if a statement is satisfied.
I have a spreadsheet with columns a-v. Column F (titled aging) displays how many days old an issue is. I would like to have a macro that will automatically shade a row light red if the number is less than 90. I don't want the entire row shaded, just the contents of column a-v.
