Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Fout met validatie  (gelezen 1587 keer)

0 leden en 1 gast bekijken dit topic.

Offline tonnie

  • Volledig lid
  • **
  • Berichten: 104
  • Geslacht: Man
  • Oplossing.be
Fout met validatie
« Gepost op: 09 maart 2023, 19:23:35 »
Goede avond allen,

in het voorbeeld heb ik een vervelend dingetje waar ik zo 123 geen oplossing voor heb.
Als ik in kolom A op een validatie klik, zie ik links bovenin ook de validatie verschijnen?
Maar ik wil ook de application on key blijven gebruiken.

Hoe kan ik dit oplossen?

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Fout met validatie
« Reactie #1 Gepost op: 10 maart 2023, 09:46:58 »
Hallo tonnie,

De "~" lijkt mij niet de meest interessante keuze, want daar gebruik je 2 toetsen voor. In jouw plaats zou ik daar liever een F-toets voor gebruiken, bv.:
Application.OnKey "{F1}", "box"
Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline tonnie

  • Volledig lid
  • **
  • Berichten: 104
  • Geslacht: Man
  • Oplossing.be
Re: Fout met validatie
« Reactie #2 Gepost op: 10 maart 2023, 10:17:44 »
Hoi Molly,

Dat lost nog niet dat validatie probleempje op.
Als ik een keuze maak zie ik 2 x het validatie resultaat oplichten, een keer in de cel zelf en een keer links bovenaan.
Ook als ik een F1 toets gebruik voor de Application.OnKey.

Als ik de hele Application.OnKey verwijder gaat het wel gewoon zoal het moet. Maar die kan ik weer niet missen.

Grt
Tonnie

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Fout met validatie
« Reactie #3 Gepost op: 10 maart 2023, 10:28:15 »
Hallo tonnie,

Dan zal je
Citaat
Als ik een keuze maak zie ik 2 x het validatie resultaat oplichten, een keer in de cel zelf en een keer links bovenaan.
toch eens duidelijker moeten uitleggen (nog beter: een printscreen toevoegen) want ik zie niets raars.

Mvg,
Molly

Edit: zomaar een losse gedachte er bovenop: om een macro uit te voeren gaat op een opdrachtknop klikken m.i. even snel als een toets indrukken :-X
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline tonnie

  • Volledig lid
  • **
  • Berichten: 104
  • Geslacht: Man
  • Oplossing.be
Re: Fout met validatie
« Reactie #4 Gepost op: 10 maart 2023, 10:47:58 »
Voorbeeld

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Fout met validatie
« Reactie #5 Gepost op: 10 maart 2023, 10:55:19 »
Dat kan ik bij mij niet reproduceren en kan er dus ook niets zinnigs meer over zeggen...
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Fout met validatie
« Reactie #6 Gepost op: 10 maart 2023, 11:15:41 »
Dat kan ik bij mij niet reproduceren en kan er dus ook niets zinnigs meer over zeggen...
ik krijg dit wel degelijk gereproduceerd.....
wat bij mij wél raar is : van zodra ik in cel A10 een keuze maak , mijn "numlock" wordt uitgeschakeld , mijn numeriek toetsenbordgedeelte ?
Mvg,

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Fout met validatie
« Reactie #7 Gepost op: 10 maart 2023, 14:16:54 »
Hallo Arnold,

Ik heb nog steeds geen idee waarom ook bij jou dat vreemde fenomeen optreedt, maar over je NumLock kan ik misschien wel iets verduidelijken.
"Sendkeys" komt namelijk nogal geregeld neer op miserie zoeken, dus zelf maak ik er liever geen gebruik van.
Zie maar wat ik nog gevonden heb:
SendKeys is messing with my NumLock key

Mvg,
Molly

En nog eentje, specifiek over Excel: How to automatically expand drop-down validation list
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline tonnie

  • Volledig lid
  • **
  • Berichten: 104
  • Geslacht: Man
  • Oplossing.be
Re: Fout met validatie
« Reactie #8 Gepost op: 10 maart 2023, 16:19:31 »
Interessant stukje Molly, ik dacht al dat ik spoken zag.

Maar als ik de Application.OnKey eruit haal, heb ik nog steeds die validatie bovenaan. Het lijkt wel of hij die ook in de war heeft gemaakt.

Ha ha vreemde situatie.

Offline tonnie

  • Volledig lid
  • **
  • Berichten: 104
  • Geslacht: Man
  • Oplossing.be
Re: Fout met validatie
« Reactie #9 Gepost op: 10 maart 2023, 16:25:28 »
ik krijg dit wel degelijk gereproduceerd.....
wat bij mij wél raar is : van zodra ik in cel A10 een keuze maak , mijn "numlock" wordt uitgeschakeld , mijn numeriek toetsenbordgedeelte ?
Mvg,
Bij mij doet hij dat ook, maar als ik numlock weer aanzet lukt dat geen tweede keer meer.
Het lijkt wel of hij dat alleen maar doet bij het openen van het blad.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Fout met validatie
« Reactie #10 Gepost op: 10 maart 2023, 16:29:19 »
Hallo tonnie,

Wat de impact op NumLock betreft, die wordt niet veroorzaakt door OnKey maar wel door SendKeys.
Tussen de buien door had ik toch nog even verder gekeken, eerder bij wijze van amusement.
Die bug (want dat is het) kan je omzeilen door SendKeys niet rechtstreeks door vba ta laten uitvoeren, maar vanuit je Windows.
Die ene regel kan dan worden
If Target.Validation.Type = 3 Then CreateObject("wscript.shell").SendKeys "%{down}"
Nu ben ik wel heel benieuwd of daarmee ook het linksbovenprobleem :D zal verdwijnen (spijtig dat ik het zelf niet kan proberen, zal misschien aan de Office-versie liggen).

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline tonnie

  • Volledig lid
  • **
  • Berichten: 104
  • Geslacht: Man
  • Oplossing.be
Re: Fout met validatie
« Reactie #11 Gepost op: 10 maart 2023, 16:34:20 »
Hoi Molly,

zo bedoel je?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
    If Not Intersect(Target, Range("E3:E60")) Is Nothing Then

   
        Application.OnKey "~", "box"
    Else
       Application.OnKey "~"
    End If
       On Error GoTo TK
    ''If Target.Validation.Type = 3 Then SendKeys "%{down}"
        If Target.Validation.Type = 3 Then CreateObject("wscript.shell").SendKeys "%{down}"

TK:
End Sub

Hij doet het zo nog steeds.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Fout met validatie
« Reactie #12 Gepost op: 10 maart 2023, 16:48:51 »
Inderdaad. Ik mag toch aannemen dat hij dan in elk geval niet meer prutst met NumLock ?
Ik zie ook nog steeds "~" bij je OnKey staan, werkt dat bij jou? Ik kan daar allerlei toetsen voor gebruiken, behalve degene die je in combinatie met AltGr moet gebruiken.
Als het bij jou gaat, des te beter natuurlijk!

En je andere probleem, ik kan nog één iets proberen, hier staat nog ergens een pc met een oudere Windows, misschien krijg ik daar wel hetzelfde fenomeen. En anders gooi ik gewoon de handdoek in de ring :D

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline tonnie

  • Volledig lid
  • **
  • Berichten: 104
  • Geslacht: Man
  • Oplossing.be
Re: Fout met validatie
« Reactie #13 Gepost op: 10 maart 2023, 16:59:25 »
Hoi Molly,

Ja dat numlock is ermee getakeld  ;D
En die "~" werkt gewoon.

iig bedankt voor de info en moeite, wellicht vinden we nog een oplossing. Anders laat ik hem wel weg. Het was wel handig dat je alle validatie ziet zonder op het puntje te klikken, maar op de gewone manier kan ook.

Grt
Tonnie

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Fout met validatie
« Reactie #14 Gepost op: 10 maart 2023, 17:15:25 »
Tja Tonnie, aan goede wil zal het hier niet liggen, ik heb ondertussen op de andere pc geprobeerd (Office 2007) en alles werkt daar 100% zoals ik wil, en dus zoals met mijn Office 2019.
"Over en sluiten" dan maar.

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

 


www.combell.com