I have a group of huge data as follows. I want to create a macro to just choose the first immediate date of each individual (in another word hide the second rows onwards for each Name). How can i do it?
Name
Travelling date
A
2-3-2014
A
4-4-2014
A
5-7-2014
B
3-3-2014
B
8-9-2014
I created a calendar and made it so when I click on a cell, it pops up and allows me to choose the date. When I choose the date and press okay, it is supposed to put that date in the cell. I created the spreadsheet a while back and remember it working. Now however, it doesn't and I can't figure out how. When I made the calendar, I followed some help posted on here and copied the VBA from their calendar since I don't really know VBA at all. Here is the worksheet. It should have the calendar already created via VBA. I just need to know how to have the popup calendar to place the date selected in E5.
View 4 Replies View RelatedIs there a way to choose the date to be entered into a cell by having a basic calander pop up and clicking the desired date ?
View 7 Replies View RelatedI am creating a worbook to generate month end reports. I'd like to pull figures from the various budget sheets into the reporting sheets for the current month and year to date by setting up a variables sheet and I think the "Choose" function but my experimentations have proven me incapable of doing so.
What I'd like to do is set my month in the variables sheet to the month I want to report in, eg "Feb" and have the budgets pull through automatically.
I have a work book.
In column C27 and down, the user can input a date.
In column M27 down, the user chooses pass or fail.
N8, contains a date chosen by user as the "From" date and P8 the "to" date.
Cell o11 is "Passed" and cell 012 is "failed"
The user can choose a date range and input the from and to date in N8 and P8, this will count the number of pass and fails and input the number in O11 and o12.
Formulas are below.
Code:
=COUNTIFS('Aff MFR'!C27:C1663,">="&'Aff MFR'!N8,'Aff MFR'!C27:C1663,"="&'Aff MFR'!N8,'Aff MFR'!C27:C1663,"
Excel 2007 Q: I have a combo box (ActivX) that I want to be able to choose a a date from a range of dates in column A on sheet 'Working Copy'. I want a cell to update with the number/position of the date when the date is chosen i.e. the first date in the range yields 1 the second date yields 2 and so on. I also want the date to be displayed in dd-mmm-yyyy format. I am able to get the cell to give the correct position of the date but the date reverts to five digit number in combo box. I can change the code to return the correct date in the combo box when the date is chosen but then the cell just returns 0.
How can I make it so that the combo box returns the correct date and the cell updates with the position instead of jsut one or the other?
Here is the code I am using
Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Text, "dd-mmm-yyyy")
End Sub
or
Private Sub ComboBox1_Change()
Sheets("Working Copy").Range("G1").Value = ComboBox1.ListIndex + 1
End Sub
I have two formula's available for a cell. Its actual value, and a previously forecasted value. The actual value is found using an index formula and the forecasted value is a forecast function. i want to create a macro and link it to a button such that i can change which formula used in the cell accordingly. Is this possible?
View 1 Replies View RelatedMy current project involves sorting a spreadsheet, selecting specific qualifying data from the sheet, storing it into a variable, the pasting the individual values from the list into individual cells on a different sheet within the same workbook. Here is the code I have so far...
Code:
Sub Test()
'' freeze screen updating to remain on main worksheet
Application.ScreenUpdating = False
'' move to Avaliable worksheet
[Code] ..
When this code runs the first item in the list pastes into Sheet10 A1, but no other values from the list are placed into Sheet10. Previous to this I had been using a variation of this code to push the list into a combobox list within a userform. In that case instead of
Code:
ThisWorkbook.Worksheets("Sheet10").Range("A1") = x
I had
Code:
Combobox1.list = x
And this worked perfectly; creating a list within the combobox (in fact I can use this modification to interrogate my code to determine if the list is being properly generated, and it is).
I have the following
Private Sub cmdSave_Click()
SaveRow
On Error Goto ErrorHandler
ThisFile = Sheets("Data"). Range("B2").Value
ActiveWorkbook. SaveAs Filename:= _
"C:Documents and SettingsMy Documents" & ThisFile, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks.Close
ErrorHandler:
MsgBox ("Error locating file. " + Err.Description)
End Sub
This saves a workbook with the File Name based on a cell in a worksheet in the above Path Name.
Is there a way that I can change this code to ask for the Path Name with the File Name, from the worksheet, as a default.
I have an Excel file containing data about employees. Each row contains a lot of information that is relevant for a specific date range, denoted by the columns "start date" and "end date". I would like to copy each row so that I have it accessible per date that is within the date range. The only columns that would change in the copy are the date columns. For example, for 1 row that has a date range of 01/08/2013 - 05/08/2013, I want to copy the row 5 times except the date columns become "01/08/2013", "02/08/2013", etc.
View 2 Replies View RelatedI am trying to build a workbook to track patient treatments. My overview sheet needs to list the last treatment received per patient which is listed in column a of each patient's individual sheet dynamically so I can review the history of treatments as well. I have tried to create a dynamic list, but it is not functioning correctly. I was using : =OFFSET(txdate,1,0,COUNTA('patient, name'!$A:$A),1) , where column A ( the named range "txdate") lists the treatment dates in succession and should be updated automatically when a new treatment is done.
View 10 Replies View RelatedI would like to write a macro that would insert a hyperlink to another file an would prompt the user to select the location of the file once the macro was run. I am not sure how I would get my macro to prompt the user to define the location (which is located on a network drive).
View 7 Replies View RelatedI am making a macro that requires that user to enter a directory path into a input box and the macro will open the file. Right now it works fine bit i would like to change the code so that instead of using an input box it brings up a box that will allow them to browse files on their computer and then select one to open.
View 4 Replies View RelatedI am after some VBA code that chooses each value from a drop down list (in cell A1) then copies a separate sheet 1 (sheet 1) into another workbook (can have both workbooks open at the same time or the first step will have to create a workbook) with the name of the added sheet renamed to the value chosen from the list. When the second value is chosen then sheet 1 should be copied into the newly created workbook as well.
Sheet 1 has lookups that are updated when the new value in the drop down list is chosen
There are around 85 values in the drop down list so I'm expecting a workbook with 85 tabs (copy pasted values and formats)
I have created a combo box and have inputted the values
Jan, Feb, Mar (think you get the idea).... Dec
I am looking to assign a macro to each value so that each one shows a graph, i have already created the macro’s to show the graphs. Just unsure how to make them work with the combo box
I have a excel file wherein a sheet in database form is kept which contains data related to employess payroll.In another sheet,payslips are there. but as I want only one payslip to appear, so I have made the same using Validation dropdown list & VLookup function.The problem is now that the user has to select individual employee name from the drop down list & then to click the print as the no. of records are rising, it is not possible to print individually in the present manner.So I want a macro code which will:
1. Give users to print payslips with two options: Print payslips for all employess,print payslips for individual employees.
2. To print the all payslips, one page of A4 size should accomodate only at most 16 to 20 rows so that payslips can be later on torn out separately.My payslip format uses four(4) rows for one pay slips.
I need a macro that will take each worksheet in my file & create a new workbook for each. The new workbook name will need to be the original worksheet name. The number of worksheets & the worksheet names will very each time I run this code.
Have a workbook with approximately 25 worksheets in it.
I want to copy/paste/value each worksheet and save it as it's own workbook.
My code doesn't work, it hangs up on ws.copy every single time, on Excel 2007 and prior versions.
Sub SaveWS()
Dim wb As Workbook
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Copy
Set wb = ActiveWorkbook
wb.SaveAs "t:dir1expenses" & ws.Name & ".xls"
wb.Close False
Next ws
End Sub
The problem I have is I need to generate individual requests from a summary (which I can do as long as the max values do not fluctuate)
e.g.
Number required each week
Tool wk1 wk2 wk3 wk4
flogger 1 4 2 5
wrench 2 3 1 5
socket 6 10 2 8
so for the flogger I would need to write 8 tool requests in total: 1 for wk's 1-4, 2 for wk's 2-4, 2 for wk2 only, and 3 for week 4 only.
There must be a quick way of doing this using VBA.
I am comfortable with getting a macro to copy & paste where I need it to, however how to get the macro to recognise when a certain value has stopped.
For example in Column B on "DataDrop" are all the divisions that exist in my company i.e East Anglia, Essex, London etc. There is an empty row between each division.
I have a current macro that saves each sheet as their own file. The first 10-15 sheets are not really necessary, so I typically delete them once the macro has run. I am looking to add two things to my current code:
1. Add a tab called Start. Make the macro look for 'Start' tab and then just save each sheet to the right of that as its own file.
2. Save each sheet in the macro as just a copy/paste value. They current have a lot of links and it makes each file close to 3MB. That makes it incredibily difficult to paste all in one email.
Here is the current code:
Sub CreateWorkbooks()
'Creates an individual workbook for each worksheet in the active workbook.
Dim wbDest As Workbook
Dim wbSource As Workbook
Dim sht As Object
Dim strSavePath As String
On Error GoTo ErrorHandler
[Code] ..........
I am trying to divide a table of data (7 Columns, 500-1000'ish rows) into individual worksheets based on any unique values in column. There may be anywhere from 10-30 instances of the same value in Column C, and I need to bring all rows of each unique instance into a newly created worksheet to be labelled the same as the value in Column C.
The RAW data will be updated monthly by keeping a template file copying and pasting data, therefore I am hoping to have a "SORT" button with this Macro assigned to it. I have quickly thrown together a sample workbook with how the RAW DATA will be pasted into the file, with additional sheets showing how I would like the data split and organised.
I have created a form where people will take a survey, and the responses from that survey will be carried over to another worksheet that will analyze their results.
For each question in the survey, I want them to choose only 1 of 2 responses. For example:
Place and X next to the statement that describes your opinion most often:
__ I prefer to work with others.
__ I prefer to work alone.
The responder will choose either the first or second response, but I do not know how to limit it so they can't answer both. I want a way to limit the worksheet so if they type an X in the first field, they are unable to type one in the second field, and vice versa.
Is there any way to limit the responders ability so that if they choose to respond to the first statement, they are not able to also respond with the second statement, and vice versa, while not affecting the results page that uses the IF formula =IF(sheet1!A8="X","X","")
Any good formula for the following:
Item
Value
Result
[Code].....
The formula needs to first look at each item, select the max value in each group (there are three in the "1" group and four in the "2" group), then return ONLY one result per group. The problem I am having is only returning one value per group. I can write an array formula that returns 1200 or 1000 in each group in every row, but I need to only return one value.
I have a worksheet that has a sent date and expected delivery date I need create a macro that will alert me if today's date is within 5 days of expected delivery date.
View 14 Replies View RelatedI have an excel sheet wherin there is a column that has the data where in the dates are displayed and many other columns.
I get this excel every Thursday so i want to filter this date column in such a way that it give me the data related to the date of the previous week only yet there is a catch here. When i say previous week i mean.
Suppose today is 03/14/14 then i want the data from 03/07/14 till today ie Last week friday to this week full( so cant use Current week option) and then paste it in a new sheet.
I tried the Record part but in that it is taking a hard coded value as i am selecting the date myself. I dont want to change the date manually every time.
this was the macro that was created
Code:
ActiveSheet.Range("$A$1:$BX$58").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "3/10/2014")
Range("A59").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[-4]C:R[-1]C)"
Range("A60").Select
I downloaded a dashboard template that has two tabs of data and I would like to add additional tabs.
I would have to modify the IF and CHOOSE functions?
Formula view:
Capture.jpg
Here's the pretty view:
Capture2.jpg
how I can make a calendar that pops up when the user mouse clicks or tabs/arrows over to a cell so they can choose a date instead of manually typing in the date?
View 6 Replies View RelatedIf you look at "B9" I have created a list of names and when I choose a name their ot hours appear in "K9". Now when I try to do the same in "H9" to bring back there qualification it gives me an error. I also tried to do the same in "M9" for the phone numbers and it didn't work.
View 7 Replies View RelatedThe choose function only works with separate values, but not with a range.
I'm looking for a formula that returns the value in a range based on a number.
e.g. CHOOSE(5, A1:A10) should return the value of A5.
I can program it as a function, but I expect there is a standard formula for this.