¿Cómo eliminar ciertas celdas?

Question

Me gustaría eliminar ciertas celdas si una celda adyacente no tiene un valor (vacía). ¿Alguien puede escribir un código VBA para ello?

Por ejemplo: si la celda "C" de una fila determinada está vacía, elimine la celda "A" de la misma fila.

Gracias…

Answer 1

Si empezamos con datos como:

y ejecuta esta breve macro:

Sub KleanUpA()
    Dim r As Range
    Set r = ActiveSheet.UsedRange.Range("C:C").Cells.SpecialCells(xlCellTypeBlanks).Offset(0, -2)
    r.Clear
End Sub

obtendremos: