OSCAR Bord 2

[gerrit123456789]

Ik heb nog een vraagje over dit bestand.

Een waarde op bepaalde in een bepaalde cel plaatsen als een andere cel aan een bepaalde voorwaarde voldoet.

Zou zou ik graag willen Als cel I1 een V is dat de waarde van cel D15 in cel A4 geplaatst wordt

Als cel I1 een L is dat de waarde van D15 in cel B4 geplaatst wordt.

En als laatste, als cel I1 een N is dat de waarde van D15 en cel C4 geplaatst wordt.

Wie helpt mij hiermee.

Bij voorbaat dank.

Gerrit


Bekijk bijlage OSCAR TK3 versie 2.xlsm

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "I1" And Not IsEmpty(Target) Then
Application.EnableEvents = False
   'range("a4").Resize(,3).ClearContents
   Range("a4").Offset(, Application.Match(Target, Array("V", "L", "N"), 0) - 1) = Range("d15").Value
 Application.EnableEvents = True
 End If
End Sub

 

[gerrit123456789]

Waar plaats ik deze macro?

 

[HSV]

In de module van het blad waar je cel I1 veranderd.

 

[gerrit123456789]

Als ik dan ieder uur een aantal in de cellen c7 t/m c14 plaats, dan telt hij het wel op in cel c15 maar past het niet aan in bijvoorbeeld cel a4.
Kan dat ook.

 

[HSV]

Dat kan ook.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c7:c14")) Is Nothing And Not IsEmpty(Range("i1")) Then
Application.EnableEvents = False
   'range("a4").Resize(,3).ClearContents
   Range("A4").Offset(, Application.Match(Range("i1"), Array("V", "L", "N"), 0) - 1) = Range("D15").Value
 Application.EnableEvents = True
 End If
End Sub

 

[gerrit123456789]

Dit is precies wat ik bedoel.

Mag ik je heel hartelijk bedanken voor je hulp.

Groet,

Gerrit

 

[HSV]

Graag gedaan Gerrit.