Highlight Duplicates with a keyboard long beep

[thomasr79]

Hi,

With my basic knowledge (if called that), I have a worksheet which uses:

VBA code for column A to enter the date and time automatically when data is entered in to column B.

Column B is read in from a barcode reader and font changes to red when a duplicate is read in.

Column C is blank and using conditional formatting fills the cell red when finds a duplicate.

However, I would like to:

Highlight the Duplicates the same as above but with a long keyboard beep. I don't think I can add the beep without VBA so could someone give me the full vba code to make the above happen?

Thanks in advance! this is by far the most useful excel site I found (as a novice)

 

[BrianB]

Method 1
I think you will find it easier to just put in multiple Beep lines. eg :-

Beep
Beep
Beep

Method 2
This is the API method, but it seems only to use the PC internal speaker.

Declare Function Beep Lib "kernel32" _
    (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'===============================
'- BEEP
'===============================
Sub MyBeep()
    '- Beep Frequency, Duration
       Beep 1500, 1000
End Sub
'================================

Method 3
There is an API method to enable a sound file to be played as used by Windows (eg. .wav files). This is faily complicated. As this plays any .wav file it can be used for music too.

Do a search for Private Declare Function PlaySound Lib "WINMM.DLL"