Gedeelte regel legen als bepaalde cel leeg is.

Status
Niet open voor verdere reacties.

HammerJohn

Gebruiker
Lid geworden
27 apr 2016
Berichten
173
Hoi een vraagje ik gebruik onderstaande code om een gedeelte van een rij leeg te maken, op zich werkt dat goed alleen
nu wil ik in de cellen B5 - B6 -B7 een formule plaatsen als verwijzing.
Nu werkt het niet meer om dat de formule gezien wordt, kan ik dit anders oplossen zodat hij de formule zal negeren als de
cel leeg is.(dus geen waarde bevat)


Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B5")) Is Nothing Then
        Range("C5:L5").ClearContents
        End If
    If Not Intersect(Target, Range("B6")) Is Nothing Then
        Range("C6:L6").ClearContents
        End If
    If Not Intersect(Target, Range("B7")) Is Nothing Then
        Range("C7:L7").ClearContents
        End If
    
End Sub
 
zo?

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cl In Range("B5:B7")
    If cl.Value = "" Then
        Application.EnableEvents = False
        cl.Offset(, 1).Resize(, 10).ClearContents
        Application.EnableEvents = True
    End If
Next
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan