Gegevensvalidatie

[verluc]

Door het zoeken op dit forum, kwam ik tot een macro van Warme Bakkertje :

CODE][/CODE]Private Sub ComboBox1_Change()
Select Case ComboBox1.Text
Case "A"
Call test1
Case "B"
Call test2
Case Else
Call test3
End Select
End Sub

Deze macro kan ik toepassen in mijn project, zij het met volgende aanpassing :
het is bij mij een combobox doch mijn rubrieken staan in Gegevensvalidatie > Bron

Kan dit ook toegepast worden op mijn probleem.,

 

[danny147]

Beste verluc

Heb je soms een voorbeeldbestandje.
En wat wil je hier mee bereiken ?
Is gegevensvalidatie niet goed ?

Groetjes Danny. :thumb:

 

[verluc]

Beste Danny,

Omdat mijn programma zo is samengesteld dat alles op 1 blad staat.
De keuzemogelijkheid voor een bepaalde cel staat in gegevensvalidatie: Bron
In een bepaalde cel van mijn programma kan ik aldus kiezen tussen één van deze mogelijkheden door eenvoudige klik en de omschrijving komt in die cel te staan.
Onmiddelijk word de overeenstemmende macro uitgevoerd en het resultaat van deze macro
komt in een andere cel terecht.
Enig idee. ?

 

[HSV]

Misschien even proberen Verluc

Select Case Target.Address
     Case "A"
     Call test1
     Case "B"
     Call test2
     Case Else
     Call test3
End Select
End Sub

 

[verluc]

Sorry, maar evenmin met succes !

 

[HSV]

Ik heb dit geprobeerd met messageboxen, en werkt prima.
Even de code aanpassen naar jouw cases.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
  Select Case [A1].Value
         Case Is = "A"
     MsgBox "MOOI"
Case Is = "B"
     MsgBox "OK"
Case Else
     MsgBox "PRIMA"
End Select
End If
End Sub

Met in A1 de validatie.

 

[verluc]

Hello HSV

Heb enkele aanpassingen gedaan en bekom aldus de oplossing voor mijn probleem.

Zeer veel dank !!!!

 

[danny147]

Beste verluc

Hello HSV

Heb enkele aanpassingen gedaan en bekom aldus de oplossing voor mijn probleem.

Zeer veel dank !!!!

Kan je de aanpassingen hier plaatsen, zodat anderen hier ook iets aan hebben.

groetjes Danny. :thumb:

 

[verluc]

Hierbij mijn aangepaste macro :

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$J$26")) Is Nothing Then
  Select Case [$J$26].Value
         Case Is = "normale voorheffing"
     Call VoorheffingNormaal
         Case Is = "manuele voorheffing"
     Call VoorheffingBedrag
         Case Is = "geen voorheffing"
     Call VoorheffingGeen
   End Select
End If
End Sub