Cells aanpassen

[frans kooijman]

Hi,

Ik heb in VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B6:B101")) Is Nothing Then
        If UCase(Target.Value) = "TEST" Then
            Cells(6, 7).Value = "GOED GEDAAN"
        Else
            Cells(6, 7).Value = ""
        End If
    End If
End Sub

Dit gaat goed voor B6 met G6 ( dus door Cells(6, 7), maar wat moet ik bij Cells(6, 7) aanpassen zodat
het ook werkt voor B7, B8 etc.

Thanks
Frans

 

[gast0158]

Antwoordje

 

[frans kooijman]

Hi gast0158,
Het antwoordje ontbreekt......bijlage?

 

[crash]

@gast0158,

Graag nutteloze reacties achterwege laten, hier wordt de vraagsteller niet mee geholpen of ben je wat vergeten toe te voegen?

 

[huijb]

Vraag zegt niets over je probleem. Topictitel aangepast.

 

[Warme bakkertje]

@ Crash

Verwijder gewoon die nutteloze post :thumb:

@ Frans

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B6:B101")) Is Nothing Then
        Target.Offset(, 5) = IIf(UCase(Target.Value) = "TEST", "GOED GEDAAN", "")
    End If
End Sub