Beste pc freaks,
Ik heb een probleem met de beepfunctie. Deze werkte perfect op mijn oude pc (32bot), maar niet op de nieuwe (64bit).
Aanpassing gedaan in vba om deze overgang van 32 naar 64 te maken.
Waarom werkt dezeonderstaande vba niet?
Graag respons aub.
___________________
#If Win64 Then
Private Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#Else
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If
Dim oldValue
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Set KeyCells = Range("A38")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If oldValue = "" And KeyCells <> "" Then
Beep 900, 500
Beep 900, 500
End If
End If
On Error Resume Next
Set KeyCells = Range("A40")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If oldValue = "" And KeyCells <> "" Then
Beep 900, 500
End If
End If
End Sub
