Als code is "d" dan naar kolom AA

[margaretha54]

Hallo
In bijgevoegd document kan iedere maand in de kolommen C t/m V een code ingevuld worden.
Indien de code "d" (kleine letter !!) is moet er automatisch overgesprongen worden naar kolom AA in diezelfde rij zodat daar een opmerking geplaatst kan worden.
Let wel: de code "d" kan meerdere keren gebruikt worden in diezelfde rij.

Ieder blad is beveiligd maar er zit geen wachtwoord op (mocht het nodig zijn de beveiliging er voor het VBA tijdelijk af te halen).

Als iemand de oplossing heeft, deze graag inbouwen want ik heb volstrekt geen kennis van VBA.
Graag even opletten of misschien iemand al een oplossing ingebouwd heeft.

Alvast bedankt!!

Groetjes,
Margo

 

[Joske2000]

Goedemorgen Margo,

Plak onderstaande code achter ieder werkblad.

Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
    If Intersect(Target, Range("C4:V7")) Is Nothing Then Exit Sub
    If Target = "d" Then
        Cells(i, 27).Select
    End If
End Sub

Pas wel even de range (nu C4 tot V7) aan, zodat de volledige range wordt gebruikt.

Gr,

Joske

 

[margaretha54]

Ha goedemorgen Joske,
Ik ken geen VBA dus ik heb geen idee met wat je bedoelt met "plak achter ieder werkblad".
Ik begrijp wel, denk ik, dat je met de Range het hele bereik bedoelt waar de codes ingevuld dienen te worden.
Kun je mij op weg helpen?

Groetjes,
Margo

 

[edmoor]

Een iets aangepaste versie van wat Joske zei:

Open je document en druk vervolgens op de toetscombinatie ALT+F11
Hiermee kom je in de VBA editor.
Dubbelklik nu aan de linkerkant op ThisWorkbook (Zie pijl)


Plaats nu in het grote witte vlak de volgende code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    i = Target.Row
    If Intersect(Target, Range("C4:V7")) Is Nothing Then Exit Sub
    If Target = "d" Then
        Cells(i, 27).Select
    End If
End Sub

Het werkt nu op ieder werkblad.
Sla het document op als document met macro's (.xlsm)

 

[margaretha54]

Hallo Joske en Edmoor
Hartstikke bedankt!! Het werkt perfect.
Nog een hele fijne dag en tot later :love: