I have a WB with 31 sheets, each dated 1st to 31st and currently hidden.
I have been trying to write a VBA code that would open a sheet based on todays date... so if today is the 2nd of Nov it would unhide the sheet 2nd, I would also like it to check if a sheet dated 1st is visable, and if it is, hide it.
The date for the sheet to hide would I think need to be relative... but I don't know how to get it right.
I have this code, it's working to open the last modified file but how can I implement that it also opens a certain file name.
examples
Test1 150126.xls
Test1 150128.xls
Test1 150140.xls
the numbers are the time the file is saved, is it possible to also look at file name:text1 and then look at the last modified file So only fill in the file name and the macro opens file: Test1 150140
[Code] .....
"Sheet1" of Book1.xls contains the daily efforts of each members in the team. The detail changes automatically everyday like:
Date Name Task1 Task2 Total
1/1/08 Mark Design-2 Analysis-2 4
1/1/08 James Design-3 Analysis-2 5
1/1/08 Paul Implement-4 4
On the very next day the details will be automatically changed as:
Date Name Task1 Task2 Total
1/2/08 Mark Design-2 Analysis-4 6
1/2/08 James Design-3 Analysis-2 5
1/2/08 Paul Analysis--8 8
i.e. "Sheet1" will contain only the details of current date.
I have managed to do it in "Sheet1"...
Here I need to add all the details automatically for each and every day in a separate worksheet ("Sheet2") from "Sheet1" of the same excel.
As soon as the date changed, then it will be reflected automatically in "Sheet2" in the next blank row for each member of the team...
The details of "Sheet2" will be:
Date Name Task1 Task2 Total
1/1/08 Mark Design-2 Analysis-2 4
1/1/08 James Design-3 Analysis-2 5
1/1/08 Paul Implement-4 4
1/2/08 Mark Design-2 Analysis-4 6
1/2/08 James Design-3 Analysis-2 5
1/2/08 Paul Analysis--8 8
I managed to create some code that will connect to a workbook and take the data from there.
It is kind of SQL mixed with VBA. I just got this by finding it in google (I don't have the link handy now).
What the file does, is it will take 2 columns from a workbook called "Test.xls" and then take out 2 columns "Name" and "ID".
The only thing is, this is only a test and not the actual files I need to open. the files are always saved on the same folder, but the name is the day of the export of it. So when I export a file today, it will get 2014.09.10.xls. The sheet (only 1) will also get that name.
How could I change the below code that it will take that file based on today's date and read from the sheet with today's data?
VB:
Sub sbADO()
Dim sSQLQry As String
Dim ReturnArray
Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset
Dim DBPath As String, sconnect As String
'DBPath = ThisWorkbook.FullName
[Code] ....
I have create a menu with buttons that are attached to the different projects of vba. This menu will be put in the server of my department so all my colleagues can take profit of the macros. Is a menu in an excel file that only contains the vba projects, not the sheets where the macros are supposed to run. My problem start when you want to open the file. It will always be in the same disk "P:COAP", and then there are more subdirectories (year, month)... so the total path, for example, this month is:"P:COAP2007200706". But every month, it changes, logically.
The problem is that i need to open a file with the name "COAP-200706 Concentració Empresa Emissora" in this case... the only thing that changes is month, and year...
I want to close the booke i choose, to avoid errors, if the name of the workbook chosen is different to a part of this string. In this case, i'm trying to close the book if the name of the file or the book don't contains the string "Concentració Empresa Emissora", without saving changes, of course... because sometimes people have chosen badly the files and they've made a disaster. If the file chosen contains this string in the name i want to continue with all the code that is written after.
ChDrive "P:"
ChDir "P:COAP2007"
NouFitxer = Application. GetOpenFilename
If NouFitxer = "" Then Exit Sub
Workbooks.Open Filename:=NouFitxer
If ActiveWorkbook.Name <> "*" & "Concentració Empresa Emissora" & ".xls" Then
Msg = MsgBox("Error in the file opened. Look at the name of the file next time." _
& vbCrLf & "The program will close without finishing the process. Start again. Thanks", _
vbOKOnly + vbCritical, ("END OF PROCESS"))
ActiveWorkbook.Close Savechanges:=False
Exit Sub
End If
if I have one cell that ive enlarged to half the sheet.... and it is effected with rollover hyperlink so that when I hover over other cells. it turns different colours..
is it possible to make that cell open up different files using the double click event depending on the colour it currently is?
i.e. if its blue, open file1. if its yellow, open file 2 etc
In sheet 1 i have the data like this
Date Amount
---------------------------
13-Mar-13
---------------------------
20-Mar-13 2000
---------------------------
27-Mar-13
---------------------------
[code]...
now in sheet 2 i need the date and amount fields in which amount is present.
i need sheet 2 like this
Date Amount
-----------------------------
20-Mar-13 2000
-----------------------------
3-Apr-13 3000
2.jpg
with the attached spreadsheet?
I want to populate "selections" sheet with data from the previous sheet (it will be the date) depending on the value of a cell in column G. You will see I have already got the data from 27th April into my selections sheet but wondered if it can be done by a formula to save me copy and paste time?
I administer an excel spread sheet which over the years I have added bits of code to which now generates our weekly roster sheets and our daily duty sheets. Sheet 1 is the weekly roster and sheets 2 to 8 are the daily sheets. If an employee is on leave or sick for the coming week the value S or L is entered in to Column B on each daily sheet and when the roster is processed for printing it strikes through the names of the employees for each day that they are off. What I would like to do is then Highlight the name on sheet 1 the weekly roster sheet so at a glance we can see on the main week sheet any issues we may have for the next week. What it needs to do is if the cell in column B contains S or L on sheets 2 to 8 the name which is in column C on these sheets needs to be matched to the name in column D on sheet 1 and this cell highlighted.
View 2 Replies View RelatedI have a workbook full of a bunch of sheets with the same formatting. Each sheet has data for a 2 week period.
I am making a “master” type sheet and I’m hoping to be able to pull some data from each sheet.
On each sheet:
Row 1 has dates starting on E1 and ending on AF1 (several blank/combined columns)
Row 22 has the data I want to pull, and it is one column to the right of the date. So, F22 corresponds with E1…
Ex.
One sheet looks like this:
E1 = 8/24/09
AF1 = 9/6/09
I got single amounts to work by using:
=IF((MONTH(E1)=8),F22," ")
However, I’m hoping to find a formula that would look at the entire two week period and sum the row 22 amounts for each day that falls within a certain month.
I tried:
=IF((MONTH(E1:AG1)=8),F22:AG22," ")
Which comes back false since not all days in the two week period fall within August (8).
Does anyone have any ideas for a formula that would be easily changeable, and that would pull & sum row 22 data for each row 1 date that falls within a certain month?
help.jpg
I'm new to VB. I am writing a code to insert a value in to the textbox depending on the focus.
For example if i have kept the focus on textbox1 and I click the particular date on calendar, then it should print the date on textbox1 and vice versa.
I am trying to import a several files depending on date. The first part of the name of the files that I am importing are always the same, the end changes as the date changes.
I have a user form that comes up and I pick the dates that I am looking at.
What would be the code to import those depending on the date that I pick?
When my UF comes up, I pick whatever dates, I need to import all the files in between those dates.
I have a truck log. Every time some comes in to take a truck they must log the truck out with the millage. After a week, I am supposed to find out how many miles my trucks ran for that week.
What would be the code to....
In K column, calculate the milage that is in row F; which is A3 - A2 and so on down. But it would have to skip a line every time the truck number changes (in column C) it would skip that line. It would go until a blank cell.
Does anyone have any ideas how to do that?
My head hurts from working on this all day. I have a large spreadsheet and in the top left corner I need to show the percent of vehicles that are not working out of our whole pool. I have a function that detects the color of the cell (Red is broke) and counts the total of red cells and then divides it by the total giving the percent and it is in G118 for Jan 1/2007, H118 for Jan 2/2007 etc. I made a function that will count Julian days from Jan 1, so for today I get 114. I know I need to display G + 114 columns but have no idea how to get that column name from this and always display the current one in the corner.
View 9 Replies View RelatedI need to complete the 'cost field' in Table A, from Table B, but the 'cost' value must be selected from Table B based on it's ' date completed', as per my example attached...
View 9 Replies View Relatedi have a excel sheet which i use to schedule my service team. Basically i have horizontally the dates ((a colum for every day of the year) and vertically the guys names (about 25 rows).
I would like to add a function so i can push a button and i automatically print the past, current and next week of my shedule on one page.
In addition it should print my usage chart which is on a different work sheet in the same file.
I have a budget worksheet that uses a spending forecast sheet to determine where the spending level for each budget code should be to the end of the current month. In other words, the Forecasted YTD To Month End fomula for each budget code in the budget worksheet is simply:
=SUM(Forecast!D8:F8)
Where column D is Jan, E is Feb, F is Mar etc in the forecast which distributes the budgeted amounts by month.
In each row on the budget sheet I want to evaluate today's date and if we're in March I want the formula to read as above but when we move to April I want it to use G as the end column in the range to sum.
SUMIF seems cumbersome in this circumstance and I wonder if a UDF might suit better.
I have code that pulls information into excel from a database and pastes it into a sheet called paste.
This will have around 15 columns of data, with 24 rows for each day. The first column is the date and the second is the amount of sales which was taken in that hour.
I would like to add code to my project that will take all items in the 2nd column that are next to yesterdays date which will be in the format yyyymmdd sum the items to make a total and then paste into a column on another worksheet they will need to be pasted into the next empty cell in that column on the other worksheet.
After the number has been pasted into this column I need to clear all of the data on the paste page ready for it to be updated again the next day.
VB:
Sub GetSomeData()
Dim db As Database
Dim rs As Recordset
Dim SQL_string, Path1 As String
[Code] ......
I have some real estate rental so what I did 7 columns and its includes: name, phone number, ....., contract start date, and contract expiry date.
my question is how to make the row color changes depends on the expiry date
for example, the expiry date is 12/10/2014. I want the the row to be red when 12/10/2014 comes.
I need a forumla that will dispay a set text message in a cell based on the date in another cell.
I need cell A1 to display the text message "Forwards Booking Date, No Action Required" Where cell A2 has a date entered in it that is the same as todays date or greater - i.e. in the future.
And if the date is in the past for no text message to appear.
I have a Master workbook with 4 sheets named WEEK 1 to WEEK 4. At work we work around 13 4 week periods and need this workbook to be dated accordingly, that is Period 1 Week 1 and date of first day (Sunday) of that period. The ideal solution would be for the user to enter 1 to 13 into a cell and via a button all dates to be populated and a new workbook created for that period. I have attached a sample workbook with the 4 weekly sheets and a date range on another sheet to show the range I need the dates from. I hope the workbook explains what I need better than my explanation here!
View 2 Replies View RelatedThe spreadsheet attached is a timesheet I use. The last column on the sheet (IV) keeps a running total of time spent on each project. I need a way that i can find out how much time was spent on projects in specific timeframes (eg 01/01/09 - 07/01/01, or 01/01/09 - 31/01/09). my initial thought is perhaps i can have a "from" cell and a "to" cell to input the dates i require and it will total the relevant cells in the rows below.
NOTE! This workbook uses VBA to auto hide any column which are dates previous to today's date so you may need to unhide them to view times logged.
I inherited a worksheet with 70k+ rows of data. As shown below each row contains a record number(Col A) with the date(Col B) it was created and value(Col C). There are 5 records per day. You can see in the example below that Col A has the value 30 duplicated for each day. Is it possible to rename only the second "30" in Col A for each day?
Col A
Col B
Col C
10
1/14/2014
10
[Code] .........
on sheet1 cell a1 is there a way to make sheet1,s name appear as the contents of cell a1
View 9 Replies View RelatedI am trying to format certain cells to change colors depending on the date and the content of the next field to show due dates.
cell label
due date
date completed
c5
au5
be5
c6
au6
be6
c7
au7
be7
c8
au8
be8
What I need is for the contents of au5 to be green up until 10 days before the due date, yellow up until 5 days, and red with less than 5 days until the due date. If the date completed is entered into be5, then the contents of au5 should be black.
Is this possible, and if it is, how do I set this up? I tried to use
=$AU5-TODAY()>=10
And choose green formatting (something I found on yahoo answers), but when I enter the date the text is still the original black font.
I have 2 worksheets, 1 with a table sorted like this (in a row):
component | start date | end date | assigned to
Second worksheet with a table like a calendar with dates and people (dates in the columns and people in the rows), every component is assigned to each person by dates.
............ | 01/01 | 02/01 | 03/01
---------|----- --|-------|-------
person 1 | comp1 | comp1 | comp2
-------- |--------|-------|-------
person 2 | comp1 | comp1 | comp3
I want the assignment from worksheet 1 to worksheet 2 to be automatically. i will set the start and end date next to the component in the first table and assign it to a person/s and it will be automatically get filled in the second worksheet (the calendar) under the person/s and under the same dates as set in the first worksheet.
You can see a template here: [URL] ........
My problem is that I need to get button to move information from sheet1 A5:E5 & A8:E8 & A11:E11 to sheet2 B1:P1 if Sheet1 A1=1 to B2:P2 if A1=2 etc
I can only make it by if or case macros, but it becomes so long code
I currently written the following formula, but always have issues when adding additional depending on selection.
D8 is the selection ( Validation ) on PERF EXP FORM Tab, Once you enter the selection... you then go to the Accounts per hour Worksheet
=IF('Perf Exp Form'!$D$8="Test1 14-18 station",IF(('10220DBHE'!B9=A6),IF('10220DBHE'!C9 > 11000,11000,'10220DBHE'!C9),"N/A"),"N/A")
Perf Exp Form
Perf Exp Form *ABCDEFGHIJKLMNOPQ4 *1. GENERAL INFORMATION****************5Customer***Date / Name(s)*6ApplicationSheet Size1UP/2UPOrientationSOG/EOGFold TypeFold Plate# CH***78 1/2 x 142 UPPortraitSOGLetter/ZHeavy1***8Machine / model**Enduro 4-6 station9ConfigurationCHANNEL 1CHANNEL 2CHANNEL 310590-4720-4910 Dual DeckNONENONE11Date / Name(s)*** Excel tables to the web >> Excel Jeanie HTML 4 ......
Looking to calculate timecycle from open date to close date. Having trouble trying to figure out how to have the formula look at the close date cell and if it is blank go to the next cell in the row to find a close date and subtract the open date from the close date to get the total number of days in the timecycle. See attached example.
View 1 Replies View Relatedhow can you automatic the date to today's date when you open the excel file?
ie.
Price Report For 02/25/09