Cellen leeg maken op basis van een lege cel

Status
Niet open voor verdere reacties.
T

Tweety1

Gebruiker
Lid geworden
6 mrt 2013
Berichten
637
Ik ben opzoek naar een macro die bepaalde cellen leeg maakt op de zelfde rij.
Is de cel in Kolom D leeg dan dient hij op de zelfde rij de cellen leeg te maken behalve kolom G en H.

Voorbeeld
Bekijk bijlage Voorbeeld.xlsx

mvg
Kasper
 
En dient dat per rij te gebeuren bij het leegmaken van een cel in kolom D of wil je alles in 1 keer checken en leegmaken?
 
zo?

Code: 
Sub SjonR()
For i = 2 To Range("G" & Rows.Count).End(xlUp).Row
    If Cells(i, 4) = "" Then
        Cells(i, 1).Resize(, 6).ClearContents
        Cells(i, 9).Resize(, 14).ClearContents
    End If
Next
End Sub
 
Ziet er goed uit alleen. Ben alleen vergeten te melden dat kolommen G en H niet altijd gelijk eindigen.

Heb dit opgelost door het volgende

Code: 
Sub SjonR()
For i = 2 To [COLOR="#FF0000"]Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row[/COLOR]
    If Cells(i, 4) = "" Then
        Cells(i, 1).Resize(, 6).ClearContents
        Cells(i, 9).Resize(, 14).ClearContents
    End If
Next
End Sub
 
Laatst bewerkt:
Als alternatief

Code: 
Sub VenA()
  With Blad1.Cells(1).CurrentRegion
    ar = .Value
    For j = 1 To UBound(ar)
      For jj = 1 To UBound(ar, 2)
        If ar(j, 4) = "" Then If (jj <> 7 And jj <> 8) Then ar(j, jj) = ""
      Next jj
    Next j
    .Value = ar
  End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan