The following code uses the GetAdsProp formula to get the user info properties from the Active Directory.
I am able to get the Firstname,Last name. But not able to get the data for the expiryDate.
[Code] ..........
I want to set up a spread sheet that has an expirty date of 30 days and once reached the spread sheet can no longer be read.
View 11 Replies View RelatedFrom an Excel workbook userform, I want to capture a logon name and password, and then authenticate against Active Directory.
The only information I want from the process is whether the user name/password combination is valid in AD.
I know how to do all the Excel stuff (userform, etc.), and I know how to get information from AD using an administrator binding. What I am missing is being able to verify whether the Excel workbook user is the AD user that they claim to be.
I am using excel and when workbook open i call for a macro to start running--(this works no problems), so what i am trying to achieve is when i execute that macro to run, i need to set an expiry date for 6 days later. here is the code below what i am trying to do is run 52 web refresh querys, 1 every week but have to ensure the macro before has ended before the next one starts
workbook (open)
VB:
Application.OnTime Now() + TimeValue("00:01:05"), "RefreshWebQuery_Data" Module1
Sub RefreshWebQuery_Data()
'
' Macro3 Macro
[Code].....
I have a file that has start date column. I'd like to show the account's expiration date on another cell but it's going to be dependent on another column.
Say
Column A - customers name
Column B - start date
Column C - rate
Column D - End date
Column E - Follow up Date
Rate column will have the ff inputs :
rate 1 = .09
rate 2 = .11
If rate is .09, then end date will be 2 years from the start date
If rate is .11, then end date will be 3 years from the start date
There are several things I need to happen :
1. Show the customer's individual end dates in Column D
2. I'd like to show in column E the follow up date which is 90 days before the end date
Ive been trying to do this for ages now, but decided i need further help!
Im fairly new to VB but getting the hang of it, however this one gets passed me.
I have made a spreadsheet that works out figures and conversion rates and stuff, however i would like it to expire with the option of a password lets say for example after 30 days, this will effectivly dissable, or close the spreadsheet down until a password is put in, then it will all come back to life.
ive been trying to think of a way round this now for days, but headache after headache i still cant get it to work. The formula doesnt have to be that secure, as the people using it im certain would never even look for it untill its too late!
Was wondering if it is possible to get below information from Active Directory into an Excel Sheet though VBA. All these details are within an OU in AD: UsernameDescriptionUser Logon NameFirst Name + Last NameTelephone Number I have been searching around and i think I need to connect using ADO, but not sure how to get these objects from AD.
View 1 Replies View RelatedThe file that this code is located in is often sent to others to use which means I have to modify the directory and path each time I send this file in order for the VB code to work.
Workbooks.OpenText Filename:= _
"C:My documents-2Monthend Supplemental ReportsDeficiency ReportscurrentC37.txt"
Is there a way to have the file opened from any active directory it happens to reside in?
way to be able to send an email notification 30 days before the contract expires.
I have attached a sample list. Is there anyway of doing this using a macro or through VBA?
Selection Date18/01/2012ItemPPPrice70.00
View 3 Replies View RelatedColumn A = Product code
Column E = Expiry Date
How to make macro code automatic sort by expiry date (oldest to newest) then product code (A to Z)
After i put new item in product code & the expiry date...
I like to auto sort every time i put new item in next row.. and the result will be ber25 1/20/2015 will be on top of ber25 1/21/2015
Code
Description
Beginning
U/M
Expiry Date
Act10
Activo 10K
1
Bag
1/20/2015
[Code] ..........
I am trying to query Active Directory for a list of user attributes by using a list of usernames and output the results into column B,C,D.....
All the usernames are listed in column A and it ranges from 100 to 1000 usernames.
The macro GetAdsProp works but it is very slow because it's a function and every time it gets called to return a value, it takes a long time to query. It will take forever to get 1000 users.
I've also tried the code below, however one of the AD attribute that I am querying for has a dash (i.e. test-address) and I can't put a dash in the vba code because it automatically puts spaces in between the dash and the text (see red text below) which will fail to find the attribute. Also, I need it to loop the whole column A and not just one account.
Sub LoadUserInfo()
Dim x, objConnection, objCommand, objRecordSet, oUser, skip, disa
Dim sht As Worksheet
' get domain
Dim oRoot
Set oRoot = GetObject("LDAP://rootDSE")
[Code] .....
I have a worksheet. Column A contains employee name, column B contains the date of the first day of the week's holidays they are booked for, i.e. 06/12/08 means they start their holiday for one week starting 06/12/08. That's probably really obvious, sorry.
Once a week I update the vacation list. I want to write a VBA code that looks at the date in Column B and deletes the entire row if it has occured. I'd like to use a value in C1 as the reference so if that cell has 06/15/08 in it then the code would delete every row where the date is prior to 06/15/08.
Read “My Documents” Path And Use Result
Problem:
Note:
Typical user OS will be Windows XP Pro / Win 2K
Excel version : 97 / 2002 / 2003
1. Corporate network security settings will only allow directory/subdirectory creation in the “My Documents” section of customers individual computers.
2. Per customer request, VBA application needs to save extracted files for future use.
3. I can specify an initial “My Documents” subdirectory be made and the VBA application file be loaded/copied into that location – i.e. – “My DocumentsCat”.
4. When VBA application is opened from that specified directory, (first time), the application needs to make an additional subdirectory tree to save future files. I can read the opened from location via VBA with the following:
Dim filepath As String
filepath = ThisWorkbook.Path
As an example – this code would produce a string definition of “filepath” – such as the following:............................
I have a list of items which are supplied by 3 persons and these items have expiry date. I want the Conditional Formatting to highlight 2 days before its expiry date. I have managed to set only for dave, how do I set for the other two persons? FYI, each item is only supplied by one person.
View 7 Replies View RelatedHow to Write a Macro for set a expiry date for Excel 2007 File.
View 3 Replies View RelatedI wish to create a macro that looks in a specific directory "D:Records" . It finds the files which are modified after a date "January 01, 2012" in this directory (pdf files). Then it imports these files names into a worksheet.
View 8 Replies View RelatedI need to copy the names and date modified from all pdf files in a open directory. The directory name will change month to month. I will copy the names into an excel workbook that will be opened as well called Shipped starting in sheet1 cell P2
How can you add the date from a sheet say A1 which is a long date and make a directory which the date incorporated into the new directory name?
View 2 Replies View RelatedI currently have a macro working where I can populate the A Column with files from a directory and based on its file extension, however I am having problems trying to populate the second (B) column with that files date modified. I have searched the forum to no avail and I must admit I not the best with vba.
Sub INP_files()
' searches within the file location
' C:Arenium_Projects31-1853012_Barnawartha BOSCADDMX
Dim rngOut As Range
Dim strPath As String
Dim strfile As String
' Sheets("INI_FILES").Select
The script collects all the files in directory and sub-directories and list them in ascending format, I want them to get in transpose format. like for example: Root folder has many sub directories and in them a sub directory XYZ has 5 excel files, it will get the sub directory name in Col A and transpose all .xls files.
Col A | Col B________|Col C_________ |Col D___________|Col E________|
XYZ__|C:/root/test.xls|C:/root/Sales.xls |C:/root/Report.xls |C:/root/sam.xls|
[URL]
I am trying to prompt the user for the directory to be saved in and file name to be saved as; then save the workbook in the input directory with the inputted file name.
View 3 Replies View RelatedWe are making a complex financial calculator that we will let licensees use for a limited time.
The calculator could be an online php form, however we decided to go with excel for its ease to program the code required.
Question is:
Since the licensees are allowed to use the calculator only for a short period of time, we want to be able to password protect it with an expiry date.
Meaning that if they want to use it pass their time limit, they would need to re-enter a new password that we would provide them.
Is there such an application made for excel worksheet?
I have a list of expiry dates in excel, to save me manually looking through the list to spot up-coming expiry dates, is there a way excel can flag them for me i.e.: giving me 2 months notice of an expiry date? Someone even told me you can get excel to generate an email, not sure if this is true.
View 9 Replies View RelatedI am trying to make an Excel formula to calculate the number of hours and minutes remaining before an entry expires. I am using the formula below
=B1-$A$1
No need for code tags on formulae
where B1= a due time of an item/task and A1= =now()
It should display the hours and minutes until the task is due but it is giving incorrect results.
E.G
now = 9:03
task is due = 12:00
result = -21:03
I want to track the dates we begin working with them, and after a certain timeframe (12 months from the start date, for example) I would like a little "flag" (change the font colour, highlight the cell, etc) to automatically appear to indicate when each client has reached this milestone.
View 2 Replies View RelatedI have a training sheet where the training could expire in either 1 2 or 3 years, i am trying to get the conditional formatting for each to change color when the training is due to expire in 6 months 3 months and 1 month also to show red when expired
View 14 Replies View RelatedI have an excel sheet which contains user details and date of expiry of a particular service. I would like to send an email to user when the date of expiry is met.
View 14 Replies View RelatedI want to save my active workbook with the current name together with the date Auto Merged Post Until 24 Hrs Passes;Sorry, new to this.
View 2 Replies View RelatedI have created a database at work which collates various information on the sale of products. Part of this information is the date that each particular product is up for review (In DD,MM,YYY) format. Using the internal clock function I have produced a formula that calculates the numeber of days until expiry.
However, using this information I want to be able to run a macro that looks at accounts that have for instance 5 days left until expiary and populate a new worksheet with various information extracted from my 'main' database. For example, search all the porducts that are due to expire tomorrow and then populate my new workseet with data from cells such as
Product 1 = Cell A1, Cell a2, Cell a6, Cell a7,
Prodcut 2 = a1, a2, a6, a7,
Product 39 = a1, a2, a6, a7
