• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Oplossing voor SELECT CASE

Status
Niet open voor verdere reacties.
A

AD1957

Verenigingslid
Lid geworden
27 feb 2016
Berichten
1.990
Beste forumleden,

Voor probleemstelling zie de omschrijving in het voorbeeldbestand.
 

Bijlagen

  • korting.xlsb
    22,2 KB · Weergaven: 29
Gooi die Worksheet change code weg,
Plaats al jouw code achter de knop
Ben niet zo'n voorstander van werken met Selection
aanzetje:
Code: 
Private Sub CommandButton1_Click() 'wijzigen korting van de selectie
If Selection.Column = 6 And Selection.Row > 12 Then
    Selection.Value = [O14].Value
        For Each cl In Selection
            cl.Offset(, 1).Value = cl.Offset(, -1).Value * cl.Offset(, -2).Value - (cl.Value * cl.Offset(, -1).Value * cl.Offset(, -2).Value) 'verrekenen korting voor klant
        Next
End If
End Sub
 
Hoi Eric,
Hiermee kan ik in ieder geval verder, bedankt
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan