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

Move date out one month or year
Use =EDATE(A2,1) for one month later. Use EDATE(A2,12) for one year later.
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,215,949
Messages
6,127,877
Members
449,410
Latest member
adunn_23

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