I have this schedule (sample below) and what I need is the second sheet to look like this. I am trying to make a macro that will auto fill in the 2nd sheet. I was hopeing the macro could be put on the main schedule so that you clicked on the date at the top of the schedule it would make the second sheet which follows. It can then be printed and posted. Ok this is where it sunk my boat. Take the letters before the (,) and put on sheet two designation line and column matching. Name obviously goes under name. Now for the trick if possible, under day of the mounth (12/30) fill out the rest of the sheet. Take information out of sheet 1 and place them Starting with lines 4 thru 9 in the column designating night crew. Lines 10 through 24 disegnated under day cloumn and then last 6 for the evening column. (Another trick is if any of the names work a different shift I. E. shifts are 6 to 1 days, 2 to 11 is evening and then 12 is night. Anything in column other than a number or the word noon should follow thier shift designation as described above. D=day off and blanks to stay blank. Now for the dream, can sheet be made to allow for additional names on any of the shifts without messing up the whole thing.
Deadline for next schedule 11/19/2012
12/30
12/31
1/1
1/2
1/3
1/4
[code]....
I know I requested a macro but any way that gets it done will work.
I have a sheet where a user will enter x number of rows of data.
im trying to get it so that the macro, when run, will goto the last row of Data in Colum A, and delete all rows BELOW to the end. then select the first empty row and do the following
in A =SUM(A30:A last row of data above this one) in B ='HASH TOTAL' in D ='TOTAL in E = same as A but for colum E in F = same as A but for Colum F in K =same as A but for Colum k in J =same as A but for Colum J
then select the row below that one and from cells A:M and format With Selection.Interior .Pattern = xlCrissCross .PatternColorIndex = xlAutomatic .ColorIndex = xlAutomatic .TintAndShade = 0 .PatternTintAndShade = 0 End With
Whenever I enter a value say "X" in Sheet1, ColumnA I want the value to be autofilled into sheet 2, ColumnA if and only if value does not exist in sheet2, Column A.
EXAMPLE: Complete Sheet called "Day1". When day1 is complete you click on button and it then copies itself and creates and renames new sheet to "Day2", then when "Day2" is complete you click on button and it then copies itself and creates and renames new sheet to "Day3", and so on and so forth to "Day30".
I have attached a 97-2003 .xls file with data for multiple store locations on sheet 1, and the desired result on sheet 2. I am actually using excel 2007, but I dont think I need any special features that it provides.
I will try to explain the issue here without opening the attachment.
I am currently using a macro to copy a sheet from a closed workbook in to my current workbook. However this copying is based on the sheet name. At present when I run the following code
I am using Excel 2010 and I have a password protected workbook with password protected sheets that uses several macros. Most of them, in order to run, have to un-protect the sheet and then re-protect it again. This has been accomplished easily enough by adding ActiveSheet.Unprotect Password:= "mypassword" and ActiveSheet.Protect Password:= "mypassword" to the appropriate places in the script. All of my macros, which do various things like sorting and moving data, deleting blank rows, displaying dialog boxes containing warning messages etc. run fine.
My problem is this: when I password protect the sheets manually, I have checked the following options in the "Protect Sheet" dialog box. Under "Allow users of this worksheet to" I have checked 1)Select unlocked cells and 2)Format cells. After entering my password and closing the dialog box my sheet is protected, but I can edit cells in the manner my allowances permit. However, once I run any of the macros that un-protect and re-protect the sheet, I remain able to select and edit unlocked cells (practically, for my purposes, this means that I can input data which will appear in the default font size and color of the sheet) but I cannot format cells (which, practically, for my purposes would allow me to occasionally change the font color and size of the data). Naturally, after running a macro, the other cell-formatting options are unavailable to me as well. Is there any way to get my manual selections to remain in place after running a macro that functions as mine do? Or is there any way to make my manual selections the default settings for a protected sheet?
I am running excel 2010 with windows 7. I created a macro in sheet 1 and I wish to activate the macro from sheet 2 using a form button. I have entered the code below. I know how to perform this function on a more simple macro like adding names to cells. This code is a bit more complex I just dont know where to start.
i need a macro that will compare the p'folios in sheet "Data to Sheet Workings, and then list the p;folios which is in sheet Data but not in workings in Sheet "New", so in the example below this would be ETSTSA ...
I need a Macro which pulls the data from different sheets of excel (which is not formatted properly) to Main Sheet. Also some of the columns will not have the same names, so macro should handle this exception as well.
I am trying to take the tables you will see in the dummy page on the second and third sheet and have them output onto the first sheet based on the parameters of the drop down menus. Is there a way to have a button on the first page that controls a macro to do this?
I need to create a macro that will scan a spreadsheet for the number of sheets and then pull data from the same places on each sheet in order to create a summary sheet. Let me try to explain a little better.
The spreadsheet I'm working with has a separate sheet for each new deal our company makes. Each of these sheets is in the same format - we use a template and fill in the data based on that whenever a new deal emerges. The sheets contain basic info about the deal in the first few rows and columns, then some narratives with dates describing the progress of the deal, and then a list of issues and whether or not they have been resolved. The problem is, each of these sheets contains too much info for a quick, high-level overview with the bosses so they've asked me to create something that will pull the basic info, the most recent narrative, and any unresolved issues from each sheet. This way, each time there's an overview scheduled with the bosses, the macro can be run and it will create a new sheet with data from each sheet in the workbook.
I'm trying to create a copy of the active sheet and then rename the new copied sheet to what's in cell O4, which is a formula (see below) and then paste value cell O4 in B3 of the copied sheet. However, when I run this macro it doesn't seem to like the second line where I am renaming the sheet (run time error '1004').
"O4" =DATE(YEAR($B$3),MONTH($B$3)+1,DAY($B$3))
Sub NewMonth()
ActiveSheet.Copy Before:=Sheets(Sheets.Count) ActiveSheet.Name = Range("O4").Value ActiveSheet.Range("O4").Copy ActiveSheet.Range("B3").PasteSpecial Paste:=xlPasteValues End Sub
I want a sheet to copy and paste into another worksheet, I have that code and its working fine, but what I also want to do is for the sheet to be protected,so the code would be, copy, unlock, paste, lock, save.
Here is the code I have so far. I know i have to include ActiveSheet.Unprotect "passowrd" ActiveSheet.Protect "password", but I dont know where to include that last part of the code.
I'm trying to get the data from Receipt log (sheet 1) to automatically populate into the Print Receipt (sheet 2) and to automatically filter and go to the Activity by account (sheet 3). I am so new to this and totally lost.
How to create macros. I need to copy a certain group of cells from one sheet to another, and then do it for x number of times. I'm just using the record function and now i'm lost. Here is the code i currently have:
Also, column C is blank. i would like to get the values from another list in the same workbook, say "branch list". I would like to populate Column C with one specific branch for each "batch", if that makes any sense...
I am looking for a Macro which can transfer data from sheet 1 to the first available empty row on sheet 2.
For example, I have data in the following cells on sheet 1: B2, B4, B6, B8, and B10. I want to transfer this data to the first available empty row into cells A1, B1, C1, D1 and E1 of sheet 2. The cell number is ofcourse depending on the first available empty row and could thus be 2, 3, 4, 5 etc.
I also want to delete the data from the original cells in sheet 1 after the data has been transferred.
I have an automatic macro that runs from every sheet but is only based on one sheet. I had to protect the worksheet and in order to make the macro work I had to add an unlock and a lock code. The problem now is every time a user enters something it looks back to the other sheet and then comes back. Is there a way to prevent the user from seeing this. See code below
Private Sub Worksheet_Calculate() Sheets("Profit Calc Local Currency").Unprotect Password:="hspricing1" Application.EnableEvents = False Dim lr As Long lr = Cells(Rows.Count, "XEA").End(xlUp).Row Range("$XEA$1:$XEA$" & lr).AutoFilter Field:=1, Criteria1:="1" Sheets("Profit Calc Local Currency").Protect Password:="hspricing1" Application.EnableEvents = True End Sub
I have a couple of spreadsheets that requires me to copy data from Sheet 1 that matches certain criteria to Sheet 2.
I have tried using posted VB codes that have been written for other people but they dont seem to work (this is probably to do with me not actually knowing what I am doing, as I am not sure what I should be replacing and what I need to be deleting etc out of the pre-written code )
I need to be able to search on column e in Sheet 1 for anything that has just h written in the cell and then copy all the rows that match into Sheet 2. I also would like to ensure that when it is copied it doesnt go in row 2 but maybe 4 or 5 as I have quite allot of headings.
I am trying to create a macro that will take several values from one sheet (these values are from various spots. They are not all in one row) and paste them in the next blank available row on a different sheet under set headings.
I have a report generated from an application and am looking to format it into a specific format in order to import it into access to be used in a query. Does anyone know how to write a macro which will:-
1. look for a particular word and delete 1 row above it and 16 rows below it, for every time that word appears on the sheet.
2. Look for a specific number (which can be identified by the total number of digits in it and/or the starting series of numbers) from it’s location to another newly inserted column
4.Finally, count the number of rows between the number moved in step 2 and the next similar number and copy the first number in to number of rows = the number of rows between it and the next similar number.
I am trying to create a transfer of data from one worksheet to another, where Column G is where new data will be entered. I have a macro to sort the data (works great!!), but it is just getting it from one worksheet to another without having formulas in the cells - which can be deleted by my co-workers - to pull the data from one sheet to another.
I do not know if this can be done automatically or not, or if info is updated on one worksheet vs another - if then it will transfer the text.
Example:
(A2)LAST NAME (B2)1ST NAME (C2)RES# (D2)HOUSE (E2)DOB (F2)JOB (G2)SPECIAL (A3)DOE (B3)JOHN (C3)112233 (D3)1 A2 L (E3)10/10/75 (F3)YES (G3)DR APPT
There are over 300 entries - one row new record. The CommandButton1 works great that I have for compiling and deleting unused rows.
But now I need something to get the data to the blank worksheet to compile data from Column G without formulas in the cells. This was one I found online, tried to adjust it to fit what I need, but I cannot get it to work.
Sub CopyRow(ByRef Target As Range) Dim DstEnd As Range Dim DstRng As Range
In my database I am often inserting a new row in between two rows of data and then entering information across 8 cells. I have to manually enter all of the same information on sheet 2, again between two rows that already have data. Is there a macro or formula that would work so that I don't have to enter it twice?
