Code:
Sub DeleteCells()
Dim ws As Worksheet
Dim cell As Range, search_cell As Range
Dim i As Long
[Code]...
A few issues with the above code: I have manually checked that there is a sheet with a value in M12 that is found in the H column range, but it doesn't change the value to zero. (this was confirmed with an =IF(M12 = H101,1,0) returning a 1 value.
Secondly, it takes a long time to process not a lot of data. (about 2 minutes to get through 3 sheets of 180 actual rows of data, (rest blank). Is there any way I can speed it up? I will eventually be cranking it up to 30 sheets of data and up to 360 rows. (The 500 was thrown in earlier to make sure it covered everything).
finally, it also lines every cell value in I(end of data):I501with a zero, when there are blanks in other cells, can i get it to not put a zero in,
I am trying to write a macro that looks for the first empty cell in column G, Then once that cell if found, assigns that row to be the row that other data is copied and pasted to. My code currently just finds the first empty cell in each column and copies and pastes the data and am not sure how to get it to what i need it to do.
Code: Sub seconddatatransfer() Dim wb1 As Workbook, wb2 As Workbook, sh1 As Worksheet, sh2 As Worksheet Set wb1 = Workbooks("filestransfer.xlsm") 'Edit file extension Set wb2 = Workbooks("KBCG.xlsm") 'Edit file extension Set sh1 = wb1.ActiveSheet Set sh2 = wb2.Sheets("Tracking Sheet") sh2.Cells(Rows.Count, 2).End(xlUp)(2).Value = sh1.Range("B6").Value 'left
Search the activecell for a text string (a), and then either paste in text string (b) at the end of the cell if (a) is found, or text string (c) if (a) is not found.
For example, if the activecell has "AA/" in it, I want the cell to become "AA/01" (pasting in "01" at the end), and if the cell has just "AA" in it, I want it to still become "AA/01" (pasting "/01" at the end). The macro will be linked to a commandbutton.
Say I have Column A populated with Employee Names, and Column B populated with "Pass" or "Fail" (which indicates a passed or failed customer service call monitoring).
For each employee, I want to be able to look at all of their overall scores (usually between 3 and 10 evaluations per month) and easily highlight people who have failed 2 out of 3 consecutive evaluations.
I want to integrate this feature in to a weekly quality report.
I want to have a formula that finds the sum of the values in Col 1 (Qty) for the rows that equal, eg: 140, in Col 2 (Product) So that I can have a list of Products of the Qty that relates to each product. (there are products in increments of 10 from 10 to 920, that is, 92 products)
i have an excel file which contains data, I want to be able to search this file and to fill the cell and its next 3 cells to the right with a certain colour. Is this possible as I have wrote some vba to do this but, Im only able to search and not fill the cells with the correct colour.
I am trying to add up all values from the cell above the search criteria. Although sumifs does work well, it wont search the entire sheet, it only works in specified rows. Also, the problem is that the values to be added are determined via a vlookup based off of a cell whose value is chosen by a drop down choice.
it's a search loop which runs the following when the file is opened. I would put it in the workbook_open sub but instead I want to have the sheet update before a main userform appears.
What I need it to do is:
Read each cell in column K from row 6 onwards to the last active row.
If a value is found then store the value (let's say as variable x) and from that cell, add up each value starting in the cell that is two columns to the left (column I) and one row down, onwards going down until a cell = "" is reached in that column (contains nothing). The total values added in column I could be stored as variable y.
Once cell = "" is reached, have x - y to make z and then the total (z)should display in the cell to the very left of the very original cell that contained the value x.
Finally, if x = the value in the cell to the immediate left from where x is (so same row but in column J), have that whole row from column A to L turn green, else have it turn orange:
I have two worksheets with products that I need to compare.
Each product has a code and a product name in the following format: Column A has the product code and column D the product name,for example:
ColumnA: AM1BL15X
ColumnD: AGLO MEL BLANCO 1C 15MM 215X244
Both sheets *should* have the same data in them but there are 4000 products that need to have their description verified.So I need to go down each row on Sheet1 , extract the product code from Sheet1.ColumnA and the product name from Sheet1.ColumnD. Then do a search on Sheet2 for the product code (Sheet2.ColumnA) and verify that the product description on sheet2 (Sheet2.ColumnD) is the same as in Sheet1.ColumnD. If it matches,everything is OK. If not there is something wrong. So I´m thinking that maybe the product codes that dont have matching descriptions could be entered in to a separate worksheet so that someone can check it later.
I´ve been reading around and found these code samples from this site [url]:
Dim rng1 as Range, i as Long Dim cell as Range With worksheet("Sheet1") set rng1 = .Range(.Cells(1,1),.Cells(1,1).End(xldown)) End With
i = 0 for each cell in rng1
if cell.Value worksheets("Sheet2") .Range("A1").Offset(i,0).Value Then ' do what - they don't match else ' do what - they match End if i = i + 1 Next
I´ve been trying to make some changes but I dont quite know how to get this working to do what I want and I only get errors.
I have two worksheets with products that I need to compare. Each product has a code and a product name in the following format: Column A has the product code and column D the product name,for example:
ColumnA : AM1BL15X
ColumnD: AGLO MEL BLANCO 1C 15MM 215X244
Both sheets *should* have the same data in them but there are 4000 products that need to have their description verified.So I need to go down each row on Sheet1 , extract the product code from Sheet1.ColumnA and the product name from Sheet1.ColumnD. Then do a search on Sheet2 for the product code (Sheet2.ColumnA) and verify that the product description on sheet2 (Sheet2.ColumnD) is the same as in Sheet1.ColumnD. If it matches,everything is OK. If not there is something wrong. So I´m thinking that maybe the product codes that dont have matching descriptions could be entered in to a separate worksheet so that someone can check it later.
I´ve been reading around and found these code samples from this site ...
I have three parameters that users on my spreadsheet will be using. They will be searching using the 'Brand', 'MPAN' and 'Tariff' fields.I would like to have drop down menu's for then to select the correct search option. I then have another sheet within the same workbook with all the data in it with columns headed of Brand', 'MPAN' and 'Tariff'. It has to be an excat match using those three parameters though. I would like the parameters the user selects on the first sheet to be searched and found on the second sheet, with the figures in the cells next to the search result getting fed back into a set cells back on the first page.
I am having trouble getting a formula to work with exactly what I need. I need a formula to find the total quantity of each product. The file I'm searching from does not list the product name or description in the subtotal column. The host file is similar to below and I just want the product name and total quantity in the new worksheet. I will have a list of all products we carry in the new worksheet and I want to pull the total quantity ordered for each item, and if none were ordered return a quantity of 0. The program the host file is exported from also lists a header at the top of each page, so for example there may be a header in between the last occurrence of Product D and the Subtotal.
Product A Description Sub description Date Ordered Quantity Ordered Product A Description Sub description Date Ordered Quantity Ordered Product A Description Sub description Date Ordered Quantity Ordered Product A Description Sub description Date Ordered Quantity Ordered Item Subtotal Total Quantity Product B Description Sub description Date Ordered Quantity Ordered Item Subtotal Total Quantity Product D Description Sub description Date Ordered Quantity Ordered Product D Description Sub description Date Ordered Quantity Ordered Product D Description Sub description Date Ordered Quantity Ordered Item Subtotal Total Quantity
From mySQL database, i am getting a ton of data that is all being inputted into a single excel cell. Within this cell, there are certain data points that i wish to obtain (Bank #, SSN #, Routing #). There are multiple difficulties in obtaining this information.
1. these cells contain the same fields, but different number of total characters (differing in names, addresses, etc.)
2. some of the data points (like SSN) are inputted incorrectly, so even though a SSN is only 9 digits/characters, I may have to output all 11 that the SQL database placed within the cell.
Can I get some help? I'm thinking of a search function/macro within excel, because all of the fields show up correctly.
something like (i know this doesn't work)
= or("cellA1" contains/finds/function SSN,return the 9 characters after "SSN ")
um...yeah. difficult to explain, i'm sorry!
edit: not sure what is wrong the file. I have attached a new one.
I need one formula to copy and paste the checkcard data changing it from this "CHECKCARD XXXXXX5623" to "CHECKCARD 5623", but I need one formula to look for multiple known checkcard numbers. I will have more then one typically in the bank download so I need to search and copy at least two known numbers as shown below.
I am providing the formula that I am using right now, "=IF(ISNUMBER(SEARCH("5623",B3)),RIGHT(B3,41),"")" but it only works for one checkcard number? Also I don't really need to capture the DEBIT or CREDIT that will always be at the end, it would be redundant. If it's easier to write the formula including that data that is no problem. What I want to copy and move into an adjacent cell is in red.
Here is the source data: Row 2 - SONIC DRIVE IN#1531 AUSTIN TXDEBIT FOR CHECKCARD XXXXXX5623 DEBIT Row 3 - JASON'S DELI # 125 Q64 AUSTIN TXDEBIT FOR CHECKCARD XXXXXX9718 DEBIT
I have 10 columns (A-J). Column B is the Date & Column C is the Time, I have the data sorted 1st by date then by time. The 5th Column, E, is Size. The 10th column, J, is "Position."
This 10th column, J, is in binary format. A 1 equals a Position & a 0 equals no Position.
1) I need to find the Max Sum of the Size in which the Max consecutive set of 1s has occurred.
2) I need to also do this on a day by day basis, using the Date in Column B, without having to manually go through & modify all the formulas to reference the date.
I have a Sumif formula for the 2nd but it won't copy down to update the formula for each unique date. I have to manually change the date values & I have ~957 unique dates to do; so it would be a rather painstaking process if only done manually. Moreover, it doesn't count the Max Sum of all consecutive 1s in Column J...
The length of the non unique columns (all columns w/o unselecting the duplicate entries) is 19,068.
If you can be of help, I'd be very thankful...my brain is overloaded w/googling & using trial & error.
Basically what I need is to find a row (I'm doing it by matching the row title that is 'BALANCE'), then I need to find the max value in this row (the problem I'm having is that the row number is not constant), copy that value in another cell and copy the name, that is located in the same column, next to the previous copied value.
Actually i have to two sheets. In (1st file) I have the data of customers. And in (2nd file) I get the approved sales. So i have to find the numbers.
In my sales sheet, there is data of customers like name, address, phone number etc.
In my sales report sheet, i got multiple numbers in a notepad file which are rejected sales.
So basically, i have to copy every number one by one, and then have to find it in my excel sheet with CTRL+F and then i change the color of that cell which is rejected.
I want magic by which i simply add all the rejected numbers in one column of my file, and then do Abra Cadabra by which all the numbers which are rejected get in red colour automatically in the column in which there are all the numbers (approved as well as rejected).
I have a spreadsheet in which one column I'm trying to find a value in another table that has 3 columns (A, B, C). I need to find all the values in A, that fulfill the parameters of less than 1.5 in B, and great than 5% in C.
They all need to be listed in column H while skipping the records that do not meet this criteria.
I have people who wrote down that they attended a location on a certain date at a certain time, and I have their start and end time.
So for example my person data has something like this:
Arrive: 1/1/12 7:00 AM, Leave: 1/1/12 10:00 AM
Arrive: 1/1/12 3:00 PM Leave: 1/1/12 4:00 PM
Arrive: 1/4/12 8:00 PM Leave: 1/4/12 10:15 PM
I also have those fields formatted as text and as decimals so I can work with whatever I need.
The next portion is a list of events that occur at these same locations. Here are some examples.
Event 1 Start: 1/1/12 8:15 AM End: 1/1/12 12:15 PM
Event 2 Start: 1/4/12 3:00 PM End 1/4/12 8:30 PM
What I need to find out is if the person was present at the location during any of the events.
A person may write down more than one visit to the location in a day. The events only happen once per day. I'm sure there's a pretty manual way to do this, however the list of people and events spans an entire year and it will be too time consuming to do it that way.
I have a graph which is reading from a table. This graph is reading flows from a flow meter, but after reading data for over an hour the graph gets really squished. I'm looking at creating another graph with just the last 50~ values from one column. Is there a way I can create another table that only reads the last 50 values from one column?
I have multiple columns / rows of data, some of which are duplicates.
Column S is a concat of columns A:R where this data is stored, and is sorted alphabetically.
I'm looking for a way using VBA to find duplicate concat rows by cycling through this list that is already sorted. I'm interested in moving down this list, 1 by 1, and if current cell = cell above, delete the data in columns A:P of that row, then delete the cell data in column R of the cell above the current cell.
So for example, if I have sorted data in S8:S14, and S9 = S8, then I would like to delete A9:P9, then delete the data in R8.
I have been trying to set up a macro to find the Minimum and Maximum values from an array of temperatures for painting... so far, partially successful.
The problems I am having are that the values have 1 decimal place and can be anywhere between 22.7 to -1.4. When they come they are put on the spreadsheet, the MinTemp can be 10.0 and MaxTemp 9.9, totally reversed.
Dim Info(2000, 2) As String Dim MonthValue(31, 9) As Variant Dim Working1 As Date Dim I As Integer Dim J As Integer Dim Tot As Integer
