How To Deactivate Older Rows By Date
Nov 13, 2013
I have an excel sheet with date as the first column and all other data being numeric. I put in a code to increment by 1 everytime the user clicks on a cell, the contents within it. the code is below.
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:H100")) Is Nothing Then
Cancel = True
Range(Target.Address).Value = Val(Range(Target.Address).Value) + 1
End If
End Sub
This does its job for the time being, but I want to allow changes only to the row which has the current date and deactivate all other rows for any editing. So that if I click anywhere else but the row with the current date nothing happens.
View 2 Replies
ADVERTISEMENT
Jan 26, 2012
Code that will do the following,
In sheet2 cell B2 i have a date (for example 12 Jan 2011)
I want to look at sheet1 columB and if the date is older than the date in sheet2 cell B2, then copy then all the data from that line in sheet1 be copied over to the first free line in sheet2 I need the data from colums B to ZZ to be copied.
View 1 Replies
View Related
Feb 17, 2014
i have to removed the duplciate records with older dates. The date column is made up of date and time.
IDExpiry Date
1202 Mar 2013 12:57:04
1220 Apr 2013 10:49:24
5020 Apr 2013 10:57:06
5021 Oct 2013 07:20:54
5024 Oct 2013 08:41:56
View 3 Replies
View Related
Jan 2, 2010
Please review the following and advise the one Best Connection needs to save in Excel 5.0/95 format without prompting me about incompatability issues
Sub Tomo() ....
View 9 Replies
View Related
Nov 27, 2009
C2 Cell formatted for Date
Currently is shows red if its older than today showing something has expired using: Cell Value is less than =TODAY() and shows Green if it still OK using greater to or equal to =TODAY()
But i want:
Red is older than today
Amber is today or within 7 days
Green if date is over 7 days
Ive tried using 'between' but keep getting white cells.
View 4 Replies
View Related
Apr 1, 2013
I have been tasked with converting our old inventory system into a new one. Here is an example of the conversions I need to do,
I need to convert this:
A1 A2
1.50 OD x .035 W 304, WD ASTM A-269
1.50"OD X .065 W 304,SMLS ASTM A-269
1.50"OD SCH 40 304, SMLS A-312
INTO
A1 A2
304-WD-ASTM A269-1.50X.035 304 WELDED ASTM A269 1.50X.035
304-SMLS-ASTM A269-1.50X.065 304 SEAMLESS ASTM A269 1.50X.065
304-SMLS-ASTM A312-1.50 SCH 40 304 SEAMLESS ASTM A312 1.50 SCH 40
The current plan is for me to do this manually over thousands of entries over the next few months, but if I can do it in a quick fashion that would be way better.
View 3 Replies
View Related
Sep 3, 2009
I have placed the following code in my spreadsheet but it's not working!
the code after option explicit (now at the bottom) works, (thanks to Andy on here!) but all the disabling the right click and cut/copy/paste etc doesn't.
View 6 Replies
View Related
Aug 9, 2013
I have a workbook with the following:
Code:
Private Sub Workbook_Activate()
Application.CommandBars("Ply").Enabled = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"",FALSE)"
End Sub
Code:
Private Sub Workbook_Deactivate()
Application.CommandBars("Ply").Enabled = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"",TRUE)"
End Sub
All of a sudden my right-click isn't enabling when I reopen Excel. I can run the macro
Code:
Application.CommandBars("Ply").Enabled = True
once opened, but once I close it out again, the right-click is disabled.
View 1 Replies
View Related
Jan 21, 2009
is it possible to deactivate an activecell?
the following code works well i have a range of cells(e1:o17) i click on one of those cells to enter a score into (a2) the next cell i click enters a score into (b2) ok so far but if i need to enter the same score consecutively as needs to be done from time to time i cant do it because the cell is still active.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d1") = Range("d1") + 1
If Range("D1") = 2 Then Range("a2") = ActiveCell.Value: Range("c2") = 501 - Range("a2")
If Range("D1") = 3 Then Range("a3") = ActiveCell.Value: Range("c3") = Range("c2") - Range("a3")
If Range("D1") = 4 Then Range("a4") = ActiveCell.Value: Range("c4") = Range("c3") - Range("a4")
If Range("D1") = 5 Then Range("a5") = ActiveCell.Value: Range("c5") = Range("c4") - Range("a5")
View 9 Replies
View Related
Jun 27, 2014
I am setting up a workbook for our absence reporting for work and have everything figure out except one thing. I have it where it subtracts points if the points were given over a year ago and also have it to subtract one point for every 90 days of perfect attendance. The problem however is if someone gets 5 points for a no show on January 1, 2013 and then don't have another reportable until June 01, 2014, it subtracts the five points and then an additional 1 since they had over 90 days of perfect attendence and it also goes into negative when employees cannot have negative attendence points. Is there a way to keep the extra point from being deducted and keep it from going into negative? Below is my workbook and the formulas used.
Absence Reporting.xlsx
View 4 Replies
View Related
May 30, 2009
I have a dir with over 150.000 files in it, especially pdf, doc and xls. Now I'm looking for a script or program that will automatically search the entire directory and look for old xls files, open them and save them in a new(er) version. I'm working with a software that needs to use these XLS files in my directory but it can't use the old xls-versions. It's an impossible job to search by hand for the old versions and put them in a new(er) version.
View 11 Replies
View Related
Nov 12, 2008
I need to figure out how to tell Excel to count the number of invoices on a worksheet older than 30 days and display that number in my Summary worksheet. Here's a quick example:
Worksheet '1234' has 10 invoices, 6 of which are more than 30 days old (invoice dates are in column B). Worksheet 'Summary' needs to display the total number of invoices and the number older than 30 days.
View 2 Replies
View Related
Oct 14, 2008
I have some code in the BeforeClose event of the workbook - it worked the first time I tried to shut down the wb, but never since. I opened a new wb and copied in the code and again, it worked first time, but not since. The code is just calling a function, nothing heavy. I've tried the Deactivate event as well. I'm more of an Access VBA kind of gal, so don't know if I'm missing something big here.
View 5 Replies
View Related
Jan 27, 2014
I need to perform an action (unhide all columns) whenever I switch to a different worksheet.
Detail: I have a file with 2 tabs (worksheets). Tab 1 contains daily data, and when people are done with the current week they group and hide the columns for that week. This allows them to only view the new week and do an easy copy/paste into other applications. Tab 2 totals up the daily data from Tab 1 and shows monthly totals. The problem is that when they hide Tab 1 columns for past days, the formulas in Tab 2 don't "find" that hidden data. I would like to write a basic code that unhides all Tab 1 columns when I switch to Tab 2 so the formulas on Tab 2 reflect accurate totals. My thought is that it would be Worksheet code on Tab 1 using "Deactivate". I've tried to piece together different bits of code but can't get anything to work properly. I don't want them to have to run a macro or click a button, I'd like it to be automated when they switch tabs.
View 3 Replies
View Related
Apr 27, 2007
The following code does a sort on a worksheet whenever you click another sheet but it also returns you to the original sheet (where the sort takes place i.e. the sheet with Range "Sort1"). How do I get the code to do the sort but not keep returning to the sheet?
Private Sub Worksheet_Deactivate()
Application.Goto Reference:="Sort1"
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending,
End Sub
View 2 Replies
View Related
May 3, 2006
I have an Offset of a range I am testing the value of with an If statement.
For some reason, even though the value fed in is 1 and it should bypass the If statement, it doesn't. However, if I assign the offset value to a variable first, the If statement works...
This does not work...
View 9 Replies
View Related
Aug 8, 2013
I have a number of buttons on a daashboard that run different macros.
Is it possible to have the most of the buttons deactivated until a cell on a different sheet has a value in the there (Text or number) turning them active?
View 6 Replies
View Related
Jan 20, 2008
The following code for a custom menu is used in a workbook which has two sheets with
embedded charts, two chart sheets and several sheets for calculations
and information
In This Workbook
Private Sub Workbook_Activate() 'Changed Activate to Open
Run "AddMenus"
End Sub
and
Private Sub Workbook_Deactivate() 'Changed Deactivate to Close
Run "DeleteMenu"
End Sub
and
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "DeleteMenu"
End Sub
View 9 Replies
View Related
Dec 17, 2012
I have columns of dates and I'm looking to automatically highlight dates that are older than 5 business days from today. Is that conditional formatting?
View 3 Replies
View Related
Apr 24, 2008
I'm trying to do something quite simple but I can't seem to see the forest thru the trees.
All I want to do is when I deactivate a worksheet (sheet2) I want it to sort a predfined range. I keep getting a "Select Method of Range Class Failed" error message on the line of code with ******
The code is as follows: ...
View 5 Replies
View Related
May 31, 2014
I have a survey template with several options buttons (made from Form toolbar and grouped by Group Box).I would like to have a check box that would activate these option buttons for specific question if unchecked and vice versa.
I have copy & paste below formula in VB, but is shows 'Run time error 424' & when I Debug it shows 2nd line highlighted by yellow colour.
VB:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then [code]....
View 3 Replies
View Related
Sep 11, 2013
I am having a sheet where I keep track of when online surveys have been sent to users. The users enail address (column K) may be on the list for several times, but I need to make sure that there is at least a 7 days pause between sending the first mail and the second, depending on the visit date (column G).If there are less than 7 days between two entries with the same email address, the user is not qualified for taking another survey.
I was thinking to write an IF formula which returns either 1 or 0 and then let conditional formatting highlight and HIDE the row via a VBA loop.
View 3 Replies
View Related
Sep 8, 2009
I was wondering if there is any way to "grey-out" a commandbutton? I made it using the forms toolbar.
View 3 Replies
View Related
Jan 28, 2014
I need to build a macro which copies 3 rows every day and pastes the row data into an identical sheet. The three rows will have column "D" as =today(). As the days progress the three rows will change accordingly ( tag to the today's date)
e.g. 28/1/2014
28/1/2014
28/1/2014
I need the macro to recognize the date when pressed and copy the corresponding rows of data and paste them into an identical sheet with the same date. The second sheet is an archive sheet. The date will tick over as per the calendar.
View 9 Replies
View Related
Apr 26, 2007
I have data in 3 columns: Name, Inclusion Date, Exclusion Date. In some instances, the inclusion date and exclusion date will be zeroed out - I do not wish to count those. What I would like to count is the rows that have an inclusion date, but not an exclusion date. Ideally, I would like to have a code so that when I run a macro a msgbox appears that indicates how many members there are.
View 12 Replies
View Related
Nov 26, 2013
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.
View 9 Replies
View Related
May 29, 2008
I've found similar queries on the site, but none seem to handle multiple dates, and my attempts so far have been futile!
Requirement:
I press a button on Sheet1 and am prompted to enter a start date and an end date.
Depending on the dates I enter, all rows on Sheet2 which fall outside the Start/End date range will be deleted.
All dates to be checked against on Sheet2 are in a single column, and all rows are populated, there are no blanks. Dates are in the format dd/mm/yy
View 5 Replies
View Related
Dec 13, 2006
I have 2 workbooks.
The first one (Top Ten Auto Generator.xls) ( Sheet is Summary) has 1 row (13) with 4 cells that have data. A13 with date (today formula), B13, D13, and E13 are numbers. The cell range will be the same each time the data is copied (the workbook has a marco to generate the numbers each day already).
The date doesn't need to be copied, just the other 3 cells data (in the same order) using paste special.
The workbook that needs the cell data is a report ( Dashboard.xls) that has lots of different departments each using 3 columns for their specific data. The left most column A is the date listing to match.
The column Range for my department on that "Raw Data" sheet is "H", "I", & "J" where the "H" would get the data in "B13", "I" would get "D13", "J" would get "E13" for the date that matches the other workbook.
So the way it would work, is that once the vba is run the 3 cells from the auto generator are copied, then the vba opens the dashboard.xls and looks for the date in column A which matches the other workbooks A13 date value, and then the cells are pasted into that row, but in column H, I, & J.
Here's sort of some code that I put together to see if that would be easier to understand. I'm new at doing the vba so I don't have better code.
Private Sub CommandButtonpaste2dash_Click()
'get our data from generator
Windows("Top Ten Auto Generator.xls").Activate
Sheets("Summary").Select
Range("B13,D13,E13").Select
Range("E13").Activate
Selection.Copy
Workbooks.Open "Dashboard.xls"
Sheets("Raw Data").Activate
'look for the date in column A which matches A13 in the Auto generator
Some Code For finding the right date
'once found, paste special to the same row, but in column H (the 3 cells should paste together ok)
some code For pasting into H In the same row As the found date
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
ActiveWorkbook.Save
MsgBox "Done!!!"
End Sub
View 9 Replies
View Related
Feb 26, 2014
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"
[code]....
View 2 Replies
View Related
Dec 17, 2013
I have a spreadsheet with rows and rows of data by date. The far left column houses the date and then each row is another occurrence for that date. Basically I need to count how many rows have the same date. Here is what the basic sheet looks like:
6/15/13
6/15/13
6/15/13
6/15/13
6/15/13
6/16/13
6/16/13
6/17/13
6/17/13
6/17/13
So the formula I am looking for would return, 6/15/13 =5, 6/16/13 = 2, 6/17/13 =3. Or something along those lines. I have a ton of data and using pivot table info to filter by each day will take FOREVER.
View 8 Replies
View Related
