Tenta este código:
Sub Elimina_linhas_em_branco()
Dim Tarefa As Task
Dim Linhas As Integer
Dim SimNao As Integer
Linhas = 1
SimNao = MsgBox("Tem a certeza que pretende eliminar as tarefas vazias?", vbYesNo)
If SimNao = 6 Then
For Each Tarefa In ActiveProject.Tasks
SelectRow Row:=Linhas, rowrelative:=False
If Tarefa Is Nothing Then
EditDelete
Linhas = Linhas - 1
End If
Linhas = Linhas + 1
Next
End If
End Sub
↧