there is an alert in my work sheet and i want to update it, but i do'nt know how to open the alert code window.
i know its very basic thing but i have to work with vba and excel as its my job requirement
I just discovered VBA coding today and was wondering if I could use it as an audio alert. I found a couple examples online but don’t understand the coding language of excel. I have a feed link from my trading platform to excel that feeds in live data. What I would like to do is have an alert for when Range ("C4").select is >=1000 Alert Ring.wav and when Range ("C4").select is <=-1000 Alert Chimes.wav.
View 5 Replies View RelatedI have a worksheet that has a sent date and expected delivery date I need create a macro that will alert me if today's date is within 5 days of expected delivery date.
View 14 Replies View RelatedI need to compare the date from the user input and the date listed on excel. How can I compare it? Is it correct? lngCmp = Val( Cells(I, 31))
Dim lngBegin As Long, lngEnd As Long, lngCmp As Date, lngResults As Long
lngBegin = 9 'beggining of data
lngEnd = 232 'end of data
lngCmp = InputBox("Please enter the date", "Begining of the week")
Lngcmp1 = DateAdd("d", 1, lngCmp)
lngCmp2 = DateAdd("d", 2, lngCmp)
lngCmp3 = DateAdd("d", 3, lngCmp)
lngCmp4 = DateAdd("d", 4, lngCmp)
lngCmp5 = DateAdd("d", 5, lngCmp)
'lngCmp1 = lngCmp + 1
'lngCmp2 = lngCmp + 2
'lngCmp3 = lngCmp + 3
'lngCmp4 = lngCmp + 4
'lngCmp5 = lngCmp + 5
lngResults = 0
lngResults1 = 0
lngResults2 = 0..................................
Each month I get a report that I process using a macro. The problem is that each month the name of the file changes and is different. When I run the macro and it crashes I have to de-bug by going through the code to change all references to the file name from the the previos run and change to the latest file name and then re-run the macro. There must be a better way.
I would like to learn the code that sees the open book and then refers to it for the run.
What is the best way to do this?
I have a worksheet with various information contained in each row and using up to columns M. Each row represents a new product and new products/rows are added weekly. In columns H is the date which is formatted like "*14/03/2007" and displays as that.
What i want to do is when the 11 months have past since the date in the cell i would like the cell colour to change to YELLOW. When 12 months have past then i need it to change to RED.
Example:
Date in cell is 18/05/2007
When date reaches 18/04/2008 i want the cell to change to YELLOW
When date reaches 18/05/2008 i want the cell to change to RED
I would like the code to apply to all cells in column J.
Book1.xlsx
In the attachment you will see I have two tabes called License-Equanet and License-Dell, on each row i show an expiry date.
The first sheet is called 'Due to Expire'. One month before an expiry date is reached in the licenses tab I need the information in that row to appear in the 'due to expire' tab. This will then alert me one month prior to the license expiring.
I need to compare three cells of random dates shown in Column E, F,& G with Row's H5:AK5, H7:AK7, H9:AK7 (the Dates to these rows is Static on row H3:AK3.) EX: ROW 5 has Start Date, End Date (1) and End Date (2). Compare Cell H3 between Start Date & End Date (1). If H3 falls between or equal to Start and End Date(1) then highlight cell H5. Proceed till AK3 (higlighting only the cells H5:AK5). Then compare cell H3 between or equal to End Date (1) and End Date (2) (higlighting only the cells H5:AK5). Then do the same for ROW 7 and ROW 9.
To make things a bit more difficult I need to have " WK#" in Row 14 (these WK# is on another tab called "Task" of the workbook) needs to be displayed in Row's H4:AK4, H6:AK6, & H8:AK8. EX: Compare Date in D15 between or equal to Start Date & End Date (1) then display Wk# in D14 in H4. Continue till all dates in
D15:Z15 are compared to Start Date & End Date (1) and WK#'s in Row D14:Z14 are inputted if applicable in Row H4:AK4, H6:AK6, H8:AK8. I hope this is not confusing. I can't seem to use the upload option so here is alink to download a jpg of the sheet
way to have the vehicle registration date compared to todays date and have it return either due next month, due or over due.
Todays date is in format month/day/year, registration is only by month/year. Todays date is in fixed location in worksheet updated by function Today()
Basically a formula that resembles =If(registration date < todays date, overdue, If( registration date = todays date, due, If(registration date = todays date+1month, next month, If( registration date > todays date + 1 month, 0))))
With the expiry date as currently set, the code should show the second message box but it shows the first instead.
Sub datechange()
Dim expiry As Date
Dim now As Date
'This line sets the expiry date as 1/5/2006
expiry = DateSerial(2006, 5, 1)
If now < expiry Then
MsgBox "Your subscription will expire in May 2007"
Else
MsgBox "Your subscription has expired"
End If
End Sub
I have two tables (sheets) that I am working with. One has only the date and the other has date and time in the same column. Here are examples:
Date
Count
8/22/2014
8/23/2014
8/24/2014
Date
Data
8/22/2014 20:05
1
[Code]...
I need to count all of the entries for each day. If I use the following formula it returns a zero because the one sheet only uses date while the other includes time as well:
[Code] ......
However, if I go to Sheet2, insert a new column and use the follow formula to only pull the date from the date/time cell.
[Code] .....
(I drag this down so that each row now has a value with only the date value in it), and compare against this new column, it works like a charm.
However, my goal is to be able to not create this additional column and just add the INT formula into the COUNTIF formula. For example, if I try doing this:
[Code] ......
I get a nondiscript formula error.
How I can compare the date column to the date/time column without having to create a new column on sheet2 using the INT formula?
Attached File : temp.xlsx‎
I want to have a new macro/button to redo the chart cells based on the dates in cols T and U (abt 400 entries). T has the start date and U has the end date.
Row 9 - X9: CJ9 have dates for about 10 months (weekdays only)
Column J have either of these two values: A or B
Column C has either of these two values: C or blank
I would envisage it going through each row, checking:
If date at top of that col was between the dates in cols T & U
then
if col J = 'A' then set cell to black block
else if col J = 'B'
then
if col C = C (closed) then set cell to red block
else set cell to blue block
I have this It compares a date from a listbox(myTime) to the date on a sheet
If y have my mouse above the code, they look like they are the same value
But it evaluates to false?? If CDate(rngFind. Offset(0, 1)) = CDate(myTime) Then...do something or could this be the best solution:
If timevalue(CDate(rngFind.Offset(0, 1))) = timevalue(CDate(myTime))Then...do something
I'm looking for a formula which compare total sales or customer count by date and It should automatically get updated daily.
For an example In my historic Data I have details of the sales from 1st to 31st of December 2012. Also I'm updating the present details day by day. Is it possible to compare the total sales from 1st to 7th of december 2012 to the total sales from 1st to 7th of 2013 automatically and then tomorrow it will compare from 1st to 8th 2012 to 1st to 8th in 2013 and will go on until the end of the month?
I have problem comparing dates in two columns. In these columns, with dates, there can be instead of date letter "X". When I try to compare dates I don't get good results. I have to see that date in column P has been before date in column Q (example 22.02.2012 (P), 23.02.2012(Q), OK).
Code:
Sub test()
For Each oneCell In Range("Q2:Q60001")
Select Case oneCell.Value
Case Is "X"
If oneCell.Offset(0, -1) "X" Then
[Code] ........
I have two columns, salesman and date. This workbook tracks quotes by salesman. I need to know how many quotes for each salesman by the month. So what I need to know is how quotes salesman 'a' had in January and February and so on. I have several worksheets in this workbook that are all formatted the same.
View 9 Replies View RelatedI get a downloaded report from one of my application. Two columns have date and time data. I need to compare these two columns (subtract) and come up with a value in another column next to it to do some analysis on an ongoing basis.
So I know how to compare date and time in two cells but the problem I have is second set of date / time have other text mixed with it and there is some character that Find/Replace can not find (it looks like the "pipe" | character) and I can't replace or delete that character. Additionally when I click on that cell (B1 in attachment) I don't see this pipe character in the top formula section (fx) but I do see this character in the cell itself.
how I can either get rid of this character or extract just the date / time information from cell B1 to be able to compare cell A1 easily?
Finding nearest date(others1-5) compared to Column C's dates(birthday).
Criteria
--------
1. must not be after column C's dates
2. must be at least 4 days apart
attached comments in spreadsheet.
Date Example.xlsx
I am trying to compare a row of dates (row 1) and need to compare to today and write future under dates in the future.
I am doing this in VBA, it is part of a bigger macro. This is the outcome I am looking for:
1/1/20142/1/20143/1/20144/1/20145/1/20146/1/20147/1/20148/1/2014
FutureFutureFutureFuture
I have another problem with my previous file that I need to finish. Because I want to make it clear I'll attach the files and pictures before the middle, and what can be the end of this table.
View 9 Replies View RelatedI have a column of dates (B2:B1500) that I want to compare to a single date (A1).
If the dates in Column B are older than the date in A1 I want to delete the entire row.
I have two columns containing dates (Date1 and Date2). Date1 is like a long date and Date 2 is a short date. I need a macro to compare these two dates and delete rows where Date1 <> Date2. Please find attached the before and after file which also contains the date formats for these two dates.
View 8 Replies View RelatedIn my attachment I am trying to identify rows within Table 2 that do not fit in with Table 1. For example in Table 2, Row 16 has a Start Date of 17.11.2010 and an End Date of 13.11.2011 for ID number 151. This record has to be shown as "OK" because it fits into the date range of Row 103 of Table 1 i.e. Table 1 Row 103 has a Start Date of 01.01.2010 and an End Date of 28.02.2013 for ID 15. In other words the Start Date of Table 2 Row 16 is GE the Start date of Table 1 Row 103, and the End Date of Table 2 Row 16 is LE the End Date of the same Row 103 of Table 1, therefore this reocrd is OK.
Row 14 of Table 2 needs to be shown as "NOT OK" because it has a Start Date of 12.01.2013 and an End Date of 31.03.2013 for ID 15 and this doesn't fit any date range of any Row in Table 1 for ID 15.
I am trying to make a summary from a table showing the newest value available for a set of items(1,2,3,4), this is according to an investigation date the summary table shoul display only the values for the investigation date, but if there are no values for the investigation date, them should take the previous recent date from the investigation date, and if there is not value at all, then shown N/A
I am attaching the excel sheet for a better ilustration of the problem
I tryed a combination of formulas that I tooked from other threads but is not working properly.
I am trying to do a macro that looks to see if the date is different from one cell to another going down in rows. I got it to work until the cell is empty then it says the date dont match but I just want it to stop the loop. so it should go down a list check to see if the date is the same all the way down the list, stopping if cell is blank, if not give a message box, if it is the same stop.
Is As follows
Dim rowNum As Integer, colNum As Integer, currCell As Range
rowNum = ActiveCell.Row
colNum = ActiveCell.Column
rowNum = rowNum + 1
'get first cell
Set currCell = ActiveSheet.Cells(2, 3)
'loop while cell not empty
Do Until currCell.Value = " "
If currCell.Value = ActiveSheet.Cells(2, 3) Then
If currCell.Value = "" Then
End If
I would like to compare % difference between date range through pivot table
Date RangeProductAmt
1st weekABC1000
2nd WeekABC2000
3rd WeekABC1259
1st weekXYZ3000
2nd WeekXYZ4000
3rd WeekXYZ2500
How to plot a Pivot table to compare the % difference between 3rd Week Vs 2nd Week Vs 1 Week for each product through pivot table?
I would like to create a formula that compares a number in one cell to the dates I have displayed in two different cells. If true, then I want it to display the Currency value from another cell.
______A________B________C________D_____
|1| Due Date | Amount | 1/01/2007 | 1/15/2007
|2|___4________$98_______________________
A2 is the DAY it's due
B2 is the AMT that is due
I can create an IF...THEN statement where if A2 is >= C1 BUT less than D1 then the value is B2, BUT it only works if I change A2 to an actual date which means i have to change it every month...which would not help with forecasting future transactions. So in the example above, the value would be in C2 and not D2.
I have two identical web query's on the same sheet. One from column A to column I and the other one from column K to column S, and both have 404 rows. The one on the left (from column A to I) autorefreshes every 60 minutes and the one on the right (from column K to S) autorefreshes every 4 minutes. I want to subtract the numbers in column Q from column G and the ones in column R from column H, and in both cases if the result is bigger than 0 to place a timestamp in column Y(for Q-G), and in column Z (for R-H). I tried with NOW formula, but the timestamp changed every time the web query from the right autorefreshed, no matter of the result. I guess that I have to use VBA codes...but I'm not good at that .
View 9 Replies View Related1. I would like to be able to select a month from a drop down ( cell C4), and for Column B ('Cumulative Performance') to reflect the sum for each name between Jan and the month selected.
2. In Column D I would like to rank the relative position of the sum total; such that if I selected 'Dec', John would display '13' in D7, Anne '3' etc.
3. In Column E I would like to show by way of a coloured arrow (or even a smilie icon) the relative change in ranking of the sum totals evaluated for my chosen month with those calculated up until the previous month (e.g. for Anne, if I select June, the Jan to June total is 36 (rank 2 in the June total's), the May to Jan total for Anne is 32 (rank 1), therefore her relative rank movement between the June and May cumulatives moves down and cell E8 would show a red-down arrow (amber horizontal for no change and green up-arrow for an improvement in rank).
I am trying to add a sound alert to a junior athletics recording program. The date of the meetings is in column (A), results are entered in column (B) for a particular event, say 100m sprint. Column (C) & (D) contain formula that recognise if that athletes result is a personal best (PB) result or a club record (CR). I am after a code that will play a sound when a new PB or CR has been achieved. I have downloaded the sounds I want into the office media file. I am new to VB codes. Any suggestions?
View 14 Replies View Related
