Modify File Stamp
Dec 13, 2006I need to touch(modify) my file stamp for test, is it possible using vba?
View 3 RepliesI need to touch(modify) my file stamp for test, is it possible using vba?
View 3 RepliesI need to modify/edit the properties of a CSV File. (Ex: Title, Subject, Author, Category, Keywords, Comments) through VBA
View 5 Replies View RelatedI have a macro which creates a new file and saves an extract of data to it. I would like to add a datetimestamp to the end of the filename while saving.
Is there anyway to do this using my existing macro with some changes?
My relevant part of the macro looks like this.
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"W:PJ_Report.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
This saves the file as PJ_Report.xls
I would like this to be
PJ_Report_20080609110403.xls
or even
PJ_Report_20080609 will do.
I've got a simple save macro below and was looking for a way that when this macro saves the file can it add the system date and time to the name.
'ChDir "C:
ashfinch"
' ActiveWorkbook.SaveAs Filename:="C:
ashfinchNFC-ORDER.XLS", FileFormat:= _
' xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
' , CreateBackup:=False
I have been given a .csv file of several thousand rows, and I need to
change column A of each. The brief cutout below shows column A of the
first two rows. (I need to skip the first row, which is the headers.)
Kinda clumsy to have such a wide column, but the application this file
is to be fed after I change the contents requires all the data
separated by double-quotes to be in the one column....
I have this macro that I am using but want to automate the file it uses. This file has the last 5 text/digits change each month, e.g.
Internet_GB_Report_Feb07
Internet_GB_Report_Mar07
Clearly the next file would be Apr07. I would like the macro to identify this automatically and use the correct file without having to go into the macro every month and change the last 5 text/digits. If you have any ideas I would be very grateful to hear from you. The Macro is below:
[/code]strPath = "c:Internet"
strFilename = "INTERNET_GB_FEB07"
strThisWkb = ActiveWorkbook.Name
intReports = Workbooks(strThisWkb).Sheets("Lookups").Cells(1, 2)
Code:
I'm having a macro for search and all within the same file as folow:
Sheet"Search" has this vba
Code:
Option Explicit
Private Sub Worksheet_Activate()
[c3] = "Type your search here."
[c3].Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[Code] ........
Sheet"Data" is my data (which is refer to above vba as Const SEARCH_SHEET = "data")
My needs here, i need to move Sheet"Data" to another file then how can I linke above vba to Sheet"Data" that moved to another file?
Infact, that file will be as addins file (.xlam) .
I want to amend the ' Date Modified' for a spreadsheet. I have just made changes to it - so the 'Date Modified' shows today's date and time. Is there a way of changing the 'Date Modified' so it shows as yesterday's date?
View 3 Replies View RelatedHow can I add a date stamp that will populate a field when text is entered into another cell but will not change every time I re-open the sheet. I have been using =if(B4="",NOW()) which changes each time though and as soon as text is entered it disappears. I want to capture the actual date that someone enters text into a cell and save that date in another cell???
View 5 Replies View RelatedI have an array starting at, lets say "C25" -header line Row 24- with data entry and calculations to Colume "AW25".
Each row represents a data record for a project, where different data types are used (Number & Text).
A "termination" row is set as last row.
New records are always enterd in row "25", but any row in the array is allowed to be deleted.
The number of rows can be extended or reduced, when entering/ deleting a new record (not all info are mandatory for calculations) - basic data is followed by lots of calculations for the record.
This leads to the issue that the array is dynamic regards amount of row.
To make it even more "fancy", the array can be sorted using data filter from row "25" to "last row -1".
I need to track when a record (any cell in the row) has been accessed/ modifed/ enterd last. The time stamp may only be altered when the particular record (row) is modified and NOT in case any of the cells is modified (NON-valotile)
I have foreseen to enter that date in Colum "Bxyz" of the array.
For a referrence I still have Colume "A" as "spare".
Depending on time difference I've to mark the "date" cell with conditional formating (this is an easy task I know how to do...).
Does any one has an idea how to implement such routine (sub or Function)..
Remeber, number of rows varies - up to now there are just 310 records, but will be much more in future.
Not to forget ... some of the Colums have data avalidation set...
How can I make a hot key that puts todays date and my name on it so I don't have to type it over and over again?
I have a system of checkboxes and now I need a time stamp when the check box was marked TRUE. They ar linked to cells so the solution can be either linked to a cell or to a checkbox. Obviously I can't use Today or Now functions because they are refreshed. I found many solutions for time stamps when a change is made in a cell, but none of them worked for me. I tried altering them with no succsess. I would be very happy if the solution would apply to the whole column, not one cell and checkbox, because I have A LOT of checkboxes.
The checkboxes are in column B and I want the time( date) stamps in column C.
I have been able to use a time stamp code to put a date and time in a cell... I then worked out how to use this to list dates and times in the same cell (instead of replacing the cells contents)... using this
View 7 Replies View RelatedI have a spreadsheet (obviously), I want to click a check box and have it date stamp with text, in the next available cell... if you know what i mean! I have attached a screenshot of what i have (the check boxes) and what i need (the writing in blue).
View 7 Replies View Related device a macro which should be able to provide a time stamp in Column B when the adjecent cell in Column C is updated.
i.e. If C1 is updated, B1 should get the time stamp. *& if the value in C1 is removed, then the time stamp in B1 should also be removed.
In addition to this, I would require the macro to unprotect the sheet before updating the timestamp and protecting it again after the time stamp has been enetered. further moving on to saving the sheet.
I tried to combine few updated macros to complete it bu have been unable to do so.
This time stamp macro is great but I would also like to record the person who said 'Y' in the same cell as the date stamp '12:00p.m. MWatson'. The persons name should come from the Username.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range([P13], Cells(Rows.Count, "p"))) Is Nothing Then 'change your range on this line"
With ActiveSheet
If Target.Value = "Y" Then
Target.Offset(0, 1).Value = Now
[Code] ........
I would like to take this VBA a step further. What I want to achieve is to date & time stamp a worksheet in cell A1 if any other cell within the sheet is altered. Below is the VBA I used today to enter the info if cell A1 is changed. Can anyone please help with my new target.
Just one more question: When a shared file is used is it possible to also enter the username of the person who's made the alteration.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
' Only look at single cell changes
If Target.Count > 1 Then Exit Sub
' Set Target Range
Set rng = Range("A1")
' Only look at that range
If Intersect(Target, rng) Is Nothing Then Exit Sub
' Action if Condition(s) are met
Target.Offset(, 1) = Format(Date, "d mmm yyyy") & " " & Format(Time, "h:mm") & " Hrs"
End Sub
I can't figure out how to get a date/time stamp to show when the spreadsheet was last updated.
View 9 Replies View RelatedI am struggeling to adapt this code to what I need. As is, it simply puts a date stamp into cell AJ2 when anything is changed in A2-AJ2. While this code works great I have been attempting to apply it to the rest of the columns in the work book with out having to list each of the rows and cells in the code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A2:AI2]) Is Nothing Then
[AJ2] = Date
End If
End Sub
(this is obviously the code that runs correctly)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A2:AI2-A10000:AI10000]) Is Nothing Then
[AJ2-AJ10000] = Date
End If
End Sub
(this is one of many unsuccesfull attempts to alter it)
I found the code below in a previous tread, it works great, but i need some help altering it. I have it set-up when someone puts their initials in column B the time and date inputs in column S. But it also inputs if I hit delete or clear contents when I need to clear the form. Is there a way to make it input the time and date ONLY when letters are entered in column B?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Target.Offset(0, 17).Value = Now
Application.EnableEvents = True
End If
End Sub
I have 2 barcode scanners on opposite ends of a conveyor. Barcode data from reader 1 inputs the data in Column A. Reader 2 will be inputting its data into J2. When J2 has data inputed, I would like to match that data to column A. On the row where the match is found, I would like to transfer a "Yes" to column H and a time/ date stamp in column I. Once this has occurred, clear the data from J2. I will have a minimum of 20 seconds between the scans on the second reader.
View 2 Replies View RelatedThe following code was supplied by Bill, but I want to do the same thing in B10:B164, where "x" is entered in B10 and the time stamp is entered in C10 & D10.
I tried copying the same script but had an Compile error message which said Ambiguous name detected: Worksheet_Change. The name of the sheet is Sheet 1 (Main)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("M10:M164 ")) Is Nothing Then 'change your range on this line"
If Target.Value = "x" Then
Target.Offset(0, 1).Value = Now
Else
Target.Offset(0, 1).Value = ""
End If
End If
End Sub
I have tried several macros and different code to accomplish the following:
1. scan a 3x9 barcode via hand-held scanner to populate a cell in column A, lets say A2.
2. the scanner does this and puts the number, say "330030" there (via the forms function)
3. in column B I would like it to say the date and time of the scan
4. the macros I have used will 'sometimes' populate the date / time but when I reopen the sheet, everything changes to 'NOW'. I would like the data to not change the date.
This is for a simple inventory spreadsheet that I am building to track movement of stock.
I am looking for a command that will time stamp a cell with just the time, not the date. I've already looked at =Now(), but that, unfortunately, includes the date as well. I just need the 24hr value.
View 2 Replies View RelatedIs there a formula to remove seconds part from datetime stamp? 6/26/2014 6:14:25 AM, should be converted to 6/26/2014 6:14 AM I used ROUND((DATEVALUE(H2)+TIMEVALUE(H2))*1440,0)/1440 but it is providing #value! error
View 2 Replies View RelatedI've got a sheet with lots of columns. Each time someone makes a change in any row of any one of those columns, I want it to date stamp it in an extra column on the end so we always know who made the last change to each row and when. The actual entering of the data isn't a problem, the problem I'm having is getting it to always put the data stamp in the right column or row.
View 2 Replies View RelatedI am trying to automatically capture and record the date of a cell's last change in value (date stamp). I have an item price list and if a particular cell gets updated I want to automatically record the date of change of that cell. I realize that after I change cell A1 I could tab to cell B1 and enter Ctrl+; but if I have a hundred new prices to enter I don't want to do that (plus me or the data entry person might forget).....
View 14 Replies View RelatedI copied the code that was used to inserting the date when the cell next to it was updated, the original post can be found here: [URL]
The Code below will check a range of cells between c3 and c20 and if I make a change to the value in any of them, then the cell to the right of them will have the date inserted. I've had to modify the original code from the other post a little bit to stop an error appearing when I insert a new Row:
[Code] ....
On the first example that was posted it all ran ok until until I attempted to insert a new Row, then it would put the date into about 5 of the cells to the right of where it should do and I received an error message with the usual Debug stuff on it. It would also delete my column descriptions that I had on Row 2.
Would it be possible for it to not auto insert the date on any new blank row that I insert?
What would be the correct range for me to get the code to work on c3:infinity....
Is it also only possible to enable macro's and code like this in the current document instead of every document that you load through excel.
I want to create a command button on one worksheet so that when I click it a pop up box asks the user for the date and this date is input automatically into a specified cell on another worksheet.
I have got this far - which makes my data input box pop up but now I need adding in code to put that data in a certain cell - for example Cell B1 in worksheet Daily Tasks.
Private Sub CommandButton12_Click()
Dim ans As String
ans = InputBox("Enter date dd/mm/yy", "Data Entry")
End Sub
I am having a very difficult time making this work, if there is anyone who can assist me, I would greatly appreciate the assistance. You can see below what I am trying to do. The entries between the last cells H,3 & K,3 just contain data that is not affected by the rest of the sheet functions.
Cell one (A,3) has a drop down menu for vehicle status.
(B,3) vehicle number
(C,3) Drop down vehicle type.
(D,3) is for dept.
(E,3) Date/Time stamp auto generated from (A,3) entry. (Vehicle Status)
(F,3) is POC.
(G,3) Phone/email.
(H,3) Date & Time stamp out of shop. (This cell will recieve the date & Time Stamp from entry of work done in (K,3)