VBA Code For Changing Date In Excel
Aug 15, 2014
I am trying to automate the status date on worksheet so that if ANY data is changed/ added/ deleted within a range (cells "B6:L34"), the status date will insert today's date in Cell "S6" but if the worksheet is open and no changes occur within that range, the date remains the same. I used this code below and it is not working.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R1 As Range
Dim R2 As Range
Dim InRange As Boolean
Set R1 = Range("S6")
Set R2 = Range("B6:L34")
[Code] ....
View 5 Replies
ADVERTISEMENT
May 22, 2014
When I tried to import data in a CSV file, I ran into a couple of issues when trying to change the date format from MM/DD/YYY to other date format. I've already tried a couple things to no avail:
1. Use text to column functions and change the format from text to MMDDY
2. Use format cell function and change the date format
3. Use the text function (text(Cell,"MM-YY"))
Interestingly when I click on the cell and put my cursor and press backspace, the format will change. It seems like there's an extra space, but using the trim function does not work. I can't do this to thousands of data manually.
View 7 Replies
View Related
Oct 27, 2013
in the date fields excel only recognises some of them as date, so when I try to change the format of dates (mm/dd/yyyy to dd/mm/yyyy) it only changes some of them so I end up with some wrong dates.how I can make excel read them all as date?
View 3 Replies
View Related
Apr 26, 2012
I work with several dates in Excel 2007. What forumula can I put in a blank cell that would change the below "Start Date" to 3/1/12 if the date displayed is less than 3/1/12? Also, if a cell in the "Start Date" column is blank, how can I populate a blank cell with a specified date value such as 3/31/12?
ShipPositionStart DateEnd DateBoard DaysBlankMASTER2/15/2012-40953BlankCH.MATE1/22/20123/12/201251Blank2ND MATE2/29/20123/31/201232Blank3RD MATE3/1/2012-40968BlankBOSUN3/5/20123/31/201227
View 5 Replies
View Related
Feb 7, 2013
I need to convert a date into a serial number. The serial number must return the format DDDYYNN where DDD is the day of the year, YY is the year, and NN is the sequential build number. As an example, if 10 units are built on 2/6/2013, the serial numbers would be 0371301, 0371302 ...0371310. Cell A1 would contain the current date (2/6/13) in this example. Column B1 - B10 would be the sequential serial numbers generated by the formula.
View 3 Replies
View Related
Apr 9, 2009
I am trying to lock cells after today's date has passed so that no one can make changes to it after today's date has lapsed. This is for protective reasons so that people do not remove their names from reserving something after using it. Now the code should disallow locking after cell input entry when today's date hasn't passed so that changes can still be made by the user. I am trying to determine the code to do this but I have no idea as to how to do it.
Here's a scenario: I reserve something for Aprill 11, 2009. I input my name. Since it's April 9th, 2009, I am still able to make changes up and until April 11, 2009. After this date, the cell is locked and no changes can be made, except for the administrator.
View 14 Replies
View Related
Feb 4, 2014
I’m working on a project using Microsoft Excel 2010 and I want to add some features to facilitate saving and retrieving files process.
1.How can I save the daily created workbooks (Assume 15 files a day) in order to contain the current date (and time if possible) linked with certain cell(s) I have at my workbook forming the file name? (XYZ 2-4-2014) and/or (ABC 2-4-2014 23:11) and so on …
2.I’ve been through some other posts and I found VB code which saves the active file into specific path, but it is only useful for single workbook because multiple files are getting overwritten automatically. Is there a code which allows multiple/different files saving & creates daily folders?
View 4 Replies
View Related
Feb 7, 2013
If a1,a21,a41 have a value greater than 0, I wish to stamp cell b1,b21,b41 and so on with todays date, but without the stamped value changing/advancing tomorrow. At the moment cells b1,b21,b41 are copied down as follows. =if(a1>0,TODAY(),"") This works fine, but the date stamp of course changes tomorrow. I can not apply code to the whole b column as cells b2:b20, b22:40 etc have other non-date format data to which the code does not need to apply - the todays date value cell occurs every 20 cells.
View 6 Replies
View Related
Jan 10, 2013
I am trying to import txt files into Excel but instead of inmporting every row, I use the following method to select only the rows I want:
Much ADO About Text Files
However, it mentions a schema needs to be created.
For example:
[File1.txt]
Col1=Name Text
Col2=Age Integer
[File2.txt]
Col1=Name Text
Col2=Age Integer
This is not a problem if I know the names of all the csv files I am importing (I can create one manually) but since I don't know how many files need to be imported, how can I create a schema for it?
Would it be possible to use VBA and create the schema dynamically?
View 1 Replies
View Related
Mar 10, 2007
I have VBA code that has the year for embedded within the code for eg "Fixed assets 2007.XLS"
I would to write VBA code that will enable me to change the date from say 2007 to 2008, wherever it appears in a partcular workbook.
View 9 Replies
View Related
May 10, 2007
Is there a way to change a line of vba code using an input box?
The current macro downloads a file from our intranet. However the filename changes each week. It is only the last portion of the filename that changes since this part is the date it is created. e.g filename010507.xls filename090507.xls
What I want to do is for an input box to pop up, the user then enter the date and this will then replace the existing filename in the code with the new date.
View 9 Replies
View Related
Jan 28, 2012
Is there some code to change the fill color of all the combo boxes I have on a spreadsheet.
View 2 Replies
View Related
Aug 29, 2012
The code below deletes all empty cells from column F starting from row 2 till last data cell in column A.
However what to change in it to do exactly the same except for empty cells, look out for "0" values...
Code:
Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("F2:F" & LR).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
View 2 Replies
View Related
Apr 29, 2009
I am trying to create a model that has a mixture of conditional formatting and data validation formulas within it, but have run into a problem in one area. Essentially, cell E10 is a Validation which pulls a drop down list of names. One of the options in this list is "Other".
I want to create a VBA code to make sure that cell E12 will get rid of any input, turn grey (color index = 15), and potentially lock (if possible!) if the "Other" is chosen by the user in cell E10. If any other value is chosen for cell E10, Cell E12 needs to remain unlocked and white (color index=2).
View 9 Replies
View Related
Jan 28, 2014
I'm uploading a sample worksheet- on the scenario A tab, there is a pivot table that are pulling from the data range that is between B3:c13. I copied tab A and made tab B. However, on tab B, the pivot table is still pulling from the data range on scenario A even though I need it to be pulling from tab B.
I do not want to use dynamic ranges because the pivot table is being used to make a pivot chart. How do I get it so that on the scenario B tab the pivot table automatically pulls from the right tab?
I have also have a macro/VBA (I don't know what it is considered, I just copied code from somewhere online) that automatically refreshes all pivot tables (there are other pivot tables being used in the spreadsheet). If I did need to use vba/macro to accomplish what I need to do, where would I copy/paste it in the code I currently have (not sure if the button I have in sample will work properly)?
Sub Refresh()
Dim PT As PivotTable
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
For Each PT In WS.PivotTables
PT.RefreshTable
Next PT
Next WS
End Sub
On tab B, I manually created another pivot table to show what I want the end result to look like. The pivot table between rows 22 and 24 and the corresponding pivot chart between columns E and M (lets call this pivot table/chart #1) is what I'm trying to manipulate. The pivot table between rows 26 and 28 and the corresponding pivot chart between columns o and V is what I want the end result to look like. I made pivot table/chart #2 by just manually setting the data source to be "ScenarioB!$B$3:$C$13.
However what I'm trying to do is get it so that pivot table #1 would automatically refer to ScenarioB!$B$3:$C$13 instead of ScenarioA!$B$3:$C$13. I created the tab "scenario B" but just duplicating the scenario a sheet. Thus, when I duplicate, the pivot table still incorrectly refers to data on the scenario A tab. I want it to pull from the scenario B tab.
The data range between $B$3:$C$13 automatically pulls from another sheet in my real spreadsheet.
View 2 Replies
View Related
Sep 17, 2008
I have the following code from Ron De Bruin's website (http://www.rondebruin.nl/mail/folder3/message.htm) for emailing a small message from a range.
View 14 Replies
View Related
Mar 3, 2012
I was using this code in a sheet that contained combo boxes and it worked great. When I redone the sheet a used data validation instead of CB it wold error out.
Code:
Sub savee()
Range("A4:J22").Select
For Each Cell In Selection
If Not Cell.HasFormula Then
Cell.Value = UCase(Cell.Value)
End If
Next Cell
Range("h4").Select
ActiveWorkbook.Save
End Sub
View 5 Replies
View Related
Aug 1, 2013
I'd like to create a macro that searches a column within a changing, variable range.
For example, I have a roster with a list of teams. Each team is separated by a blank row. In each team, there are a varying number of team members, and one team leader. Column I has the position code, which designates whether the person is the team leader (SL), or just a team member (RD).
What I'd like to do, is search each team for the team leader, then check another column (Col A) just within that team for another value, and if that value is present return the last name of the team leader as well as the name of the member with the value in Col A.
The problem is, I'm not sure how to search a varying range in Col I. Teams can vary in size from 3-11 members (including leader), and the number of teams varies each day. I don't have the option of changing the format or layout of the roster - it's automatically generated by some other program and given to me in a CSV list.
For example, from this sample data of two teams
Testing Program : DKSFS
Scoring Center : Concord
Rater Schedule Date : 07/29/2013
[Code]....
how to define that range in Col I which changes with each new team. My approach is to find a way to search a range (essentially the values between blank cells ) in Col I for the value "SL", then search that same range in Col A for the value "VM". If there's a value of VM within that range (team), then copy Cols A-E, write them to a list, and insert that person's team leader last name at the right.
how to define a dynamic range in Col I? I already have a working macro written which generates that last time, sans team leader name, just trying to figure out how to search that changing range in Col I for each team to find team leader name.
Note, not all teams will have a member flagged with that VM marker in Col A.
View 9 Replies
View Related
Feb 5, 2007
I have a workbook, that when opened the first time needs to prompt the user to save it. I got that working with no issues by using
Private Sub Workbook_Open()
SaveOnOpen
End Sub
where SaveOnOpen is a procedure in another module. What I would like to do now is re-assign the Workbook_Open sub to be set to null, so that it doesn't run any more. Is it possible to somehow assign Workbook_Open to call a null procedure, as opposed to setting up an onTime call to delete the code itself?
View 9 Replies
View Related
Mar 13, 2014
I have made several Shapes and assigned macros to them, all is good.
What i am curious about: is it possible to highlight or change colour of the shape on press and return to normal if another is shape is pressed? Just anything to make that particular shape stand out that it has been selected then return to normal when another shape has been selected...
[Code] ....
That is the code so far that is attached to 1x shape...
View 5 Replies
View Related
May 26, 2009
Is it possible to write VBA code that will prevent a user from changing a cell's contents, depending on the cell's font color?
More specifically, I have a column of text in range B15:B64. Some of the cells will have a black font, others will be blue. Is it possible to lock the black font cells only, leaving the blue cells unlocked for users to change?
View 9 Replies
View Related
Apr 14, 2013
I have this code:
Code:
If .Range("K" & t) = "AUTO" Then
.Range("K" & t) = Format(Application.VLookup(.Range("A" & t), rcore, 54, False), "h:mmA/P")
With .Range("K" & t)[code]....
It is intended to change the font colour to white when the cell = "AUTO". It does, but it also changes the contents of the cell (like NA, and NR) to white when they aren't equal to AUTO.
View 2 Replies
View Related
Jul 31, 2012
I have a macro that, at varying places, changes the formatting of adjacent cells. The formatting code is easy to generate via the macro recorder, but it's long - longer than the macro itself - and I'm using it a couple of times (due to if statements). That makes it difficult to read. It's usable, but looks ugly. I'd like to streamline its appearance.
Is there a way to do something like:
Code:
If range("F5").Value > 0 then
Activecell.Offset(1,0) format = blah
ElseIf Range("F5").Value = 0 then
Activecell.Offset(-1,0) format = blah
End If
The formatting I want is dark gray interior with a border box around it. The macro recorder generated this:
Code:
Sub test2()
'
' test2 Macro
'
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
[Code] ............
View 3 Replies
View Related
Aug 5, 2007
The following block of code is evaluating the term in the array, if it exists and the value in col. M is a non integer, (which what I am testing for are fractions) then format the cell to a fraction number format.
That is ok, except it is changing the numberformat on text terms. I want it only to change the numberformat on numeric values.
I added the function Isnumeric to this line:
Isnumeric(cells(i, "M").value) Int(cells(i, "M").value)
which I thought would only evaluate numeric cells only, but this was unsuccessful.
Original Code: Unedited.
For i = 4 To LRowf
For Each Item In Array("HAT", "FTWR", "BOOT", "BOOTG", "BOOTY", "HWRISR", "HWBLTS")
On Error Resume Next
If (Cells(i, "F").Value = Item Or Cells(i, "G").Value = Item) And _
Cells(i, "M").Value Int(Cells(i, "M").Value) Then
Cells(i, "M").NumberFormat = "# ?/?"
On Error GoTo 0
Exit For
'End If
End If
Next Item
Next i
View 9 Replies
View Related
Jul 18, 2014
I have data in these two formats 7/13/2014 9:24:14 AM and 07/12/2014 13:02. I want them in Am - PM style. I tried date , there is no format which suits my requirement. The first format in excel is general and other is custom under dd/mm/yyyy hh:mm . I have 23k rows, which I cannot afford to change manually.
View 3 Replies
View Related
Aug 12, 2009
I've got dates and times in the format of a text string. each string is always formatted in the exact same way to identify the data and time. As such:
Wed Aug 12 16:39:52 BST 2009
Mon Aug 10 14:39:03 BST 2009
Sat Aug 08 18:01:34 BST 2009
And I want to change them to a date formate that excel can understand, so i can search by month, or by date range. The main crux of the question is how to change that string into a excel understandable date though.
If you want to know, this is for my mobile phone bill. I have excel set up to give me a summery of how many texts I've sent, minuets I've used/have remaining. but i want to filter them by month, so I can see how my usage changes.
View 14 Replies
View Related
Dec 11, 2009
FYI I put up this question on another forum, however I'm asking it again here b/c I'm not really getting an informative answer there and this project is due soon.
[url]
I'm working on a file right now where dates are in the format "06/01/09" meaning 6 Jan 2009. Or more specifically thats what the data is supposed to mean, however when I change it to word form it appears as June 1 2009. This means dates such as "27/01/09" dont get translated.
How can I fix this? I've tried changing the date format, and I've changed the global settings, yet this isnt working.
In case its relevant, before I pasted this data into the current spreadsheet my global settings were set at month day year, which is what I prefer. But the rest of the office works on DMY so I'm switching to that.
View 13 Replies
View Related
Jul 21, 2014
How to have VBA return the value of the following month in mm format (i.e. 08 for August, not 8), based on today's date. As such, today it being the 7th month, I wish to return the value 08 (the 8th month).
I need the URL of
[Code] .....
To essentailly be
[Code] ......
but the way in which I have posted it above does not work!
Also, I need to define it such that as the month in question (in this example 08) will rename the subsequent part of the URL (here, August). So for example, next month (August), the URL should automatically become
[Code] .....
View 3 Replies
View Related
Jun 11, 2007
How can I track date of every last change made in certain cells so my boss can monitor if I am keep working on a project?
View 9 Replies
View Related
Mar 22, 2008
I have an entire column with the date reading in this order:
7/4/19
The actual date should be April 19th, 2007, however, Excel is reading it as
July 4th, 2019.
How do I correct it?
View 9 Replies
View Related
