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
_____________
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
Bookmarks