EXCELer: 175: VBE - Apagar o conteúdo de um determinado conjunto de células

2006-12-14

175: VBE - Apagar o conteúdo de um determinado conjunto de células

12:10 da manhã |

Publicada por JRod - PORTUGAL |

Para apagar, na ultima linha editada, os valores das células correspondentes às colunas A, B , C , D e E, como no exemplo:

Podemos utilizar o seguinte Código:

Private Sub CommandButton1_Click()

i = 5
t = True

    While t = True
        i = i + 1
        If Cells(i, 1).Value = "" Then t = False
    Wend

Range("a" & (i - 1)).Select
Range(ActiveCell, ActiveCell.Offset(0, 4)).ClearContents

End Sub