How Can I Popup A Msg Box When The Computed Sum Exceeds Certain Value
Sep 23, 2008
I have an excel, in which the user can input values and the sum will be computed for each column (i.e. =Sum (L2:L29)) . I want to alert the user when the computed sum exceeds a particular value, else it shud proceed.
It can also be done at while the save & close of the workbook.
My problem: get a cell to produce a pop up message when it exceeds a certain value and do not restrict the entry value? I tried Data - Validation but have had no luck. The details (much simplified) are these: I want to multiply B2 x A2 and if the answer exceeds $2499 have a pop up message appear. Is it possible to have the pop up ocurr while inputting data into B2 or only after "entering" or when B2 has been reselected. A B 1 qty unit cost 2 1 $1250
There is probably a simple solution to my problem that I am just not seeing because I cannot believe I'm the only one trying to pull out the number of hours after summing a column of times when the total exceeds 24 hrs. I have attached a sample spreadsheet which has columns for start time, end time and time used (ie end - start time) Originally when I totalled the column of time used, I got 20:27 hrs instead of the correct 44:27 hrs. After doing some research I found out that I had to create a custom format of [h]:mm to get it show beyond 24 hrs. However, now that I can see the 44 hrs and 27 min as 44:27, I cannot seem to pull out the 44 hrs to use it in a calculation of multiplying total time against a charging rate ($/hr) to get a total cost in $. The sum using [h]:mm is in cell F68 and I was hoping to convert this [h]:mm into a number of hrs as a decimal (ie 44:27 to 44.45 hr) by =((HOUR(F68)+MINUTE(F68)/60)) but I get back to the 20 hrs of a h:mm format.
I was originally surprised that I couldn't sum a column of times and get the total time without creating a special format. But I am really surprised that it isn't intuitive to pull out the correct number of hours when it exceeds 24 hrs. I am sure that it's simple because it seems something that a lot of people would have going on in accounting type of spreadsheets. I am going to be doing a lot of summing times coming up and would appreciate suggestions. This forum helped me once before and I hope for the same results!
If I already have lets say 90% on B9 and I try to enter 15% on D9 it wont allow me because of the total being over 100%, but how can I have an alert to say Please enter 10% or less.
Or
If I already have lets say 50% on B9 and I try to enter 20% on D9 and I try to enter 50% F9 it wont allow me because of the total being over 100%, but how can I have an alert to say Please enter 70% or less (the sum of B9+D9).
Can this be done using VBA?
I've attached the file that has the data validation.
I get my website's log files in a raw text format, delimited with hyphens. That much I can deal with.
What I am having problems with is the fact that there are over 65,536 lines of data per log file (where each line represents one " event" in the history of the site), and therefore Exel is unable to import the entire log.
column A4-A9 equals the sum on A10. What I am trying to do is put a formula in H10 that will start out at 35 from no addition, but if cells A10-G10 go over 22 I want it to subtract from H10.
My worksheet ends at cell AG650, and Control-End takes me there. I have deleted all columns and rows beyond that, saved, closed and re-opened.
But the scroll bar takes me to cell AG924500 -- more than 900,000 rows too far...
I tried setting the Scrollarea in VBA and got some unexpected results.
Private Sub Worksheet_Activate() ScrollArea = "A1:AG700" End Sub
The elevator bar did not shrink at all, and the visible portion of the worksheet reacted inconsistently, sometimes correctly, sometimes seeming frozen or stopping short of the 700 rows specified, which makes me think there's an Excel bug involved.
I've also tried Hiding the unused rows but get this message:
"Cannot shift objects off the sheet"
So I've gone into VBA and removed all objects using this code:
ActiveSheet.Shapes.SelectAll Selection.Cut
But with no change at all...
I've also applied several commercial 'Excel tuning' programs, to no avail (FastExcel and CodeCleaner)
I have 4 columns wherein the details are somewhat given below. Is there any way, wherein the figures under the column "No. of times" can be circled if it goes above 3.
Sheet1 CDEF19DateTimeMin.No. of times20Apr-0821Wed - 09-Apr-20082:42 & 2:494 & 23222Thu - 10-Apr-200803:215123Fri - 11-Apr-200810:27, 7:24 p.m., 7:39 & 7:401, 8, 1 & 12424Tue - 15-Apr-200810:26, 10:31, 10:32, 11:26 & 11:306, 2, 4, 4, 25 Excel tables to the web >> Excel Jeanie HTML 4
The user enters data into Column E on Sheet1 and i want my code to display a pop-up box when a cell's value exceeds 500. I've tried the two codes below which i thought would work as Excel didn't highlight any breaks when i wrote the code, but no pop-up box is being generated when values > 500.
ATTEMPT 1:
Private Sub Threshold_Check2(ByVal Target As range) Dim cell As range
For Each cell In ActiveSheet.UsedRange.Columns(5).Cells If cell.Value > 500 Then MsgBox "Value within 15% of Threshold" Next cell End Sub
ATTEMPT 2:
Sub Threshold_Check(ByVal Target As range) Set Target = range("E1:E150") For Each cell In range("E1:E150") If Target.Value > 500# Then MsgBox "Value within 15% of Threshold" End If End Sub
Apart from the obvious restriction imposed by the virtual size of a spreadsheet,are there any other factors that would induce a problem with size. I have a set of data with 3000 rows and 15 columns. I would like to organise this using 5 of the data columns as rows in the pivot, 1 as column and 1 as data.
I have a number of sets of data which work perfectly, but one set, the largest, fails when I attempt to add the data field.
I had more than 7 nested if statements so I attempted to formulate the named ranged formula. My 2 ranges are as follows: LDD1=IF(MONTH(P1)=MONTH(F2),C5-F5,IF(MONTH(P1)=MONTH(G2),C5-G5,IF(MONTH(P1)=MONTH(H2),C5-H5,IF(MONTH(P1)=MONTH(I2),C5-I5,IF(MONTH(P1)=MONTH(J2),C5-J5,IF(MONTH(P1)-MONTH(K2),C5-K5,IF(MONTH(P1)=MONTH(L2),C5-L5))))))) LDD2=IF(MONTH(P1)=MONTH(L2),C5-L5,IF(MONTH(P1)=MONTH(M2),C5-M5,IF(MONTH(P1)=MONTH(N2),C5-N5,IF(MONTH(P1)=MONTH(O2),C5-O5,IF(MONTH(P1)=MONTH(P2),C5-P5,IF(MONTH(P1)-MONTH(Q2),C5-Q5))))))
Basically what it's doing is comparing the current month with the month in the column heading and calculating appropriately. However, when i input the if statement (=if(LDD1,LDD1,LDD2), i get an error saying that it's an inconsistent formula and the result that it gives is wrong, too. Problem cell is e5
I wrote a Macro that was running up to now searching for information. Now the text file is bigger than the 65536 limit in Excel. How can you import the .txt file over two or more Sheets using a Macro?
Im using Excel 2010 and want to make a formula that will High light the number when it exceeds the past 30 days average. My information is listed vertically in row F..
I'm sure this can be done but I don't think I have the formula correct. What I am trying to do is add each day's total while displaying a positive number if the total exceeds 6000.
I've set up a filing system which saves sheets/ workbooks based on the value of a cell - Range("B1") Everything works great apart from when ThisFile String length exceeds 31 characters which you may know is the max useable character length for a sheet name - I had no idea! 8-0
Is there a way i can check if string length exceeds 31 characters then, if it does, shorten it to 31 characters?
i have managed to pull together some code that will deny people adding data into cells if they have 5 of the same entry. the entries are entered in a range and are matched against a single cell outside of the range. heres the
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim greycell As Range, i As Long If Not Intersect(Target, Me.[grey]) Is Nothing Then Application.EnableEvents = False For Each greycell In Target If WorksheetFunction. CountIf(Me.[grey], greycell.Value) > 5 Then i = greycell.Interior.ColorIndex greycell.Interior.ColorIndex = 3 'red greycell.Select MsgBox "no cell entry past 5", vbCritical, "ERROR" greycell.ClearContents: greycell.Interior.ColorIndex = i End If Next Application.EnableEvents = True End If End Sub
what i need with is adapting this code to match two ranges as i cant use the worksheet_change event twice. i need it to be as if they were seperate events but are merged together. eg:.............
In cell a3 user selects yes or no. Then in cell b3, if they selected yes for a3, a pop up box should appear which asks for a value (1-100), and if they selected no for a3, then b3 automatically becomes zero. How can I do this.
I'm trying to write a code (and I have little to no knowledge of VBA!) so that when a line is inserted onto any worksheet in the workbook a msgbox appears....
Trying to get it myself I created this- it's probably COMPLETELY wrong, like I've mentioned I have little to no knowledge and just using websites/other codes I've seen to put this together... o.O
How do you create a pop-up box that opens every time a specific worksheet is activated that asks "What was the first month of activity?" The month that is entered needs to populate in Cell "A7". I also want the 11 months following the answer to the above pop up box to populate in cells A8-A18.
I'd like to have a warning message pop up if the value of column AF is 3 or less.
Column AF is counting entries in columns E:I by using the formula
=COUNTBLANK(E1:I1)
to create the value
A value of 5 is OK (no data in E to I), and 4 is also fine (just one entry in E to I) A value of 3 or less, indicating more than one column in E to I having data, needs to display the message. Presently I have a conditional format on another column to display red background when AF is 3 or less, but it's a little ambiguous, so a message would be neater!
I like to know if this can be done. The entry of data for cell A3 is from a pre-determined list. I like to create a Userform to allow the user to select from this form. the idea is to have this form popup whenever cell A3 is selected.
Codes are entered manually only in Column A starting at A1..A10000+ ranges.
As Unique codes are entered ie. 1234 or 2345 or 3456 in the next empty cell down, I need a specific popup message for each of the three codes instructing the user what to do next.
I script that on open would pop up asking if a sync was done with an option for yes or no. If yes is pressed then it would just open, if no selected it would give a message "must sync before use" and close the workbook.
I do not want this message to pop up when other spreadsheets are open when this one is still open so im guessing private workbook_open
I am designing a program which basically calls another program for all dates back to a specified time. Certain dates will not have data and there will be a pop-up message saying something along those lines.
What I want is a way for VBA to "know" there has been an error message (so I can set a boolean to true or false so I can do an if tree) and then also a way to click "OK" to proceed through the error message.