TimeStamp and Sound when condition meets

SlamberGamer

New Member
Joined
Jul 4, 2016
Messages
20
Hi guyz i have been google for days trying to find solution to put time-stamp and sound when condition meet.
i really hope all expert excel user here can help me.

This is what i want to do:

eg:
=IF((F9="SELL")*AND(H9="GOOD"),"SELL"&"",IF((F9="BUY")*AND(H9="GOOD"),"BUY"))

It will trigger time-stamp & sound for both condition

What i have tried:

Base on the time-stamp search in this forum i have found 1 command that will detect if cell changed but i will trigger only when i manually change the cell and not when the condition meet.

This is the command:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("N5:N32")) Is Nothing Then Exit Sub
Range("O" & Target.Row) = Now()
End Sub
 

Excel Facts

Create a Pivot Table on a Map
If your data has zip codes, postal codes, or city names, select the data and use Insert, 3D Map. (Found to right of chart icons).
another script that work.. but just cant make it work with conditional please help

first script:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$N$5" And Target.Value <> "" Then
Range("O5").Value = Date + Time
End If
If Target.Address = "$N$6" And Target.Value <> "" Then
Range("O6").Value = Date + Time
End If
If Target.Address = "$N$7" And Target.Value <> "" Then
Range("O7").Value = Date + Time
End If
If Target.Address = "$N$8" And Target.Value <> "" Then
Range("O8").Value = Date + Time
End If
If Target.Address = "$N$9" And Target.Value <> "" Then
Range("O10").Value = Date + Time
End If
If Target.Address = "$N$10" And Target.Value <> "" Then
Range("O11").Value = Date + Time
End If
If Target.Address = "$N$11" And Target.Value <> "" Then
Range("O12").Value = Date + Time
End If
If Target.Address = "$N$12" And Target.Value <> "" Then
Range("O13").Value = Date + Time
End If
If Target.Address = "$N$13" And Target.Value <> "" Then
Range("O14").Value = Date + Time
End If
If Target.Address = "$N$14" And Target.Value <> "" Then
Range("O15").Value = Date + Time
End If
If Target.Address = "$N$15" And Target.Value <> "" Then
Range("O16").Value = Date + Time
End If
If Target.Address = "$N$16" And Target.Value <> "" Then
Range("O17").Value = Date + Time
End If
If Target.Address = "$N$17" And Target.Value <> "" Then
Range("O18").Value = Date + Time
End If
If Target.Address = "$N$18" And Target.Value <> "" Then
Range("O19").Value = Date + Time
End If
If Target.Address = "$N$19" And Target.Value <> "" Then
Range("O20").Value = Date + Time
End If
If Target.Address = "$N$20" And Target.Value <> "" Then
Range("O21").Value = Date + Time
End If
If Target.Address = "$N$21" And Target.Value <> "" Then
Range("O22").Value = Date + Time
End If
If Target.Address = "$N$22" And Target.Value <> "" Then
Range("O23").Value = Date + Time
End If
If Target.Address = "$N$23" And Target.Value <> "" Then
Range("O24").Value = Date + Time
End If
If Target.Address = "$N$24" And Target.Value <> "" Then
Range("O25").Value = Date + Time
End If
If Target.Address = "$N$25" And Target.Value <> "" Then
Range("O26").Value = Date + Time
End If
If Target.Address = "$N$26" And Target.Value <> "" Then
Range("O27").Value = Date + Time
End If
If Target.Address = "$N$27" And Target.Value <> "" Then
Range("O28").Value = Date + Time
End If
If Target.Address = "$N$28" And Target.Value <> "" Then
Range("O29").Value = Date + Time
End If
If Target.Address = "$N$29" And Target.Value <> "" Then
Range("O30").Value = Date + Time
End If
If Target.Address = "$N$30" And Target.Value <> "" Then
Range("O31").Value = Date + Time
End If
If Target.Address = "$N$31" And Target.Value <> "" Then
Range("O32").Value = Date + Time
End If
If Target.Address = "$N$32" And Target.Value <> "" Then
Range("O33").Value = Date + Time
End If


End Sub
 
Upvote 0

Forum statistics

Threads
1,223,234
Messages
6,170,891
Members
452,366
Latest member
TePunaBloke

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top