Selectievakje Macro

[Marky76]

Besten,

In bijlage een bestandje, met selectievakjes waarbij een bedrag moet ingevuld worden in kolom D als het aangevinkt word.

VRAAG 1:

Als GS wordt aangevinkt dan moet in D2 = 37200 komen
Als GSW is aangevinkt dan moet in D2 = 37200 komen
Als GS &GSW is aangevinkt dan meot in D2 = 62000 komen.

Je kan er geen twee tegelijk aanvinken.

Als je het selectievinkje dan terug afvinkt, moet het bedrag terug gewist worden of
als je een ander vinkje aanvinkt mag de inhoud van Cel D met dat bedrag opgevuld worden.

De selecetievakjes kunnen 100 rijen lang worden of meer.


VRAAG 2:

Hoe centreer je de selectievakjes eenvoudig en hoe kopieer je ze eenvoudig
naar een volgende rij?


Groeten, Mark

 

[Marky76]

Besten,

Dit document wordt nu manueel ingevuld. Zou dit met select case kunnen opgelost worden?

Groeten, Mark.

 

[Marky76]

Men kan ook in een kolom de mogelijkheden GS, GWS en GSGWS zetten en dan met
validatie een keuzelijstje maken. En afhankelijk van de keuze komt er dan in de kolom bedrag het juiste bedrag. Zou denken dat je hier met selectcase kan werken, maar geraak er niet uit.

Groeten, Mark.

 

[Marky76]

Dit werkt nog niet, zitten nog fouten in, maar dit is de richting denk ik dat ik uit moet.




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim introw As Integer
Application.ScreenUpdating = False

If Target.Column = 7 And Target.Row > 2 Then

On Error Resume Next

Worksheets("Bofasoverzicht").Range("G3") = Target.Row

Select Case Target.Value
Case "GS"
Set introw = Range("H3") = 37200
Case "GSW"
Set introw = Range("H3") = 37200
Case "GSGSW"
Set introw = Range("H3") = 62000
End Select

Application.ScreenUpdating = True

End If
End Sub

 

[Demeter]

Ben ik nu abuis of zit je je eigen vraag te beantwoorden?

Toch een keer van de absinth af blijven!!!!

GRoet,
Ferenc

 

[Wigi]

Wie weet post hij zelf ook nog de antwoorden die anderen hem geven op volledig dezelfde vraag, maar op een ander forum: hier.

Wigi

 

[Marky76]

Vraag is opgelost op worksheet.nl