Find Begining And End Of A Date Range To Copy
Oct 28, 2008
I want to save myself some time at work, that's why I want to create an automatic sheet in Excel using VBA. I need to create files with monthly reports of data.
My project looks like this:
1. Gather information from user (Month & Year)
2. Create a file which name is based on Month & Year
3. Select data sheet
4. Find date range to copy (RowBegin, RowEnd)
5. Copy nad Paste required data into new file (point 2.)
6. Delete rows, formated in certain way
7. Find bottom of all columns and insert row with all formulas
8. Format all sheet acording to requirements
I was looking over MrExcel.com and I know how to do all the points besides point -> 4. Find date range to copy (RowBegin, RowEnd)
I got a column "D" with about 5000 cells for now and the sheet is updated daily. In those cells I got dates formatted like this:
D
4012 14/02/2006
4013 21/02/2006
4014 15/03/2006
4015 15/03/2006
4016 17/03/2006
4017 07/04/2006
4018 07/04/2006
4019 20/04/2006
What I don’t know is how get in VBA two variables – range of row numbers describing selected month (for example March) - from (RowBegin) & to (RowEnd), in this case RowBegin=4014 and RowEnd=4016, which I can later put into:
RowSub = RowEnd - RowBegin
Range("A”&RowBegin&”:A”&RowEnd).Copy Sheets("March").Range("A1:A”&RowSub)
View 9 Replies
ADVERTISEMENT
Jan 22, 2009
Is there a way to name a range beginning with a number? It doesn't accept it. Is there a way around this? range name examples: 2DBSUS 3DBSUS
View 2 Replies
View Related
May 23, 2009
I've attached a workbook which contains two sheets:
PAYM
DEVICE_PAYM
Data is updated on DEVICE_PAYM each day with the figures I need located in column "AN". I need to be able to copy the data from "AN" and paste it into a column on the PAYM sheet. The destination column on the PAYM sheet needs to be specified by inputting a specific date - ideally, I would like to use the calendar Add-In as part of this process. I've already input some code for the calendar but am unable to develop this further so that it finds the correct date column and pastes the data across from the other sheet.
View 2 Replies
View Related
Aug 6, 2007
The following macro does what it is designed to do and needs to be run from a control sheet called "Guide". When I run it from this Guide sheet it stops at around row 53 (out of 1400 rows) on each of the specified sheets in the macro. I have struggled with this problem and have now discovered that the macro will run correctly when run from one of the worksheets specified in the array, e.g. sheet "200 and 100".
Sub Calculateclosingtrades1()
Dim r As Long, c As Integer, LastRow As Long, rcheck As Long
LastRow = Range("J65536").End(xlUp).Row
Dim shtTemp As Worksheet
Dim vntName As Variant
For Each vntName In Array("200 and 100", "100 and 50", "50 and 25", "40 and 20", "20 and 10", "15 and 10", "18 and 9", "200 only", "100 only", "50 only", "40 only", "25 only", "20 only", "15 only").............
View 7 Replies
View Related
Mar 28, 2014
I'm trying to combine the hours that a employee worked on a single date, with one of multiple time periods that exist for that employee.
I have two sets of data.
Set 1 (hours)
Employee number, date, hours
12345, 1-2-2014, 6
12345, 1-3-2014, 8
12345, 1-10-2014, 8
Set 2 (periods)
Employee number, start date, end date
12345, 1-1-2014, 4-1-2014
12345, 6-1-2014, 1-2-2014
What I'd like to do is to add the start and end date of Set 2 to Set 1 for every row in Set 1
In above example the result should be like this.
12345, 1-2-2014, 6, 1-1-2014, 4-1-2014
12345, 1-2-2014, 8, 1-1-2014, 4-1-2014
12345, 1-10-2014, 8, 6-1-2014, 1-2-2014
View 13 Replies
View Related
Dec 12, 2011
way to search and display a date from a range of cells based on less than or greater than criteria. For example I have following dates in column A:
A1: 2011/01/04
A2: 2011/02/01
A3: 2011/03/01
A4: 2011/04/01
I want to search for the date which is less than 2011/02/01 from the A column and display that date in B1 cell for example. How do I do that?
I want to do this without using any macros.
View 9 Replies
View Related
Apr 2, 2009
I've made an formula to concartenate some numbers:
In A1 the value is 0
In B1 the value is 0
In C1 the value is 6
In D1 the value is 9
In E1 the value is 5
These numbers will change acording to a formula, but:
In F1 the formula is =A1&B1&C1&D1&E1
but in F1 the result will be: 00695
How can i make the result in F1 to be 695 instead of 00695?
View 2 Replies
View Related
Aug 6, 2013
I need method, using a button, that looks at a cell--say EO2, for example--, looks back on a master worksheet at a specified row and range for a match, then looks at the information from a specified range below the matching cell (The information in this column will either be blank or have an "X" in the cell), and then those rows that do not have an "X" will be hidden in the corresponding rows in the working worksheet. Therefore, if at any time the value in "EO2" ever changes, then it will automatically find a new match and repopulate and hide information as before. About 130 columns will have its own button so that a "query" can be made that depends on the information in a particular cell in that column.
The master worksheet now has matrix of 287 rows and 58 columns. Each row is for an operating procedure and each column shows a job code. An "X" in a coordinate cell for a column/row shows whether that job code is responsible for knowing that operating procedure. So, on the working sheet, an employee's primary job code is given underneath his or her name. When the button is pushed, all the operating procedures not required for a given person will be hidden and only the required ones will remain visible--grouped, if you will. Qualification dates will be easier to see now that the information is consolidated. Whenever someone transfers to a new position, a new code will be inputed on the working sheet. When the button is pushed, a new grouping will result. Any operating instructions that overlap will still have qualification dates, so that information will not need to be transcribed.
View 9 Replies
View Related
Feb 2, 2010
I have a base document that i can import another data document with a button (this is working).
I then have another WS ("search") in the base document with lots of identifiers which I want to use as my search range to look through the document that I just imported (column A).
I need a msg to ask the user what month they would like to find the $ value on (Ie, January) in the imported WS... this way it doesnt copy the entire line only cell in the selected month column.
Then I want to the user to be able to click a button that will check through the identifiers on the "search" WS and if the same identifier appears in the imported WS in column A, then for the $ value in the column selected to be copied to the search Range work sheet.
If the idenfifier is not matched then in place of the $ value copied can be the string "no in XXX WS" .
I have attached the document with dummy data in each work sheet with details more cleary what I have meantion above.
View 9 Replies
View Related
Jul 30, 2007
This is a sub that uses the Find method to find a series of dates and copy them to another worksheet. The following error comes up: Object variable or With block variable not set. I have tried using a set command etc. but other errors end up coming up.
Private Sub CommandButton7_Click()
On Error Goto errorHandler
Dim startDate As String
Dim stopDate As String
Dim startRow As Integer
Dim stopRow As Integer
startDate = InputBox("Enter the Start Date: (mm/dd/yy)")
If startDate = "" Then End
stopDate = InputBox("Enter the Stop Date: (mm/dd/yy)")
If stopDate = "" Then End
'startDate = Format(startDate, "mm/??/yy")
'stopDate = Format(stopDate, "mm/??/yy")
startRow = Me.Columns("A").Find(startDate, _
LookIn:=xlValues, lookat:=xlWhole).Row
stopRow = Me.Columns("A").Find(stopDate, _
LookIn:=xlValues, lookat:=xlWhole).Row
Me. Range("A" & startRow & ":A" & stopRow).Copy _
Destination:=Worksheets("Report").Range("A1")
End
errorHandler:
MsgBox "There has been an error: " & Error() & Chr(13) _
& "Ending Sub.......Please try again", 48
End Sub
View 9 Replies
View Related
Jun 20, 2007
I have a list of data by daily date only for days when the market is open. I need to select the data for each Friday (if the market was not open that Friday then I need to take the Thursday’s data) and copy that data into new cells thereby creating a set of weekly data. The daily data is in columns A to F and in rows 2 to 1400. The Friday data of each week is to be copied to columns G to L and to rows 2 to 300. I need to have the data without row gaps as I use this data subsequently.
I have attached a sheet with some daily data. I have manually copied a sample of Friday data to the desired location in red to show the solution I am looking for. An additional problem is that I need to copy across a daily moving average, from column F to column L, and being a calculation from daily data it does not copy and paste.
View 9 Replies
View Related
Dec 9, 2006
I work for a chicken hatchery. So, a couple preliminary things by way of explanation:
1. The day we place our eggs in the incubators, we fill in an excel file containing a list of all the farms from which those eggs came. This is called the "Egg List" workbook.
2. After 21 days have passed, and the eggs have turned into chicks, we open that original file. We copy cells from one column of that file (the workbook is called the “Egg List”, we copy “Sheet1” cells B7:B50), and paste them into another Workbook called “Chick List.”
My question is this:
Is there a macro I can put into the “Chick List” workbook that will automatically locate that particular “Egg list” workbook file that is 21 days old, and paste the contents of its cells B7:B50 into cells A7:A50 in my “Chick List” Workbook. It is preferable if this can be done without opening the old “Egg list” file. But if this is not possible, I’ll take whatever I can get.
Here is what I have, which works okay as far as finding the file. I bootlegged this from another part of this helpful website. But I cannot figure out the syntax for getting cells B7:B50 from the Egg list to copy into cells A7:A50 of the Chick List.
Dim FSO As Object
Sub ProcessFiles()
Dim i As Long
Dim sFolder As String
Dim fldr As Object
Dim Folder As Object
Dim file As Object
Dim Files As Object
Dim this As Workbook
Dim cnt As Long
Dim filenew As Object
View 5 Replies
View Related
Feb 12, 2008
I have a macro that searches a column for a date and then selects the appropriate date. The next step is to then copy the row and insert a new one below the copied one and paste only the formulas and none of the data. I have tried several iterations but all of the seem to paste the data too.
View 6 Replies
View Related
Sep 8, 2009
I have a table that shows across the top row date headings for year and month. So it would show like this, 2008/01 2008/02 2008/03 2008/04 etc to year ending 2009/12
I need a formula which will tell me the first date that a customer started transacting. Under each date heading is a count of transactions for each year/month by each customer. So, I need to search for the very first transaction number and return the date.
View 2 Replies
View Related
May 19, 2006
if I have 2 dates 21/05/2006 and 23/05/2006, how can I find out if 22/05/2006 exists between them
View 4 Replies
View Related
Apr 11, 2007
I have a formula =WORKDAY(TODAY(),-1) which will give me 10 Apr 07 in C1of sheet1 today. I am trying to find the cell in column A of sheet2 which has the date value equal to C1. However, my below macro keeps telling me object variable not set at the last line.
Dim s1, s2 As worksheet
Dim tdy As range
Dim today As Long
Set s1 = sheets("Sheet1")
Set s2 = sheets("Sheet2")
today = s1.range("C1")
Set tdy = s2.range("A1:A65536").find(today, lookin:=xlvalues)
tdy.Activate
View 9 Replies
View Related
Jan 5, 2007
Another question where i think my logic is ok i'm just not sure on the syntax.
I'm trying to find a range of cells by a criteria and the copy that range to another part of the sheet, The finding the data is ok i think, its just the copying... SpecialCells
Private Sub GetMainClass()
Dim Class As Range
Dim Cell As Range
Dim Destination As Range
Dim Counter As Integer
'searches entire sheet
Set Class = Selection.SpecialCells(xlConstants, xlTextValues)
' Initial setting of the counter. first row for data is the integer
Counter = 20
'set up the destination range with a counter to increment the row so data doesn't overwrite
Set Destination = Range(Cells(B, Counter), Cells(I, Counter))
For Each Cell In Class
If Cell.Value = "Main" Then
Cell.EntireRow.Copy Destination
Counter = Counter + 1
End If
Next Cell
Application.CutCopyMode = False
End Sub
View 5 Replies
View Related
Feb 19, 2009
In a row on the spreadsheet I have a range of dates from 19/09/2008 to 19/06/2008 mainly with a weekly interval.
I want to incorporate into the macro a find function so that it can determine the first occurrence of a specific month and return the row number.
View 9 Replies
View Related
May 11, 2006
Is it possible to use the Find method using a DATE RANGE? For instance, If I have two input boxes; One, a beginning date and the other an Ending Date.
Is it possible to use Find to search for all dates that are >= strBegDate and <=strEndDate?
View 9 Replies
View Related
Apr 6, 2008
have a range of dates in a column i can match an input date with this code where the input date is in cell H20 (eg 04/04/2008)
With ActiveSheet
Range("D:D").Select
Range("D:D"). Find(What:=Range("H20"), After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End With
the problem is that not all the dates in the range are consecutive and there may be the same date more than once eg
01/04/2008
03/04/2008
03/04/2008
05/04/2008
the problem is if the date in cell H20 (inputted by user) does not exist in column D, it all goes wrong.
what i would like to achieve is a way of incrementing the cell date by one day until it matches a date in the range, in this case if 02/04/2008 was entered 03/04/2008 would be picked up.
View 3 Replies
View Related
Feb 25, 2014
I'm using a macro for searching through ~200k rows of a column, finding all the occurrences of a string and copying them to another column.
This is the code (copied from somewhere some time ago, modified as needed) :
[Code] .....
It works great but it takes a little less than 20 seconds to complete the task.
And, since I have to search for multiple strings and the results need to be copied to different rows, I use multiple subs like this in a bigger macro.
The problem is that it got to the point where it takes 3 minutes to execute that bigger macro and I'm trying to find a way to speed things up.
View 5 Replies
View Related
Mar 20, 2013
What would the VBA code be to find the last row of data and have it copy range A2:E(last row)?
View 2 Replies
View Related
Feb 13, 2007
I have small problem to solve and I can't find out how: I have to find cells in a range (L4:L20) with value PM and copy range with two next cells to cell F4 (not a cell with "PM") If in range("L4:L20") cells = PM then copy range with next 2 cells to ("F4"). See attached worksheet.
View 3 Replies
View Related
May 14, 2012
I have one excel sheet. In the first column there are various Project Codes and in the first row there are various date. Cells in the matrix contains 0 or 1 value. If value is equals to 1 that means the project was on hold during this months and if the cell value is null of 0 (Zero) it means the project was active. For a project in a particular row there are several times a project went on hold and now I want a date range showing the project's hold duration. If project went on hold more than one time the result should also give different range for each time when project went on hold.
follow the link to view the excel file.
http://www.excelforum.com/attachment...3&d=1336994800
[IMG]http://www.mrexcel.com/forum/data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAABAAAAAMACAIAAAA12IJaAAAgAElEQVR4nOy9e3gT153/P99fd7vd77fxV+3udtO06fr3PL
[code].....
View 8 Replies
View Related
Aug 13, 2008
I am having some data running into 60 (C:BJ) columns and 200 rows. It is the record of dates query raised and answered with refernce to query number in the A coulmn. I have zero value as entry for the unused cells in this range due to some constraints. I need to find the smallest and the largest non-zero date in this range for analysis purpose. I plan to use the difference between these 2 dates to calculate turn around time for a query.
Problem is to find the smallest and the largest non zero date within range C6:BJ6 which would be used as input in the Networkdays formula.
View 9 Replies
View Related
May 15, 2007
I have some EXCEL files, titled as "AAA", "BBB", "CCC", so on... Calculated values are placed in Column Z for each file. In order for me to export the files to another software, I would need to create another new EXCEL file (I call it MASS) and place all the calculated values in that new file. In that new file, the titles have to be on Column A and the calculated values on Column B.
For example, File "AAA" has 120 calculated values. In MASS, the word "AAA" has to appear on Column A a number of 120 times and the 120 calculated values are then placed on Column B. Each value must correspond to the word "AAA". The same procedure goes for "BBB", in which the word "BBB" is placed on Column A after the end of "AAA". What I want to achieve is by using a macro that will look up the title of the Active Worksheet and then scan Column A in MASS. If the title matches whatever is in Column A, then the macro will paste the corresponding calculated values onto Column B automatically.
For example, for file "GGG", the macro will look up the word "GGG", scan through Column A in MASS for the start of the word "GGG" and paste the calculated values at the start of Column B. Could I have an idea of how might the macro looks like?
View 9 Replies
View Related
Apr 3, 2008
Hopefully someone can help me and understand what I am trying to do. I'm almost finished my project and stuck on one last part! If I have missed a similiar example on the forum could someone point me to it
I have a list of Lines (a,b...) which start at point i and end at point j.
Line i j Point x y
a 1 2 1 6 10
b 2 3 2 7 4
3 2 3
I have have a seperate list of the points. Each i point and j point have x and y coordinates.
I want to find the i point value in my list of points and copy the following two columns (the x and y values) to Sheet2. On sheet2 I want to paste the i values in row 1 and the j values in row 2, skip two lines and move onto Line b.
View 6 Replies
View Related
Jun 17, 2008
I am having trouble with the Find method in Excel VBA.
This is the piece of code that I have written:
Sub NCMVariables()
Dim x As Integer
Dim c As Object
Sheets("Data").Select
With Worksheets("Data"). Range("A1:A60000")
Set c = .Find("USD", LookIn:=xlValues)
If Not c Is Nothing Then
View 3 Replies
View Related
Feb 11, 2013
How to find out the number of cells in a range containing dates less than a specified date.
View 4 Replies
View Related
Mar 20, 2014
I am assessing the impact of product price increases on volume (qty) and sales (£/$).
The prices are changed sporadically and at no set intervals. For example pries were changed on the 15th Jan and 13th Feb this year.
We have set reporting dates (calender months) so i am hoping to be able to divide the report which shows sales & qty's during the 15th Jan - 13th Feb segment and apportion them to the correct months.
I have the start & end dates of the calender months in cells A4:B18 and each time a new report is run (ie 15th Jan or 13th Feb, these dates go across the top i.e. cell C3 = 15th jan & D3 = 13th Feb.
I would like to return a % in cell C4 which relates to the amount of total days in the segment that relate to Jan (ie. 29 days in the segment, 16 relate to Jan so 55.2%).
Cell C5 would then return a % which relates to the amount of total days in the segment that relate to Feb (29 days in the segment, 13 relate to Feb so 44.8%).
Cells D4&D5 would return the next reporting segment and how many days in Jan/Feb respectively (the answer will be 0 but a constant formula acrosss all would be perfect. tried to give as much info as poss.
View 2 Replies
View Related
