Copy Worksheet, But Name Varies Each Month
Aug 5, 2009
In my file I have a number of worksheets.
What I need to do is make a copy of one of the worksheets, however the name of it varies each month.
I have used the macro recorder to make a copy of a worksheet and rename the copy and this is what it gives:
Sheets("Trial August 09").Select
Sheets("Trial August 09").Copy Before:=Sheets(1)
Sheets("Trial August 09 (2)").Select
Sheets("Trial August 09 (2)").Name = "Comparison File"
Range("B781").Select
The last line is just clicking away from the renaming of the worksheet.
BUT, the worksheet called "Trial August 09" will next month be "Trial Sept 09" so my recorded macro wouldn't work.
I do have a summary worksheet in this file where the user specifies the month and year - Cell A2 will have August 09 and B2 July 09 for this month and next month it'll be A2 as Sept 09 and B2 as August 09 - can I use these to help do the copy?
View 9 Replies
ADVERTISEMENT
Jul 14, 2014
I have these specific rows (2,3,4,6,43,44,45,63) which I would like to copy and paste it on a designated sheet. But my problem is, the column varies depending on the YEARS.
I do have codes for it, the one I got from the recording. I just do it for all of the rows (formula pasted here) until all of it copied on the summary sheet. However, when I finally finished it and I run it. I could see the movement form One Sheet to another and its not good.
A code that I could use for my better understanding of MACRO.
View 3 Replies
View Related
Jan 17, 2013
I'm having a 6000+ records, (contacts DB) exported in Excel 2003 format from MS Outlook.
Except the "First" and "LastName", all other contact elements are in the field "Notes" (which is the BZ column according to the exported outlook layout) multiplied by 6469 (records in total)
Useful information are included !!!
I'll give an example of a record...
Column: BZ, Row: 543 says --> "2110000000-6989000000, 1TOK_TER:17-11-010(25 DAYS LESS),
KATERINA 25 (MANTAS KALNNNNN_HYPERTENSION)1000-150, W:95_105, , HR THE 16wks_US NEFRON OK,
NT OK_B EPIP OK(GOLF BALL)_KAMPILI ORIAKI(DIAITA)_DOPPLER OK, O+,TEST OK(TOX_), , , , , , "
Now, I want every time to take the part of the text says "TER:something..." (part of which is date, but not every time with the known format dd-mm-yyyy, as you see here is yyy, followed by something else, with parenthesis here and maybe more data) and copy it in a new cell..., e.g:CO Column, same Row...
Above and every field which by the way is formatted as General (and it is text mainly) are made by merging older excel fields where data laid here and there, that's why you see the commas...with the method of a module with the following code:
Function MyMerge(Rng As Range)
For Each Cell In Rng
Temp = Temp & Cell.Value & ", "
Next Cell
Temp = Mid(Temp, 1, Len(Temp) - 2)
MyMerge = Temp
End Function
Note1:Records with the above string (TER:dd-mm-yyy) are 771 from 6469.
Note2: As an alternative solution I can see an extraction of the TER:dd-mm-yyy string and the copy in a new place, like the:CO Column, same Row...
View 9 Replies
View Related
Apr 3, 2014
Although Copy + Paste and Copy to New Row are fairly common questions I find, I am having trouble getting it to fit to what I want.
In the attached example, I have three sheets: 'TBC', 'Bland Anna' and 'Coates Beth'.
I would like to search in columns E and F (no dates will be present until row 5, but as rows 1 through 4 will not contain dates, it may be easier/involve less code to just search the columns) for a specific month, e.g. for this example search for any dates that are in January.
I would then like to copy the data in columns D through G that correlate to said date, and then paste onto sheet TBC on the next available row, not to overwrite.
The macro in question would need to go through every sheet and perform the above action, although there are only 2 sheets in this example, the live workbook will likely contain 100+ sheets containing employee sick leave.
Furthermore, and this is something I'm not sure would be feasible, everytime it copies data, I need it to pull across the name of the individual. This part is slightly more complicated as the names on the sick leave sheets are based at E2 and G2, whereas it needs to copy the names to B and C. Moving the name information from E2 and G2 would make sense to make copying easier, there are other sheets that I have excluded as they are not relevant here, but which are used elsewhere.
If this is not possible, I will have to look into reworking the layout of the information to make it feasible.
month copy test.xlsm
View 14 Replies
View Related
Dec 22, 2011
We have a workbook that we create each month that has one worksheet per day of the month, labeled 12_01_2011, 12_02_2011, 12_13_2011...etc. The pages are an empty template with formulas and fields in place that we simply copy and paste the results of an SQL query into. Presently, we are copying the page manually several times over, and then manually renaming the pages with the new dates for the upcoming month.
So, here is my question. Macro that I might use that would:
1) Make a copy of the template for each day of the month.
2) Label each page in sequence with the dates for the upcoming month.
View 4 Replies
View Related
Jul 19, 2006
Is there a way to make the attached worksheet automatically shade out all the Saturdays & Sundays in any given month everytime you change the Month/Year cell at the top of the worksheet, as example? I've tried using the weekday/Weekend formula, but can't quite get it right.
View 2 Replies
View Related
Feb 13, 2008
I have this lottery userform, there are 49 buttons on it numbered from 1 to 49, when one is clicked it changed from opaque to transparent and also alters a number in my sheet.
To clarify when commandbutton1 is clicked (also number 1) cell B2 in the sheet changes from False to true or vice versa dependant on the current status when the button is clicked.
what i would like is a piece of code which takes into account the number of the button and changes the correct button backsytle to transparent and also the corresponding cell (B2:B50 - 1 to 49 respectively) to True or false.
Here's my simple
View 12 Replies
View Related
Apr 4, 2013
I am working in a spreadsheet that contains a bunch of data, it is not limited, and varies. It has some fiels such as: name, date of birth, address, and others. I am interested in creating a column with only the month digit of the date of birth for each row.
I have been working with some code, I am not quite sure how to continue. The following table would be a example that I have of the data, it has only to entry in the column of Date of Birth, but my data range will always vary. I want to get the month and past it in the next cell that is available in this case would be column c or 3... The worksheet name is REP.
VB:
Dim Cell As Range
' 1st cell with the posting date
Set Cell = Range("A2")
Do While Not IsEmpty(Cell)
If Cell = "Date" Then
[Code] .....
View 5 Replies
View Related
Oct 2, 2008
I need to know how to select the sheet the user was on at the time they ran the macro. The macro has to select (because I'm not yet smart enough to avoid all the selecting...) cells on other sheets, but I want to return to the sheet they started from at the end of the macro.
Unfortunately, they create these sheets themselves, and I have no idea what they will be named, or where they will be, or what their code numbers will be. They could delete them at any time and rearrange.
Sorry if this is a really dumb question. I suspect it is, but I can't find out how to fix it, and most people are smart enough to avoid the selects so I suspect it isn't an issue for them.
View 9 Replies
View Related
Mar 14, 2008
I am using the following to count my blank rows.
=COUNTIF(report!N2:N303,"")
Using a formula, rather than VBA, how can I modify this formula to accomodate a variable ending range. Without thinking I initially just counted the blanks in column N - yes there were lots of blanks. My goal is for the end user to not have to modify the formula.
I have the following formula in H2
=COUNTA(report!B:B)-1
which would give me the number of rows used for the month. I tried referencing the countif to cell H2 but, as of yet, have not been successful.
View 9 Replies
View Related
Jun 12, 2007
In cell A1, I have the month number (eg, 1, 2, 3,). The month number reflects current month and will automatically change with every month. For example, right now it’s 6, next month it will automatically change to 7. Each two columns in Range A10:X20 represents the data from January to December. I want to use a worksheet event to change the background of the current month two columns in the range to yellow color and the two columns in the range will be visible when I activate this sheet.
View 3 Replies
View Related
Apr 13, 2009
look for a certain value in worksheet A and copy that row of data to Worksheet B.
However, it seems to be only copying the row in worksheet A and pasting it. Is there something that a noob VBA scripter has missed out?
PHP Private Sub GetInfo_Click()
Dim r As Long, LastRow As Long, Status As Integer
Dim Message As String, Title As String, Default As String, MyValue As String
Application.ScreenUpdating = False
MyValue = Range("A4").Value
Workbooks("invoice.xls").Worksheets("A").Activate
LastRow = Range("C65536").End(xlUp).Row
For r = LastRow To 1 Step -1
If Cells(r, 1).Value = MyValue Then
Rows(r).EntireRow.Copy
Workbooks("invoice.xls").Worksheets("B").Activate
Rows("8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Status = 1
Workbooks("invoice.xls").Worksheets("A").Activate
Rows(r).EntireRow.Delete
Exit For
End If
Next r
Application.ScreenUpdating = True
View 2 Replies
View Related
Nov 22, 2006
I have written code that allows a user to copy, via a button, a certain sheet any number of times. They can choose to copy that sheet 5 times and then 10 times, etc.
When the sheet tries to be copied for the 17th time, it fails with the following message: "Run-time error '1004':
Method 'Copy' of object '_Worksheet' failed"
Here is the code that I have. The second line is the line that is failing.
Worksheets("RoedForm").Select
Worksheets("RoedForm").Copy After:=Worksheets(iCount)
This always fails on the 17th copy regardless of how many different combinations of copy sheets the user tries. There are several sheets before the sheet that is to be copied and I have deleted several of those to see what happens and it still fails on the 17th copy. I also have 1GB of memory, so I don't believe that memory is an issue.
View 3 Replies
View Related
Apr 21, 2012
I have a workbook that contains 50 worksheets named 1-50. I need to add more worksheets. all the formulas in the worksheets always refers to the previous worksheet.
How can i make a copy of the worksheet named 50, name it 51 and have all the formulas in worksheet 51 refer back to worksheet 50?
View 1 Replies
View Related
Dec 23, 2008
I m trying to write a formula for my financial model. If anyone can take a stab at a solution. I'm trying to write a formula that will equally distribute revenue either over the next 1 month, 2 month or 3 month period depending on size of the deal.
Details:
Sales will fit in 1 of 3 categories. Less than 25k; between 25k & 100k; greater than 100k.
- if under $25K, recognize in next month (month N+ 1)
- $25K-100K, recognize in two equal parts in months N + 1 and N + 2
- over $100K, recognize in three equal parts over 3 months
N + 1, N + 2, N + 3 ...
View 4 Replies
View Related
Jun 1, 2008
I have been trying for the past four months now to get my workbook to automatically open a new worksheet every 1st of the month.
but I have failed each and every month. I have asked others to assist but to no avail.
this is the code in my workbook as it looks now.
Dim strValue As String
Dim Sht As Worksheets, foundSheet As Boolean, TEMPLATE As String
Dim rng As Range
Dim irow As Long
Dim myDate As Date, newDate As Date, oldSheet As String, newSheet As String
Dim ws As Worksheet
Dim strName As String
Dim wsh As Worksheet
i keep getting an error on the activesheet=newsheet.
View 9 Replies
View Related
Mar 18, 2014
I have a macro below where it looks at sheets name and deletes if Jan is not there.
I would like to change this a bit so that it looks for all 12 months (Jan to Dec) instead of looking for Jan only.
View 8 Replies
View Related
Feb 6, 2008
I have two workbooks, one a database that accumulates data over time, and the other a monthly report that needs to be populated based on information from the database. When moving data between the two, the following works fine (snipped a lot for ease of reading):
Workbooks.Open (database) ', Password:= /
Workbooks(reportbook). Sheets("Sheet1"). Range("A1").Value = month(Cells(282, 5))
As you can see, it simply puts the month from a cell in the database into the report workbook. However, if I change Range("A1") to Cells(1,1) I get a runtime error:
Workbooks.Open (database) ', Password:= /
Workbooks(reportbook).Sheets("Sheet1").Cells(1, 1).Value = month(Cells(282, 5))
I can generally work around this issue by changing the active workbook, but doing so is a big pain. Is there any way to use the second bit of code without popping an error message?
View 3 Replies
View Related
Mar 28, 2008
I'm a little scared to post what with all the warnings and instructions but here goes.
Each month I have to create a new workbook for entering data daily, the tabs are named
"April 1" "April 2" "April 3" and so forth.
I am looking for a shortcut to adding each sheet manually and renaming each tab after adding in 30-31 sheets.
I have found code for adding and naming in numeric order, weekday, monthly, but need something to add both the name of the month and the day of the month.
View 9 Replies
View Related
Nov 16, 2008
am currently a QE using the following data for my report generation:
Date - Week - #Inspected - #Failed
Want to pull data into ANOTHER WORKSHEET from this one wherein the format will be :
Month - #Inspected - #Failed
Indirectly want Excel to directly convert the data by input and categorize into Month in another worksheet (will be linked and would be great if according to the date it could calculate the week as well)...so if somebody inputs defects by date it should automatically cumulate into respective month.
View 7 Replies
View Related
Nov 19, 2008
I have created a spreadsheet for internal use in my workplace that logs task by members of staff, What I am trying to achieve is when someone selects from a drop down box that a task has been complete I want the task to automatically move to another worksheet for the relevant month, as I will have worksheets for every month logging all the past tasks that have been assigned. I believe an IF statement should do the trick, but I am having no luck so far.
View 2 Replies
View Related
Nov 3, 2009
I have a worksheet that includes a cell that gives the current week of the month, in the form of "Week #". I've been using the formula below for several months and have had no issues until this month, and it's driving me crazy.
Given that cell D2 is the beginning of the week (usually Monday, but at the first of the month it may be a different day):
="Week " & ROUNDUP((DAY($D$2)+WEEKDAY(DATE(YEAR($D$2),MONTH($D$2),0)))/7,0)
I'm not sure where the logic is going wrong here; it's worked so well up until now. For the week beginning November 2, 2009, the formula above returns "Week 2" rather than "Week 1".
View 9 Replies
View Related
Jul 17, 2009
I have a worksheet that has a Calendar on a worksheet from Calendar Control 8.0.
I want to be able to pick a month from the calendar and press a button to convert the selected month into a worksheet. I have a custom made calendar worksheet that I would like for it to be converted into.
I have uploaded my workbook. It contains the custom calendar worksheet as well as the calendar control.
The file is called "calendar.xls".
View 9 Replies
View Related
May 5, 2013
I am trying to copy sheet 2 to active sheet,only for the cells where the date is for last month.
VB:
Sub currentm()
Dim i As Long, r As Long, l As Long, cool As Integer, mo As Integer, k As Integer, yr As Integer
cool = Sheets("Sheet1").UsedRange.Columns.Count
r = WorksheetFunction.CountA(Sheets("Sheet2").Range("B:B"))
[Code] .....
there is an error of type mismatch
View 9 Replies
View Related
Oct 26, 2009
My macro's function is to paste the workdays of an entire month in a specific row of a worksheet. Everything seems to work except using a number to reference the column in which to store the values. I've searched the web for over an hour and found two "solutions":
1. write a function to convert column number to a letter
2. utilize Cells object
#2 seemed more efficient but the function is giving me the error: "Runtime Error: '1004': Method of 'Range' of object "_Worksheet' Failed"
View 4 Replies
View Related
Jun 23, 2006
I am writing a module which have a different test based on for each of the previous 2 column cells. It calculate the days passed or in simple way calculate the date difference for the 2 columns and puts them in third. But i need to use a inputbox for entering the first date for monday of the month each time i use the worksheet.
When i try using the module for each cell of the column it display the input box for each cell. is there any way so that i just enter the value in input box and it can be used in rest of the module.Without using it again and again.
View 8 Replies
View Related
Sep 24, 2012
I've been tackling this data capture/paste issue for a week or so. I found the string below which does provide a good foundation for my challenge. But, my basic level of understanding macros limits my modifications to meet my needs.
[URL] ......
I have 20 worksheets in my master file corresponding to Excel files individual associates will update weekly. After the associates have updated their individual files for the week, I want to capture the data entered and paste values into a master file containing a worksheet for each associate (sharing the same name as the individual associate file). All of these files are housed on team SharePoint sites.
I need a macro to perform several steps after clicking a "Run Update" macro button in the master file:
Open individual associate fileIn master file, search for each Initiative listed in column B (starting cell B3) in the individual associate file (in column B starting at cell B11)If Initiative is found in individual associate file, copy adjacent data in columns D:J for the respective rowIn master file, paste values to the corresponding Initiative row for the corresponding week's worth of dataIf Initiative is not found in the individual associate file, move to the next Initiative listed in the master fileRepeat these steps for each individual associate file
Linking would be the easiest way to accomplish this if I wanted to have a multitude of weekly individual files for the associates. However, I'd rather each associate have one file for them to update (basically overwriting their previous week's entries).
I need to ensure the paste values corresponds to the appropriate day of the week. In simpler terms, if the date in the individual associate file in cell D9 reads Oct 1, 2012, the data captured from that row needs to be pasted to the corresponding row/column in the master file that reads the same date.
View 2 Replies
View Related
May 6, 2014
I want to copy from sheet 3 the figure in "N" to table "Liegezeit" on sheet 1 if the choosen year and the month are suitable to date on sheet 3 in "M".
View 2 Replies
View Related
Dec 15, 2009
I'm a novice Excel 2007 user and appreciate all the help I can get. I have a workbook with monthly worksheets in it. When a certain data Type is selected from a drop down menu in that monthly worksheet than I would like to have it automatically enter specific data (Name, Date, Eval, Type) copied to another worksheet (CC) in the same workbook. I have been manually entering the data so far. Another thing, some of the data will be entered into the Monthly worksheets and some will only be manually entered into the CC worksheet so it would need to accomodate both methods of data entry. Please let me know if I need to clarify. I have attached the workbood, too.
View 11 Replies
View Related
Jun 19, 2013
I would like to copy the data from one worksheet to the alternate row in another worksheet as follows. I've attached a file showing the source file and the desired output.
1. Copy column B's data in worksheet "Working" to worksheet "Upload file" Column V. B2's data goes to V1, B3's data goes to V3, B3's data goes to V5, so on and so forth.
2. Copy column H's data in worksheet "Working" to worksheet "Upload file" Column F. H2's data goes to F1, H3's data goes to F3, H3's data goes to F5, so on and so forth.
The number of rows with data in worksheet "Working" varies. It could be 30 lines one time and over 100 lines another time.
View 2 Replies
View Related