Kolom waarde kopieeren indien....

[martijnsw]

Hallo,

Ik wil graag via een macro in excel de cellen uit bijv kolom A ( welke gevuld zijn )controleren of er aan bepaalde voorwaardes word voldaan.
Indien JA dan moeten die waardes in dezelfde regel van een andere kolom bijv B geplaatst worden.

Omdat het om verschillende voorwaarde gaat zal er via een case gewerkt moeten worden.

Heeft iemand een voorbeeld van hoe ik dit kan aanpakken?

Het grootste struikel blok voor mij is om aan te geven waar hij de waarde moet plakken.

Sub test()
Dim R As Range
Dim F As Range
Set R = Range("E3:E9")
Set F = Range("F3:F9")
For Each C In R
    Select Case C.Value
    Case 1
        C.F.Value = "OK" 'Hier weet ik niet hoe ik het moet aan geven welke cell het moet worden.
                                     'Als Bijv E3 1 is moet F3 ook 1 worden. Als E3 3 is moet F3 leeg blijven.
    Case 2
        C.F.Value = "NOTOK"
        End Select
    Next
End Sub

Alvast bedankt,
M

 

[HSV]

Lukt het hiermee.

Sub test()
    Dim c As Range
For Each c In [E3:E9]
      If c = 1 Then c.Offset(, 1) = c
   Next
End Sub

 

[Warme bakkertje]

Waar is het voorbeeld ???

Sub test()
For Each cl In [E3:E9]
    cl.Offset(, 1) = IIf(cl.Value = 1, 1, "")
Next
End Sub