Clear Cell data with condition

[azhri]

Hi..

I want to clear cells contents from column D to N When the cell in column A is empty for each row, or when I delete the cell from A coloumn

 

[Special-K99]

in D1
IF(A1="","",your formula)
copy across to column N

 

[azhri]

in D1
IF(A1="","",your formula)
copy across to column N

I want to delete columns from D to N
ex.
when Cell A5 is empty or I delete the content from A5 the cells from D5 to N5 is deleted

 

[Special-K99]

Your subject header says "clear".

 

[KennyGreens]

I want to delete columns from D to N
ex.
when Cell A5 is empty or I delete the content from A5 the cells from D5 to N5 is deleted

So if A5 is empty, you want to delete the cells D5 to N5? Which way should the cells shift? If you wish to delete the cells and not simply clear them it will require a macro.

 

[azhri]

Yes i want clear contents not delete, sorry.

 

[KennyGreens]

If that is the case, try this macro:

Dim i As Integer
Dim lrow As Long

lrow = Cells.Find(What:="*", after:=Range("A1"), lookat:=xlPart, LookIn:=xlFormulas, searchorder:=xlByRows, searchdirection:=xlPrevious, MatchCase:=False).Row

For i = 1 To lrow
    If IsEmpty(Range("A" & i).Value) = True Then
        Range("D" & i & ":N" & i).ClearContents
    End If
Next

 

[Fluff]

Another option

Sub ClearRange()
   Dim Rng As Range
   
   For Each Rng In Range("A:A").SpecialCells(xlBlanks).Areas
      Rng.Offset(, 3).Resize(, 11).ClearContents
   Next Rng
End Sub