I have a protected template and unprotected source worksheets - - - what I would like to happen is for the macro to start and if the source worksheet cell B3 equals "Report Total" then stop - otherwise copy template worksheet then copy 6 specific cells from the source to paste values to specific cells on the newly created worksheet (B_ to C7, D_ to I7, E_ to C9, F_ to K9, A_ to C11, M_ to K11 and then K13=F13-30)
After that then start all over again unless the next row’s cell (B4, B5, B6, . . .) is "Report Total" then stop - - - the row count could be from one to a couple hundred.
Here is what I have so far but I know that with each copy the name will change and as it goes down the source file each row will change and I also need help with that.
I am trying to write a macro to open a specific file, but need to search multiple folders within folders to find it.
The file name I need to open is "Escalation Adherence-Details " & Format(Date, "mm-dd-yy") & ".xlsx".
I need to drill down to the Adherence Report folder and then have the macro search through folders for each year (2012, 2013, 2014, 2015, etc) and then each month within each year (1 January, 2 February, 3 March, etc), at which point I would then find that day's file.
So far I have the following:
Code: Sub Open_ESCL_Report()
Workbooks.Open Filename:=*****.****.****.******.comsharesPurchasingTeam XEscalationAdherence Report & "Escalation Adherence-Details " & Format(Date, "mm-dd-yy") & ".xlsx" End Sub
Each file is stored in it's respective month folder as .....Adherence Report(Year)(Month)(File).xlsx
I would like to select all cells in column A that begin with the text "SP". Some cells will be contiguous but others will not. For instance in one case, I would like the macro to select cells with the text "SP" which would result in cells A1, A2, A3, A10, A15 being selected. I am working on building a macro that will then do other things to these cells/rows so this is the first step.
The below code will select the first cell with "SP". How would I alter this code to only search Column A and select multiple cells? or totally different code.
Code: Sub test() Dim r As RangeSet r = Cells.Find(what:="SP", LookIn:=xlValues, lookat:=xlWhole) If Not r Is Nothing Then r.Select End Sub
I need my macro to stop running 5 rows before an empty row. I have numerical data in cell BE, and a running summation of the numerical data in cell BI.
The last 4 rows of the group of data are subtotal/total rows, followed by an empty row separating this group of data from the next.
I would like the summation to start at the row of my active cell and continue to populate column BI with the running summation of column BE, but stop 5 rows before an empty row at the bottom of the group of data.
I have a simple macro that copies data from worksheet to another. I only want this macro to be run once per day by the user. One of the cells that gets copied is the value found in the formula "=today()". My thought is that the macro could look for the existance of the current date in the pasted data (meaning the macro has already been run once today), and if the date = today, then a message pops up warning the user that the macro has already been run once today, and ask if they're sure they want to continue.
Any easy way to accomplish what I'm attempting to do? The current date gets pasted into a worksheet name "PriorDay" in cell C5.
am createing userform for entering system details, when i assigning peripherals to the system must be unique ,no other system not used.for this am write code , it's working fine. but when i searching details of system using desk no, if when cursor go to the unique fields the data is clearing. due to unique identity.
and other one
my drop down values adding form other sheet" Working sheet", when system is assigned , auto maically paritucular fields status will changes from "Working" to "assigned" in " Working sheet". is it possible changes the text depending one sheet cell ref to other sheet.? you can easily understood in following path am attached my file.
I have a workbook that has 9 different tabs in it. Once all the information has been completed throughout the workbook, is there a code that could transfer specific data on each page to a different colum on that same page? I need to do this for 9 pages at one time. The information is listed differently on each page. I need to transfer data from the current data column to the previous data column once the entire workbook has been filed out.
I'm trying to match certain transactions between two bank accounts, where the only like values are going to be date and disbursement/deposit amount. Obviously vlookup will not work here because there are many duplicate values. In the attachment I put in a Vlookup in the Account 2 tab to try and demonstrate what I'm trying to do exactly, which is match deposits in Account 2 with Disbursements in Account 1.
After looking around I found that maybe a combination of INDEX/MATCH would work here but how to get it to work or even if it is appropriate in this situation.
I have a Master sheet with data on it that corresponds with multiple sheets in the same workbook that I have links to in the Master sheet. It all works fine until I sort the Master and then my links start sending me to the wrong worksheet.
Is it just the nature of hyperlinks that you can't sort, or is something else going on here?
my excel sheet runs through a lot of calculations, opens Flowmaster, a simulations program, passes on data, receivs data and so on. Is there any way to have a user input to stop the whole simulation. During the first tries I had a lot of break point in my debugger. But now I want to have a button to hit or better just some keys to hit to stop it without using the ctrl+alt+del which closes everything.
I have 1000 diff names in a spread sheet and wish to search another spread sheet with these names on and alot more.
I want the search to look in the larger spread sheet for these 1000 names and copy all the informtaion in the cells to a new sheet, if the name is not found i would like something like "no info found" to be seen.
Im a novice to doing this sort of thing in excel, but i have found this script which searches for the word "mail box" and copies all the info in the cell when it finds it.
Using a Month specified in an input box eg: July Payday
Look up that month on the "info" worksheet to then copy and paste all the dates for that month on to a worksheet called "Working Hours". This is the code I have at the moment...not much I know, I don't know how to format the code in to tags:
Sub WorkingDays() Dim LastRow As Long Dim Month As String 'setting the object of Month being the data we need to find Month = InputBox("Please enter the month you wish to record, eg July Payday") 'Typing the Month which we need to copy the dates for
I'm building a spreadsheet which has a formula which performs a vlookup on a sheet. Now I want to leave the vlookup formula so that you don't need to change it. What I want to achieve is that the vlookup table array references a cell in the current worksheet which is a name of another worksheet.
What this will enable me to do is to keep the forumla unchanged by by changing the cell with the worksheet name in it points the vlookup to a different sheet. This is because I have multiple sheets which have similar data on and I don;t want to edit the forumla to point to the different sheets.
some of the code proved inflexible when applied to other columns of data. I have some VBA code that could work if it can be modified. First the code:
Sub ColorMe() Dim lRw As Long lRw = Range("B" & Rows.Count).End(xlUp).Row
The way things are right now, if a cell in the B-column contains the word "April" (and ONLY that word), the contents of the C-column's cell on the same row receives a red font color (index 3 as per the example above). The idea is to modify the code so that it searches for the word "April" in a string of text such as "Mike's April Trip" and color the contents of the cell to the right of it accordingly. Is this possible?
As an aside, conditional formatting does not work for the purpose that the cells are being colored for. It needs to remain hard-coded like in the script above, hence why I am just looking to modify something that 'sort-of' works.
The easiest way of explaining what I'm after is to say, I have letters of the alphabet, in their own cells, and I want to find them by way of a search. I don't mind how this is done, but it would be good if for example you entered A, C and E, any cells containing those letters changed, maybe became bold, or the cell filled with colour.
I need a macro that will print a hidden page that is linked to the page I have active.
It needs to be able to find the correct hidden page that corresponds to the active page because there are multilple pairs of the hidden/visible pages. The name of the hidden page is the same as the visible one with "printout" added to the end. When created, the sheet code names are sheetn and sheetm; n and m being consecutive numbers.
I am working on a project that I feel should be relatively simple but I seem to be stuck. My Goal: To add information to specific rows of data in the worksheet. I want to use a user form, and eliminate as much typing for the user as possible. I have already designed my user form, and written the code to identify the row in which I want to edit. Nonetheless, I do not know how to code the insertion of the new data. The data I want to add will be in empty cells at the end(right) of the data table.
I have attached a portion of my data set.InsertQuote.jpg
Here is where I am. The words in red are just colloquial words that I cannot seem to put into code.
Private Sub CmdInsert_Click() Dim Company As String Dim PartNumber As Variant Dim Condition As String
on one sheet we have a summary of the main list, which includes totals of money recieved, totals of all the different sources (ie, where they heard about us from), the totals of the frequencies they pay (ie, how many donate monthly, quarterly...) ... etc. on the next sheet we have the "main" list of donors, their IDs, amounts, frequency, source ...
the totals on the first sheet are updated manually, but i want to change that as there are a great number of errors.
What I'd like to do is copy text down in column A but when a cell in column C says something like 'end of data' I'd like the copy to pick up the next row in Column A and copy down until 'end of data' and so on.
Or maybe copy text down in Column A until the text changes in col A.
I'm fine with Web queries generally (I'm using these for returning options pricing data) and have set up the query with code to loop through the options I want the prices on, go get them, and format the data usefully on my side. No problem there.
To get a web query to work (I understand) it needs the exact web address to go to
That's pretty easy. However the page I'm trying to source data from doesn't change at all: it's https://us.etrade.com/e/t/invest/quotesandresearch
I can't see how to now 1. enter the symbol (e.g AA), 2. choose a dropdown option (i.e Greeks) 3. choose a second dropdown option (i.e All Strike Prices) and get the data from the table.
how to make my network days stop counting when I insert a value in the completed column (in this case H3). I have a Date Received column (A3), a due day column (G3) and the last column with the date (N3). My remaining days column keeps counting after I filled the completed cell (H3) and won't stop counting after. I need a formula to stop after the completed cell is fill up.
Private Sub ComboBox1_Change() 'was A, now N DataReport.ComboBox2.Clear If Data5m.FilterMode = True Then: Data5m.ShowAllData Data5m.Range("A1").AutoFilter field:=14, Criteria1:="=" & DataReport.ComboBox1.Value Call FillCombobox(Data5m.Range("X2", Data5m.Cells(Rows.Count, "X").End(xlUp)).SpecialCells(xlCellTypeVisible), DataReport.ComboBox2)
When I view a sheet under Page Break Preview, it shows the Page numbers in the centre of the Page. While I am aware that it would not print the page number I was wondering if there is an option to remove/hide the page numbers.