Ga naar inhoud

ToLa

Lid
  • Aantal items

    1
  • Registratiedatum

  • Laatst bezocht

Recente bezoekers van dit profiel

De recente bezoekers block is uitgeschakeld en zal niet meer getoond worden aan gebruikers.

ToLa's prestaties

  1. ToLa

    VBA Beep 64 bit

    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
×
×
  • Nieuwe aanmaken...