it is Possible to Expire Excel Sheet on Specific Time or Date.
And Even if I Mail that sheet to any Person and he Open After the Expiry Time or Date
I want to Show the Message "Unable to Open"
Protected Sheet is not a good Option These Password can be Break Easily
I have a raw of data consists of expire date. I would like the excel to control the first expire first out by highlighting the nearest expire date for each materials.
Note that for each materials there are several batch with different expire date. I want the excel to highlight to me which batch i should use first base on nearest expire date. And also highlight in different color if the batch had expired.
Example is attached. I had manually highlight suggest batch to use in yellow, and expired batch in red. How should i do it with formula? Perhaps with "conditional formatting"?
I have products that have a 3 year shelf life from date of package, I've got:
Col A: code of product.
Col B: date of package.
Col C: expiry date.
Col D: I would like to construct an if statement which will state:
Condition 1: that if expiry date (Col C) is less than current date (today()) then to display "expired by x years, y months and z days" with reference to the current date - using pearson's DATEDIF formula:
"Expired by "&DATEDIF(C2,TODAY(),"y")&" years "&DATEDIF(C2,TODAY(),"ym")&" months "&DATEDIF(C2,TODAY(),"md")&" days"
Condition 2: that if expiry date (Col C) is greater than current date (today()) then to display "in date - x years, y months, z days left to expire" I'm unsure as to how to construct the second formula - as it will be a countdown date difference from the current date to the expiry date? Final if statement will be:
If(C2<=Today(),formula for condition 1 as shown above,formula for condition 2)
method for making a VBA script expire?
I.e. it will only work for a specified time and requires the author of the script to renew it at a given point?
I want to be able to do this to strengthen my position as an independent contrator financially...and copy protect my work from unwanted exploitation
Some ideas:
1-MSG box requesting a pre-defined password to renew the time for the script to work along with contact info for the author
2-Ability to define # of days, months and or years the script will work
3-Ability to define the # of days, months and or years that a MSG box warning of pending expiration will appear
4Ability to define the # of days, months and or years that the renew will extend the use of the script with multiple pre-defined passwords allowing different lengths of time extention! Perhaps an encryption method allows you to in another excel sheet (say the comfort of your own home) generate at will a password that will extend a scripts life for 3 months?! They contact you again, and again you generate a "random" password that will extend the original script
5-Anti-hacking measures, using MS's built in security
This might be a useful way of extracting monies over time, for the use of a script you provide....pre-set
I have an excel file with several worksheets and 1000's of lines of data.
Protection is already given courtesy of having to enable macros or sheets are hidden, and copying of data is not possible. It is however unfortunately possible to copy the excel file, therefore I would like to have code to to render the file inoperative if a date elapses. In addition since the file is password protected (as regards alterations - read only for others), I would like the clock to increment for example 7 days further every time the correct password is entered. In other words if the time period elapses simply entering the password will reset the clock and permit all users access for another week once the file is saved..
I recall a few years ago that I located a program that allowed me to create an Excel spreadsheet and share it with others, but that locked the spreadsheet after a given period of time. I need to create a spreadsheet, but I want to put a time frame on it which requires users to request an access code from me every so many days. I don't want users in my business to be able to take the spreadsheet and use it should they leave the company. I know there was a subscription program that allowed me to do this, but I can't recall the name of it. It also allowed Excel to hide all of the formulas, even though the calculations worked.
View 2 Replies View RelatedI have my Employees List in one Sheet and in another Sheet2 I want to Display those Employees Names and List whose Passport going to Expire in the dates entered in Sheet2 A1 and B2 Cell.
View 9 Replies View RelatedI've created a chart in sheet 1 in a workbook. I want to copy and paste that chart into another sheet (lets take sheet 2) of the same workbook. I am using Excel 2010 version.
Whenever, I try to copy a graph and want to do "Paste Special as Link picture". The problem I am facing as "Paste Link" option is inactive.
I am attaching the Excel for your reference.
The two sheets are...
1. Sheet1.xlsx (regular excel sheet as the extension is .xlsx)
2. Consolidated.xlsm (macro enabled sheet as its extension is .xlsm)
1. Copy both the files on your system under a particular folder.
2. Now make 9 replica's of Sheet1.xlsx and name them as Sheet2, Sheet3, Sheet4, .......... Sheet10
3. Open the sheet Consolidated.xlsm and see the button i have added called "Pull Data".
Now write down the code by adding a Module in that excel sheet from the code window.
4. Write a code that will open each of these sheets (Sheet1, Sheet2, Sheet3, Sheet4, .......... so on) one at a time and will copy the data from these sheets to the Consolidated.xlsm sheet.
5. Make sure that the data is appended(and not overwritten) from the multiple sheets (Sheet1, Sheet2, Sheet3). that is once you paste the data from sheet1 to Consolidated.xlsm then the Sheet2 data will be pasted at the end and after that sheet3 data will be pasted and so on..
6. In this way at the end we will have all the data from Sheet1, Sheet2, Sheet3...in the consolidated sheet.
7. The Division column in the Consolidated sheet will have the value of first row in these multiple sheets. So after making the replicas of Sheet1, please change the value in first row (Range A1) to any other value to avoid the confusion.
8. I have highlighted the data for two sheets in yellow and grey color in the consolidated sheet.
I have been trying to edit a code which previously saved a copy in a new workbook to a specific folder/path. (Additionally it copies and clears some figures, but this is working as it should.)
However I would like the copy to be saved at the same location as the original workbook, regardless of the path the original workbook is saved.
I.e if I need to move the workbook containing the code to a new folder/location, when using the macro, the new copy should be stored in the same folder/location as the original one.
For now it is only saving the copy into "My Documents"
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 16-02-2009 by ceng
'
Sheets("Bunker ROB").Select
Sheets("Bunker ROB").Copy
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & Range("D3"), _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[Code] ........
I have data in 2 different workbooks, and I need to transfer all data in 'Jx_ex1' to sheet1 in the 'template' workbook, and all data in 'Gr_ex1' to sheet2 in 'template' workbook. All data should be transferred to the same cell numbers, from A1 to Y5000. I actually have loads of workbooks to transfer to the template but if I have an example with the two then im sure I can work out how to modify it. All files will be in the same folder.
View 8 Replies View RelatedI'm trying to find a way to save a single sheet of an excel workbook and in the same process delete all vba code and shapes from the new single sheet workbook. I was looking around and found this code which does save only the single sheet to a new one sheet workbook but doesn't delete the vba and shape that I have used to assign macros to in the original.
Code:
Sub SaveSheetAsNewBook()
Dim wb As Workbook
Dim InitFileName As String
Dim fileSaveName As String
Dim wshape As Shape
InitFileName = ThisWorkbook.Path & Format(Date, "mm.dd.yy")
[code]....
I'm trying to figure out a way to find a specific sheet in a workbook that does not contain the macro. Within the macro I have a cell which holds the name of the specific sheet I would like to find but I can't get it to work for some reason...
'Dim officen As Integer
'Dim thiswb As Workbook
officen = Range("A2").Value
Set thiswb = ActiveWorkbook
' Open the Active Info file
Workbooks.Open "C:My DcoumentsActive 20080616.xls", , , , "xxxxxx"
' Dim sourcewb As Workbook
Set sourcewb = Workbooks.Open"Active 20080616.xls"
Sheets("officen").Select
RowCount = ActiveSheet.UsedRange.Rows.Count
Range("B2").Select.............................
My requirement is as follows......
I want to get a copy of worksheet from specific workbook to active work book in which i want a copy of sheet get moved.
I have workbook having around 25 sheets and i want macro to merge all sheets except first (summary) in to last sheet ( mergedata ) inpute data will be start from cell A17 in all sheet. also sheets may be add or delete as per requirement. after merge data from sheet name should add after each entry .
attached sample file for your reference.
[URL]
I have a Picture in a workbook kept open. ( workbook 1 )And i have some X workbook open....i want a copy of sheet from workbook 1 To X workbook which is currently active.
View 1 Replies View Relatedi'm trying to get data added in one sheet of a workbook to automatically be entered into another sheet. such as a monthly, Quarterly and Annual balance sheet.
View 3 Replies View RelatedI am getting the error from the title of the thread when I try to change a worksheet name.
This worksheet name doesn't already exist in the workbook and I don't have any other files currently open.
I'm not entirely sure what is causing this, but I do need the sheet to be the name I am trying to change to.
I'm looking for a formula that will paste an entire row from sheet 2 into sheet 1 of the same workbook when only 1 cell is typed.
I am trying to come up with a property access log for my guards so when they enter a tag number from(sheet 2 column B) into (sheet1 column D) , it will auto fill sheet1 column C and E with the entries from sheet 2 column A and C.
I have a userform which clones the latest sheet and produces copy of it on the next sheet. The first sheet they will be cloning is the sheet called 'template', I however want this to be hidden since I do not want anybody to modify a sheet which basically serves purpose of a template. And once cloned, it is no longer needed.
On the click of the command button, the macro will create sheet1 taking the info from sheet named 'Template' in the same workbook . And now on the next click of the command button, Sheet 2 is created taking the info from sheet1 and Sheet 3 is created taking the info from Sheet 2 and so on. Here is what I currently have, so how can i modify it in order for my scnerio to work?
To select the last sheet in the workbook
Code:
Sheets(Sheets.Count).Select
To create new sheet
Code:
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = MyEvent & " " & MySCN & "(" & ThisWorkbook.Sheets.Count - 2 & ")"
I am wanting to create a macro for excel that when run it it will copy the active worksheet and worksheet named "Timesheet" and copy them to a new Excel workbook named the same as the original file + "JobBrief".
View 3 Replies View Related have a basic knowledge of VBA. The task I am trying to perform with VBA is to
1. Copy from sheet1 A1 to sheet2 E9
2. Copy from sheet1 B1 to sheet2 E11
3. Save sheet2 in a new workbook file with the file name cell data from sheet1 A1 (511894.xls)
4. Copy from sheet1 A2 to sheet2 E9
5. Copy from sheet1 B2 to sheet2 E11
6. Save sheet2 in a new workbook file with the file name cell data from sheet1 A2 (097219.xls)
7. Repeat the process down columns A and B to the end of the columns.
8. Columns A and B will end at the same time but the data and the last cell will change with each scan added to the columns.
This code will accomplish this task with a single column of data but not two columns. Also column B will have a mixture of numbers and letters in its cells, Column A is only numbers.
VB:
Sub MoveData()
sName = "temp"
Const csPath As String = "C:Documents and SettingsmcgaulcDesktopTestFile"
'MyName = ActiveWorkbook.Name
[Code].....
Here are some images of the data sheet and the saved sheet
Sheet1.jpg Sheet2.jpg Note: sheet2 in image is "temp" sheet in code
I have a work sheet with the datas as below
A B C D
E ------- so on.
1 P.O.# STYLE# ORD.QTY PRICE VALUE ............ etc...
2 P-150 ABT-5 500 $2.50
$1250.00.............etc
3
4
5
6
....
....
.....
goes on....
I have more than 1000 entries in an year
Now I need the following to be worked out in the next sheet
A B
1 P.O.# Here I have to select the P.O Nos what is entered
in the data sheet
2 INVOICE NO Here the relevant Invoice No. for what I selected as above
should apper
3 VALUE Same as above
6 AMT RECD
8 BALANCE TO RECEIVE
I have a summary sheet which shows a range of information to give a full overview of the main information from individual feature forms.
At present, the manager is manually linking the cells from this sheet from the individual feature sheets with the normal =A1 kind of formula.
Is there an easier way to do this?
The solution would need to insert a new row each time in the summary sheet and pull out about five key bits of information from the feature sheet.
I would like to run a macro from a worksheet that creates a new workbook for each worksheet (there will be 20 plus) and saves it in a new folder i.e. all the same directory L/Utilisation/Team/name of the worksheet.
View 2 Replies View RelatedI just want to copy from one sheet from a workbook to someother workbook.
I am getting an error "Copy method of the worksheet method failed"
creating some VBA code to move the last sheet in my active workbook to come before all the other sheets in the same workbook.
View 2 Replies View RelatedWhile in a workbook called "Main_Workbook.xls", I use a sub to open another workbook called "SecondWorbook.xls". Here's the code to do that:
Sub OpenWorkbook()
ExcelFile = Application. GetOpenFilename(FileFilter:="Microsoft Excel
Files(*.xls),*.xls", Title:="Choose an Excel file To open...")
Workbooks.Open FileName:=ExcelFile
End Sub
This works fine. When you view the workbooks in the Project Explorer you will see:
VBAProject(Main_Workbook.xls)
Module1
Sheet1(ABC)
Sheet2(Sheet2)
Sheet3(Sheet3)
ThisWorkbook
VBAProject(SecondWorkbook.xls)............
I have created a workbook with several subsheets for different departments in my company to fill in there respective data that feeds a main sheet that colates all the info. I've designed a macro that basically breaks the department sheets into seperate workbooks so that i can send them to the different people to complete. When the files return, I could sit there pasting the data back into the main workbook but really I would rather have a macro that overwrites the sheet in the main work book with the completed sheet of the same name.
Maybe I havent done this correctly, but when i try to move the sheet from the department workbook back to the main workbook it just creates a (2) copy. I want it to replace the sheet rather than create a copy.
on my workbook i run a macro and this macro copys my current sheet and then it creats a new sheet that should be "shop" and then when i run the macro again the next new sheet should be "shop2" and then "shop3" ..
i need something like this
ActiveSheet.Copy After:=Sheets(1)
ActiveSheet.Name = "shop"+1