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!
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.
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:.............
So i would like a message box to appear upon opening that asks the user "Are you sure this is the most recent copy of this workbook?"
Click Yes would simply close the message box and allow user to continue
Click No would close the workbook immediately without saving and also without prompting to save ( i have =TODAY() function within the workbook so the workbook will instantly be different from the current saved file and will for sure prompt the 'Exit without saving' warning box
Office 365 is my setup if that makes a difference.
What I need is two sets of VBA Code and 2 message boxes for the above scenario:
If Range C3:Last row contains a blank cell then Message Box ("WARNING: All items are not classified" refer too C6 and C8)
If Range C3:Last row contains "8528" or "9013" then Message Box ("WARNING: There is an FDA/FCC requirements for this file refer to C4 and C5 - create an Attachment from the scan folder and save as Attachment3-FDAFCC documents).
I need a VBA script that will allow an input either Text or Numerical and then search an entire workbook (5 sheets) and find it. It would be nice if it posted the information on the 1st sheet from where the macro will be run, Then I could use VLOOKUP and retrive the rest of the information.
I have a workbook with a ton of Purchase order Numbers, Vendors Name, Work Orders etc... and I have to search through them regulary. I have used the FIND button and it works, but when I try to record a macro with it I get stumped. Im Sure this is easy for you GURU's that program for a living, but for me, well.....Lets just say I am at a loss. I have tried this:
Sub FindPON() Dim MyPON As Variant MyPON = InputBox("Please enter your search criteria") On Error Resume Next Range("frmParts").Find(What:=MyPON, Lookat:=xlWhole).Activate End Sub
I do not want to use comments box or data validation
I want to use a macro
cells C14, C32, and C49 are drop down list
If user selects "MFRHTC" from drop down list in either one
I want a message box to pop up and end when user clicks the OK button
this is what I currently have but is NOT Working
If Not Application.Intersect(Range("C14, C32,C49"), Target) Is Nothing _ And Target.Count = 1 _ And Target.Select = "MFRHTC" Then Msg = "Units will provide the following in order to have ammunition Fed Ex to HTC's " & vbCrLf Msg = Msg & "" & vbCrLf Msg = Msg & " POC" & vbCrLf Msg = Msg & " Unit ship to Address" & vbCrLf Msg = Msg & " Phone Number" & vbCrLf Msg = Msg & "" & vbCrLf Msg = Msg & "" & vbCrLf Msg = Msg & "Input the required info in the Comments Box" MsgBox Msg, vbInformation, "FED EX AMMO INFO REQUIRED" End If End Sub
When a workbook is opened, is it possible to have a "welcome" message appear before the worksheets can be accessed?
I would like to create a "message" and two boxes that say "enter your name" and "enter your password". These will be dummy boxes, but the user wont know that
I have following code to pop up the message box, but it does not pop up itself, I have to run the macros evry time. Is there any solution.
All I want if in Cell "C20" has the message " Check your Margin" than the message box pop up and should have the message as defined in my below code. Also, is this possible that the message should come in one box.
Private Sub Find_Criteria() Dim i As Variant Dim FindRange As Range Set FindRange = Range("c10") For Each i In FindRange If i = "PLEASE CHECK YOUR MARGIN" Then MsgBox "a) Check Provisional Sum allowances and Discounts" MsgBox "b) Check with Brian if a base price review was required and missed" MsgBox "c) Check for double ups in Timberline" MsgBox "d) Check all big ticket items in Timberline ie. Trusses, bricks, plaster, paint and Site Works)" MsgBox "d) Check if any items were underpriced in the contract and provide feedback to Brian" MsgBox "e) Review and discuss any allowances with me." & " "
I've got a Macro that, when activated, allows the user to cancel a demand and highlight that row red when completed, here's the Sub Cancel_DMD() Dim datatoFind, sRemark As Variant Dim sheetCount As Integer Dim counter As Integer Dim currentSheet As Integer Dim searchRange As Variant currentSheet = ActiveSheet.Index datatoFind = InputBox("Demand Number To Cancel {(}Ensure correct Demand No. entered{)}:") If datatoFind = "" Then Exit Sub sheetCount = ActiveWorkbook.Sheets.Count
I also need to insert a MsgBox that pops up before exiting. The MsgBox needs to be in two stages, the first will ask "Have you contacted the Demands Clerk to cancel?" with "Yes" or "No" buttons. If "Yes" is clicked, then the macro completes and exits, if "No" is clicked, then the sencond stage will appear.
I am wanting a pop up box to appear when a certain value is reached in my worksheet.
My worksheet is a schedule of training, and we have the same columns duplicated over monthly tabs, i want a message to appear if a certain column named " Trainers" has reached 30. Would this be possible? I would like it to pop up with what cell it is that has reached this number.
