I have been trying to write a script that when a workbook is opened it promts you if you want to archrive old data.
If the use selects yes the script will run and checks all dates in column AG8:AG60 on status worksheet if it matches that criteria(older than 30days from today, and it is underlined) then it copys and paste all the data in that row from "A" to " AI" to the next available row in the archive sheet in the same workbook.
This is what I have but since i dont quite understand VB that well i cant find where my mistake is.
Private Sub Workbook_Open()
Dim iReply As Integer
iReply = MsgBox(Prompt:="Do you wish to archive old Data now?", _
Buttons:=vbYesNo, Title:="Remove Old Data")
If iReply = vbYes Then
MsgBox "I will know run chkdates"
Run "ChkDates()"
ElseIf iReply = vbNo Then
Exit Sub
Else
Exit Sub
End If
End Sub ............................
how to checking data in 2 column each row, if partial/altogether string is match, shown "ok" otherwise show "check" with data in column a as parameter..
I have a standard table with quite a few rows. Columns I have are :
Text | Lower number | Higher number
What I would like to do is, in another worksheet, enter a number and I'd like to go through the table and if the entered number is in the range of the Lower and Higher number columns, have the Text displayed.
Using Index Match I can do this if the number matches Lower or Higher number but not if it's between them.
I have the first sheet named "DPF" where I have a column "Date", "FIT", "Group" On my second Sheet named "Tracker" what I do want to do:
I select a date for example 18-07-2014 (Cell E3), if cell E4 I Have "Fit" and F4 "Group" In C6 I have E3-15, to get the date minus 15 days (03-07-2014) In C7 I have E3-12 (06-07-2014) and so on
What I want is, if the date of today is C6 or C7 or whatever, use the index match function to get the number corresponding to the date chosen (18-07-2014) for the FIT. But, once I get the figure, I want to keep it, because with the if function, once we are the 4th of July, the figure for C6 disappears...
So either a macro to copy the specific data into another sheet or a another way to keep it. Because the idea as the end is to do different scenario based on the result got per period..
I have to enter date into cells. It is being written from the lists of paper, where for date is entered only year (e.g. 1987), but I have to enter it into excel with day and month (the program working with data only recognizes this form; eg 01.01.1987).
I was thinking of writing a conditional formatting, to remind if I will forget to write 01.01. before year.
I prepared formula like this (to check for the dots): =IF(AND(MID(AD2;3;1)=".";MID(AD2;6;1)=".");1;0)
But it is not working, because the function recognizes general formatting of cell instead of date formatting (28491 instead of 01.01.1987).
Is there any way through VBA that I can check whether the date in cell A2 is Monday or not.
Also the code should allow me to continue if its Monday else should promt a message saying that its not Monday and whether the user still wants to continue. If no it should terminate if yes the next part of the code should continue.
I have two excel 2010 files that I want to run this on. Each one has about 10+ worksheets in them. I am looking to have a vba script that will look at columns D and E starting at row 4 and check if they are expiring in the next month or have already expired (before today's date). Then it would return a text file that will say which worksheet it is on, the row and column, and what date is in that cell.
I need a macro that can search a sheet for a match and then copy all 7 cells to the right of the match. I have attached an example of the sheet that will serve as the database to search, and a userform example that will be similar to the userfrom that will display the copied cells when a match is found. I plan to copy and paste the 7 cells to a different sheet so that the userform can display the results with the control source property. I do not need a way to add to this database. I know very little about searching a database so.
I am very new withe macro I recieve every day a CSV file from our supplier withe a list of the products that got updated withe new price, stock count, product ID etc.
I have my own worksheet with the product ID that we use, and I want to finde the exact match to my product ID in that CSV file and delete all other that don't match.
But i need them get deletede by rows thos product ID that dosen't match to my workbook.
I tried with this, so it could set an X in front of my match then i could filter and copy it to my workbook but it dosen't work: Because the same product ID is sometime in 100 rows and the X come only in front of one of them.
=IF(ISNA(MATCH(Q2:Q1000;G$2:G$1000;0));"";"X")
so with some macro. I need to have every row deleted that don't match to my list of product ID.
I have 2 worksheets named sheet1 and need_to_delete that are in the same format: 7 digit number, 5 digit alpha numeric, text, dollar amount. I need to copy every row into sheet2 where there are no matches in the column A of the two source worksheets, and copy every row that does have a match in column A into sheet 3. I also need to keep the rows in their current order.
I written one code to delete Entirerow if value match. It's working fine .the code delete all match except one match.!
------------------------------------------------- Option Compare Text Sub delete_duplicate() Cells(Rows.Count, 1).End(xlUp).Select Range(ActiveCell, Range("A1")).Select For Each cell In Selection If cell.Value = "Already updated" Then cell.EntireRow.Delete End If Next End Sub -----------------------------------
I wondering if it's possible to create a code to have a popup where the user can enter a date in mm/dd/yyyy format and then all rows containing that date will be deleted.
column "b" in the attached file has numbers that match some numbers in column "c" I need to delete all the rows that done match the numbers in column "c" that are used in column "b"
for example no " 53" is in column "c" but not column "b" so they need deleting
I have an input box pop up to ask the user for a base item number. The way the excel sheets part numbers work for example is TM-T88VP-GRY, the last part 'GRY' changing based on the variation of the item that someone ordered. So, the base item number would be TM-T88VP, and what I want to do is search through a set column (Column G) and delete any row that contains that base item number.
Any way to do the following macro. I am trying to search column A on Sheet 1 and see if it finds the match on Sheet 2. If it finds the match it will delete the row on Sheet 2 and move all the information up and then move onto the next value in Column A in Sheet 1.
I'm trying to put together a script which on the sheet "Resource" compares every cell in the range B:U, starting at row 8, and where all cells match, keep the first row, but delete the duplicate proceeding rows.
I've found the code below here: [URL] ...., which I thought I may be able to adapt, but for me to include all the columns in the 'If.Evaluate' section of code seems to perhaps not the most efficient way of doing this.
I have a file which has some data I want to keep and some data I want to strip out.
The data I want to keep will always have either a date or a string “Overdue” or a string “> 1 year” in the first column, anything else I want to remove.
For Each c In Selection If c.Value = Range("A4") Then c.Rows.Interior.ColorIndex = 36 Application.ScreenUpdating = True
I got this code so far that highligts the rows that match but range a4 needs to go down the column to a5, a6, a7....so it only checks the first cell in column a. I need it check all cells. Then i was going to delete the entire row in column B where it was not highlighted.
I'm trying to create a macro that will delete all rows with "CAT" in the REF column. I've searched this site and struggled trying to adapt other methods listed and got nowhere.
I have over 2000 rows with 20 columns and i need to find and remove identical rows. I can do a match with MATCH() by concatenating the columns and comparing them as a whole but i need to apply this to the whole table and i need it to remove all the duplicate rows it finds.
I have a column of cells (Column I2:I1063) with zip codes in it and I want to keep the row if the zip code matches one on the list in a column B2:B100 on a separate sheet (Sheet1).
I have tracker, where Cells in Column F have dates or are blank.
I am trying to run a macro to delete all rows when the following criteria apply:
for all cells in column F, if date < 1-Oct-2013 then entire row should be deleted if cell is blank - nothing should happen This is what I got so far - but it is not working...I have entred the date "10/1/2013" in cell AA2 but macro should always check against that date (not variable) so it might not be needed.
Sub PART3_Delete_old_team_members() Columns("F:F").Select Selection.NumberFormat = "m/d/yy;@" Dim endrow As Integer On Error Resume Next endrow = Sheets("Global Team List").Range("F900").End(xlUp).Row Searchdate = "AA2"
I'm trying to create a formula that takes a date in a cell (A1) and compares it with the now() function. If the date in A1 matches the now function then i want to return a 5 and set the colour to light blue (for instance), then if the date entered is a day before now the return a 4 and set the colour to green.
=IF(A1 = NOW(), 5)...... but this just returns 'FALSE' even though the date entered and the NOW() function are the same.
I have data sets on multiple worksheets within a workbook (over 70). Based on the begining of a string, I need to count all instances with that begining, and if there are fewer than 12 instances, delete the entire row.
Data set example:
In this example, I need to count each instance of rows starting with 1/* - 9/*, and delete rows as mentioned. In other data sets the string might start Gi1/*, and so on. In the following code, if I do not loop, and only test against 1 value type, and ONLY run it once, it works. As soone as I try to loop through all possibilities, or run the macro a second time, it blanks out the entire worksheet, starting at row 3.
Dim c As Long c = Worksheets(i).Range("A" & Rows.Count).End(xlUp).Row With Range("A3:A" & c) If Application.WorksheetFunction.CountIf(Worksheets(i).Columns(1), "1/*") < 12 Then . AutoFilter field:=1, Criteria1:="1/*" .Offset(1).Resize(.Rows.Count - 1, 1).EntireRow.Delete .AutoFilter
I have also tried to concatenate a variable with my CountIf criteria, but that fails miserably.
