I have excel result sheet which contains students information. i.e. name, subjects and their corresponding marks, grade, percentage etc. So from that sheet I want to print result cards for each students separately from the data (result sheet).
I created a simple auto numbering function whereby Cell A7 contained =Row()-6, and Cell A8 contained =(A7+1). I then shift, and pasted the contents of cell A8 until cell A600. My aim is to simply copy the increments of 1 - 600 into another column. However when i copy and paste i'm also copying the initial underlying formula ie: =( A?+1), Is there a way to copy the results, not the formula?
I have a macro that imputs data from an external database and puts it into a temporary worksheet. This data has 3 columns (ID, Date, Amount). I am then making another sheet which has X number of tables (one for each ID), with the years being the column headings, and months being the row headings. ie.
| ID X | +------+------+------+---> | | 1999 | 2000 | 2001 | +------+------+------+------+---> | Jan | $100 | $250 | $300 | +------+------+------+------+---> | Feb | $200 | $300 | $200 | +------+------+------+------+---> | Mar | $300 | $250 | $100 | +------+------+------+------+---> | Sum | $600 | $800 | $600 | | +------+------+------+--->
| ID Y | +------+------+------+---> | | 1999 | 2000 | 2001 | +------+------+------+------+---> | Jan | $100 | $250 | $300 | +------+------+------+------+---> | Feb | $200 | $300 | $200 | +------+------+------+------+---> | Mar | $300 | $250 | $100 | +------+------+------+------+---> | Sum | $600 | $800 | $600 | | +------+------+------+--->
Currently I have a few hidden fields for the DSUM Criteria. I start making the tables. And then filling in table based off of the month and year. Doing so I need 3 criteria: >= First Day of the Month <= Last Day of the Month = ID #
The problem is it takes Excel too long to fill in the 3 criteria fields, calculate the result, copy the result, and place it into the correct place on the table. Is there another way to get this data into the correct tables faster? Instead of using DSUM?
When I enter a formula into a cell, for instance; (d27*d28/144)*d23, and then enter a number into cell d23, the formula gets replaced by the value of the result automatically.
I've searched the help files and found no setting that does this. It reminds me of an old question I've had lingering since I've used excel and that is why sometimes when you enter a math calculation, for intance; =25/5, the number 5 is entered into the cell instead of the formula.
After I posted the above, the problem magically went away until.....
This is boggling my mind. The problem is back.
The wierd thing is I copy a known good formula to one of these cells, for a split second you can see the formula in the formula window and then it gets changed automatically to the result of the formula. Formula is gone!
Then I tried this:
I set security to high (I had it on Low) and of course my macros would not run, but this did not clear up the problem. However when I set security back to low, it now seems to be working good. I am scepticle (sp.?) though because the problem is very random.
When I drag my VLOOKUP formula down a column in Excel 2010, the return value copies the formula result from the original VLOOKUP formula result. For example, if the first VLOOKUP returns a value of 0.5, I expect to see 0.5 or 1 in the cell below that one. However, I get 0.5 which is not the expected result for the cell below.
When, I click the fx on the cells below, the expected return values appear in the formula result. After I click OK, the expected formula results updates and now appears in the cell.
I'm not sure what is causing this issue. My computer was updated recently from an old machine to a new one. I have never experienced this issue before.
I want to make a spreadsheet with bets of mine and my friends (picture). How to make cells D4, D5, etc., change to Win or Loss depending on the result?
I want to be able to enter a value into a cell (within a specified range) and have it automatically multiply by a set value and overwrite the original entry with the result so making it all happen within one cell. The set value would be another cell on that sheet.
So the range for example is "H17:H74" and the value I want to multiply by is "D8"
Is this possible?
I've looked at another forum but it wasn't working when I wanted to define the set value as a cell.
I am trying to create a tracking spreadsheet in which modules need to move through certain phases. I have tabs for all appropriate phases. I would like to be able to select from a pull-down the current phase and have the spreadsheet automatically populate the appropriate tab. Ideally, I would like to be able to edit the process in any of the phases and have it backfill as well (ie if the status changes while in phase 3, I don't have to go back to phase 1 to change it, I can edit it in the phase 3 tab and phase 1 will automatically update).
Additionally, I would like it to calculate this constantly not just when the spreadsheet opens.
I have achieved this partially with formulas but I am finding that it is extremely slow and also doens't always update correctly. I also can't get the circular referencing to work so I don't have full capability using the formulas.
I receive a huge spreadsheet with account numbers in col A and names in col b with dates in col g and amounts in h. However if there is more than one date and amount for the same account number and name, the people/program who originated the data left those fields blank.
In order to sort the list by name by date, I have been manually copying the data from the row immediately above to the blank row(s). (L O N G process) So if I have ...
Public preValue As Variant 'Declares a variable to be used in both macros 'This is the first line for a macro that runs when a cell is changed. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub 'Limits the change to 1 cell only If Intersect(Target, Range("$A$1:$M$42")) Is Nothing Then Exit Sub Target.ClearComments 'Clears any existing comment Target.AddComment.Text Text:="Previous Value was " & preValue & Chr(10) & "Revised " & Format( Date, "mm-dd-yyyy") & Chr(10) & "By " & Environ("UserName") 'Adds a new comment with the text. CHR(10) is a return. End Sub
'This code sets the variable preValue when a cell is selected Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub 'Limits code to 1 cell If Intersect(Target, Range("$A$1:$M$42")) Is Nothing Then Exit Sub preValue = Target.Value 'Set the variable preValue to the selected cell's value End Sub
How do I take the changes made from the first work book and insert them in a cell on the second work book. Where in the code above do I Put this command.
What i would like to do is Hide Rows Based on Cell Value in Multiple Sheets & Multiple Columns and i need the macro to be fast
Sheet1 If the value in Range BE11:BE160 equals 1 don’t hide the row If the value is “0” or “ “ then hide the row Sheet2 If the value in Range BE11:BE160 equals 1 don’t hide the row if the value is “0” or “ “ then hide the row Sheet3 If the value in Range BE11:BE160 equals 1 don’t hide the row if the value is “0” or “ “ then hide the row Sheet4 If the value in Range O1:O150 equals 1 don’t hide the row if the value is “0” or “ “ then hide the row Sheet4 If the value in Range B1:B150 equals 1 don’t hide the row if the value is “0” or “ “ then hide the row
The following code works perfect but the "change" event is only triggered when working directly on intersect range. Tried using the "calculation" event but could not figure it out. This is what I want:
1) To replace the code provided below using the calculation event 2) To only trigger the event for the row(s) where the new value was generated, not for the whole "For Each" statement 3) To use one single code for all worksheets, instead of copying the code in every working worksheet on the workbook, if feasible 4) And I would like a "second alternative", where the user of the workbook can click on a button and trigger the event on every row on the workbook that has a non empty cell within the intersect range, assuming that the intersect range column is the same for all worksheets
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, d As Range, fc As Long, bc As Long, bf As Boolean Set d = Intersect(Range("I:I"), Target) If d Is Nothing Then Exit Sub For Each c In d Select Case UCase(c) Case "C" fc = 1: fb = True: bc = 4 Case "O" fc = 2: fb = True: bc = 3 Case "D" fc = 2: fb = True: bc = 46 Case "G" fc = 2: fb = True: bc = 5..................
I currently have an excel file set up which is refreshing imported data every minute from a server. This data is located on " sheet 1".
This data is the result of another system constantly monitoring (pulling data from) the process at my factory. It consists of temperatures, speeds and other settings.
When a temperature, speed or setting changes then it will be captured by the monitoring system and therefore my excel sheet will load it into the imported data within the next minute.
I would like to be able to capture the change in temperature, for example, if it goes into alarm and automatically send an email reporting this alarm. This alarm is captured in my imported data in a specific column with a 1. If it is out of alarm it is 0. There will not be a report of an item, at any one time, with both a 0 or 1... so there is only one case of any one monitored process.
I have a pivot table set up to filter all the uneeded data out and I currently refresh it manually to show the current status of all alarms. If an alarm occurs on the process, I can refresh my pivot table and it will be indicated with a 1 until it is refreshed again (and the alarm is gone).
So the question:
1. How can I refresh the pivot table automatically every x seconds? 2. How can I automatically send an email on the value change from 0 to 1 in case of an alarm?
I'm looking for a way to make a cell copy the fill color from an adjacent cell.
in my case, cell A1 is a dropdown menu cell, where each option has a different fill color (through conditional formatting). what i want is to make cell B1 copy the fill color from cell A1 automatically. it may be important the both cells have dropdown menus.
I've just started working on an FTE calculator and wish to populate a 12 month calendar with FTE depending on the start and finshed dates.
FTE Calculator non nursing.xlsx
I've attached the file. In Column D the user would select the month the staff start and in the Column E the month the staff will finish. I would like the fte that is calculated in Column Z then to populate in the 12 columns AB:AM (Jul to Jun) with corresponding month start and finish.
i have been using a code that "Joe Was" wrote on this forum the code search all cells for a word i type and then copy the rows where the word was found into a new sheet. my problem is that the code overwrites the rows, so only one line is shown even when the result box say it finds 10 results.
Public Sub FindText() Dim ws As Worksheet, Found As Range Dim myText As String, FirstAddress As String Dim AddressStr As String, foundNum As Integer myText = InputBox("Enter text to find") If myText = "" Then Exit Sub Worksheets("Søkeside").Cells.ClearContents For Each ws In ThisWorkbook.Worksheets......
Do foundNum = foundNum + 1 AddressStr = AddressStr & .Name & " " & Found.Address & vbCrLf Set Found = .UsedRange.FindNext(Found)
If Len(AddressStr) Then MsgBox "Found: """ & myText & """ " & foundNum & " times." & vbCr & _ AddressStr, vbOKOnly, myText & " found in these cells" Else: MsgBox "Unable to find " & myText & " in this workbook.", vbExclamation End If End Sub
I have a workbook with a hidden sheet ("Template") and a visible sheet("New Job"). I need code so when cell F1 in "New Job" is populated:
1-the sheet is renamed to the value of F1, 2-a new tab is made (a carbon copy of the hidden sheet "Template") 3-the new tab is named "New Tab" and marked as unhidden.
Public Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Name = Range("F1").Value End Sub
Function WorksheetExists(SheetName As String, _ Optional WhichBook As Workbook) As Boolean Dim WB As Workbook Set WB = IIf(WhichBook Is Nothing, ThisWorkbook, WhichBook) On Error Resume Next WorksheetExists = CBool(Len(WB.Worksheets(SheetName).Name) > 0) End Function..................
I am trying to implement a simple macro. Here is my Function Age(DOB) Age = Int((Now - DOB) / 365) End Function
Sub Macro1() Age (Selection) ActiveCell.Offset(0, 1).Select ****** End Sub
The function basically calculates the persons age using their date of birth. What I need to know is how to copy the result of the function into the cell next to the selected one. (The code above only selects the adjacent cell).
I have this code that I have been using fine until today when it just stop working for me... It's a simple copy and paste using VBA Code. The code finds the last row in Column A and copies the cell to L1. Below you will find the code I'm using and the line in yellow is where I'm getting the error.
This codes runs as soon as the worksheet opens and it has worked for over a year. I'm using MS Excel 2007. Please let me know what you guys think I have tried pretty much everything I can think of but i dont really know what i'm doing when it comes to VBA.
I have a table in excel with a group of headings. (Serial Number, Model, Description, Repsonsible and a few others) What I would like to do is be able to search every cell within the range of that table. When the user clicks search an inputbox is displayed and you can enter any search term you like. if there is a match within the cell range, i want the entire row (and the heading row always at the top) printed into a new sheet to display results. There may be a match in multiple rows, and id like evrery row displayed.
I have wind speeds and elevation data for 200 points. Each variable needs to go into a calculations spreadsheet on another worksheet. Once each variable gets put in the calculations automatically spit out the result. Now I need to use macro to automate this process so that it will repeat the steps I took for every line of data.
In English code terms, I want the Macro to say, take wind speed number and input in wind speed cell in calculations spreadsheet. Then take elevation number and input in calculations spreadsheet. Then take result number from calculations spreadsheet and input in cell. Then loop to go down the 200 lines of data. Is this possoble? Sorry for the non-technical wording.