F4 has a macro calendar. I want, if a weekend is selected on the calendar, to display a message that only weekdays are allowed.
Here is the hard part. I have the Analysis ToolPak installed within Excel, but cannot import it into VBA as a reference. It will be in conflict with some of the code I have. It does not allow code in Workbook_Open to execute correctly. So I have to work around this.
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Range("E4").Value = Evaluate("WEEKDAY(F4,2)")
If Range("E4").Value = (Monday-Friday) Then
Range("F5").Select
Unload Me
Else
Range("E4").Value = (Saturday or Sunday)
Range("F5").Select
MsgBox ("Please select a valid business day. Weekends and Holidays are invalid.")
Unload Me
End If
2 Things:
1. How do I list
Range("E4").Value = (1,2,3,4,5)
2. Is there a better way of doing this? As far as determining a weekend and displaying error message if it is.
If I have 1 Jan thru 31 Dec in A1 - A365, is there a way I can identify every weekend by placing 'X' in Col B alongside every occurrence of Saturday and Sunday?
I got the first 3 blocks working but got stuck with the 4th one.
It should count only those hours between saturday morning 0000 and sunday night 2400 if it concerns a weekend day. and actually these hours should not be calculated in the first 3 time blocks.
I'm currently using the macro below to modify the two cells next to a date field in a template. The number of rows this will run through could vary from 2 to over 1 million, but the columns will always be the same. Because of the size of the datasets, this macro can run for quite a while, which is fine, but I'm thinking there's probably a better way to do it. To clarify, the object of this part of the macro is to determine if the date falls on a Saturday, and if so, change the value of the two cells to the right of the date to "0"
Is there a quick way to find weekend dates in excel? I tried pasting all 2006 dates into J2:J366 using the fill handle. It has weekdays as an option but not weekend dates. Any easy way (formula or simpler) to find the weekend dates in this range?
1 have figured out how to create an auto fill that is a mix of days in between. (When dates are not in a row.) For example, a schedule that starts a date, and then adds 2 days, then 1 day, then 3 days etc....it is for a tracking schedule. Once created those amounts are the same for for every row. The problem is, when it counts the next day, or 2 days or 3 days etc, it cannot include a weekend date, rather just 2 working days, or 3 working days etc. Is this possible?
Right now, I start my first cell with a date, and go to the cell to the right, and in my formula, I type the previous cell address and I add (+) some value (2) to represent the day amount, but right now it includes the weekend days as well, and I need them skipped.
Please see attached Excel File. I would like to calculate Column D depending on below criteria.
1. if both date is same than normal Column C-Column B. 2. if both date is not same than time diifrence should not be count after 17:30 to next day 08:30. 3. I do not want to include weekend (SAT & SUN) time diffrence if both date have.
In column D I have filled two cells that I want by formula.
I am attempting to create a rotating weekend work schedule in Excel to make life easier. There are 30 people who rotate Saturday's and Sunday's every month. Technically, they are only supposed to work 2 weekends a month, and am attempting a way to create this in Excel to make it more fair to the group instead of just picking and choosing which weekend these employees work, I would like an Excel program to do this for me.
I have to create VBA according to these criterias. I have a list of 22 rates that i need to distribute by order for a month period (30 days) noting that I need to skip weekends (Friday and Saturday)
Day 123.06.2014Monday20% Day 224.06.2014Tuesday10% Day 325.06.2014Wednesday7%
[Code]....
create this formula so that each time I change the date the rates are distributes accordingly
I need to make a schedule for testing where I check the samples every 3 days but if that date hits on a weekend I want it to role over to the monday if it hits on a Sunday and Friday if it hits on a Saturday. In other words wait an extra day if it hits on a Sunday and check the sample a day early if it would normally be on a Saturday.
I have been playing around with the WORKDAY command and some of the other date functions but I can't figure this one out.
If I am using today's date, example: 5/30. I am looking to populate the next 10 business days.
Example: 5/31, 6/3. 6/4 etc.
I want to exclude weekends and holidays. I believe the following formual works to exclude weekends, but not sure how to incorporate holidays in the mix. =workday(today(),1) for one day after today, and then just keep increasing the number for days out.
In my helpdesk spreadsheet, Column C has the date a request is received and Column D has the day it is signed off as complete.
This is used to compare how many days it takes before each request is completed.
Column B is usually blank, but, if the day a request is due to be completed is in the future, such as waterblasting set for 5 working days ahead, then the expected completion date is in Column B. As we don't want a report to show it took five days to complete, when 5 days was waiting for the booked job, we only want five days when we are working on it for five days.
So a typical request is received on Monday 1st January (C), completed on 3rd January (D), taking 3 working days to complete.
A less typical is a request received on Monday 1st January (C), booked to be done on the 4th January, (B). If the job is completed on the 4th, then that will be entered into (D). And we want it show as taking 1 day or less to complete.
I'm quite new to excel formulas , but would like to know the format for
IF B = Empty, then display the days (minus holidays and minus weekends) between C & D.
IF B = non-blank, then display the days (minus holidays and minus weekends) between B & D.
I've tried to play with the Workday function but it and the format of the IF function seem just beyond my grasp, depsite it simplicity, so hopefully a bit more insight as i get to grips with formulas would help me out...
I have a spreadsheet with about 20,000 lines. (The number of rows fluctuate) I need a macro to remove (delete) rows that contains the phrase "Off Peak" and "Weekend"
I was setting it up in a loop but I don't know how to make the loop end after ALL the "Off Peak" and "Weekend" info is removed.
My macro just does a find then delete the row and then loop to the find again. Is there an easier way and can the "Off Peak" and "Weekend" statements be combined into one search
Do While Cells.Find(What:=" Off Peak", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Select Selection.EntireRow.Delete Loop
So i would like a message box to appear upon opening that asks the user "Are you sure this is the most recent copy of this workbook?"
Click Yes would simply close the message box and allow user to continue
Click No would close the workbook immediately without saving and also without prompting to save ( i have =TODAY() function within the workbook so the workbook will instantly be different from the current saved file and will for sure prompt the 'Exit without saving' warning box
Office 365 is my setup if that makes a difference.
What I need is two sets of VBA Code and 2 message boxes for the above scenario:
If Range C3:Last row contains a blank cell then Message Box ("WARNING: All items are not classified" refer too C6 and C8)
If Range C3:Last row contains "8528" or "9013" then Message Box ("WARNING: There is an FDA/FCC requirements for this file refer to C4 and C5 - create an Attachment from the scan folder and save as Attachment3-FDAFCC documents).
I need a VBA script that will allow an input either Text or Numerical and then search an entire workbook (5 sheets) and find it. It would be nice if it posted the information on the 1st sheet from where the macro will be run, Then I could use VLOOKUP and retrive the rest of the information.
I have a workbook with a ton of Purchase order Numbers, Vendors Name, Work Orders etc... and I have to search through them regulary. I have used the FIND button and it works, but when I try to record a macro with it I get stumped. Im Sure this is easy for you GURU's that program for a living, but for me, well.....Lets just say I am at a loss. I have tried this:
Sub FindPON() Dim MyPON As Variant MyPON = InputBox("Please enter your search criteria") On Error Resume Next Range("frmParts").Find(What:=MyPON, Lookat:=xlWhole).Activate End Sub
I do not want to use comments box or data validation
I want to use a macro
cells C14, C32, and C49 are drop down list
If user selects "MFRHTC" from drop down list in either one
I want a message box to pop up and end when user clicks the OK button
this is what I currently have but is NOT Working
If Not Application.Intersect(Range("C14, C32,C49"), Target) Is Nothing _ And Target.Count = 1 _ And Target.Select = "MFRHTC" Then Msg = "Units will provide the following in order to have ammunition Fed Ex to HTC's " & vbCrLf Msg = Msg & "" & vbCrLf Msg = Msg & " POC" & vbCrLf Msg = Msg & " Unit ship to Address" & vbCrLf Msg = Msg & " Phone Number" & vbCrLf Msg = Msg & "" & vbCrLf Msg = Msg & "" & vbCrLf Msg = Msg & "Input the required info in the Comments Box" MsgBox Msg, vbInformation, "FED EX AMMO INFO REQUIRED" End If End Sub
