• 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.

VBA probleem

Status
Niet open voor verdere reacties.

wally1968

Gebruiker
Lid geworden
26 dec 2007
Berichten
132
ik heb een probleem met VBA
de uitleg en het probleem kan je lezen in de bijlage
ik hoop dat jullie mij hiermee kunnen helpen
 

Bijlagen

Dit is de boosdoener:

Code:
If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub

Een wijziging in kolom E sluit je daar al gelijk mee uit.

Wigi

P.S.: Graag in het vervolg een beschrijvende titel voor jouw topic nemen aub.
 
Ok goed om te weten maar hoe moet ik dit bestand nu veranderen om het toch te doen lukken. Ik ken eigenlijk helemaal niets van VBA
 
Zoek in de helpfunctie informatie over If... Then ... Else.

Of hier op het forum want dat komt zeer vaak voorbij.

Wigi
 
Bij de helpfunctie heb ik al eens gekeken maar daar raak ik helemaal niet wijs uit en hier op deze forum heb ik ook al eens uitgepluist maar zonder resultaat.
Ik begrijp van die codes die ze geven helemaal niets.
ik ben daar helemaal niet goed in
ik heb al meerdere problemen hier op het forum gezet en ben daar altijd al bij geholpen geweest.
maar hier geraak ik niet uit
 
Ik zou me dan toch maar eens een goed boek aanschaffen, want hoe kan je iets degelijk gebruiken en/of aanpassen als je niet weet waarover het gaat ?

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Or Target.Row = 1 Then Exit Sub
    If Target.Column = 2 Or Target.Column = 5 Then
        If Target.Value = 180 Then
            Select Case Left(Target.Offset(0, -1).Value, 1)
                Case "W": Range("G1").Value = Range("G1").Value + 1
                Case "D": Range("G2").Value = Range("G2").Value + 1
                Case "M": Range("G3").Value = Range("G3").Value + 1
                Case "P": Range("G4").Value = Range("G4").Value + 1
            End Select
        End If
    End If
End Sub

Mvg

Rudi
 
Bedankt voor deze reactie
het werkt
ik doe dit tussen de soep en de patatten.
ik heb geen tijd om dit zelf te leren uit een boek want ik zit met vrij zware opleidingen voor mijn werk
achteraf zal ik zeker een boek ofzo aanschaffen

mvg
Wally
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan