target adress op 2 cellen

[HBot]

Forum,

Ik ben al een tijdje bezig en gezocht in het forum maar kom er niet uit.
oa. met "and" toevoegen of "Keycells" maar lukt niet,
code werkt perfect op 1 cel.

ik wil nml onderstaande laten werken als de voorwaarde in 2 cellen voldoen.
Cel C36 en C37 moeten beide op klaar staan;

If Target.Address = ("$C$36") Then
    Set oActive = ActiveSheet
    If Target = "Klaar" Then
        oActive.Shapes("Groep 28").Visible = True
    Else
        oActive.Shapes("Groep 28").Visible = False
    End If
        End If

 

[edmoor]

Doe het eens zo:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C36:C37")) Is Nothing Then
        ActiveSheet.Shapes("Groep 28").Visible = IIf(Target = "Klaar", True, False)
    End If
End Sub

 

[HSV]

Activesheet en de Iif constructie zijn overbodig.

 

[HBot]

Hi Edmoor,

bedankt, bijna
werkt nu ook als 1 van de 2 cellen op "Klaar" staan maar moet werken als beide op "Klaar" staan.

 

[edmoor]

Lijkt me dan duidelijk wat je dan moet doen toch?

 

[HBot]

Edmoor,

blijkbaar niet, heb denk ik alles geprobeerd maar niet het juiste
zit in dit stukje
If Not Intersect(Target, Range("C36:C37")) Is Nothing Then

div optie geprobeerde maar krijg foutmeldingen oa.
If Not Intersect(Target, Range("C36") And (Range("C37"))) Is Nothing Then
en nog een paar in die richting.

waarschijnlijk is het een simpele voor de kenners

 

[edmoor]

Dat stukje is om de controleren of het 1 van de 2 cellen is en moet zo blijven.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C36:C37")) Is Nothing Then
        If Range("C36") = "Klaar" And Range("C37") = "Klaar" Then
            ActiveSheet.Shapes("Groep 28").Visible = True
        Else
            ActiveSheet.Shapes("Groep 28").Visible = False
        End If
    End If
End Sub

 

[HBot]

Edmoor,
was er al bang voor =, zat dus in de verkeerde regel

bedankt, weer wat geleerd.

 

[snb]

Je/jullie kunt/kunnen nog meer leren met de suggesties van HSV

 

[edmoor]

Da's mooi.