Condição para não u...
 
Notifications
Clear all

Condição para não utilizar esta linha de comando

6 Posts
3 Usuários
0 Reactions
1,092 Visualizações
(@valdecirrk)
Posts: 230
Reputable Member
Topic starter
 

Bom dia

preciso de uma ajuda
como faço para não ativar esta linha quando todas as celulas estiverem preenchidas.
porque quando todas estão ele aparece um erro.

Range("a20:b49").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 
Postado : 29/10/2013 8:06 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Não entendi muito bem. vc diz todas as do Range("a20:b49")?
Seria isso:

If IsEmpty(Range("a20:b49")) Then Range("a20:b49").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Agora, não sei o que vc está escrevendo, mas eu acho que poderia fazer por linha:

Dim i As Integer

For i = 20 To 49
If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) Then
Cells(i, 1).EntireRow.Delete
End If
Next

 
Postado : 29/10/2013 8:37 am
(@valdecirrk)
Posts: 230
Reputable Member
Topic starter
 

Show de bola, mas eu preciso que quando encontrar linha vazia ele deleta estas linhas se não, não faz nada.
quando todas as linhas estão preenchidas ele da um erro.

 
Postado : 05/11/2013 8:38 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Testei e não consegui reproduzir o erro =>

quando todas as linhas estão preenchidas ele da um erro

Pode ser mais especifico ou dispor um exemplo

 
Postado : 05/11/2013 9:13 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Show de bola, mas eu preciso que quando encontrar linha vazia ele deleta estas linhas se não, não faz nada.
quando todas as linhas estão preenchidas ele da um erro.

Igual ao Reinaldo, eu tb não entendi. O código que eu coloquei corre linha por linha do range (a20:b49), excluindo somente as linhas que estão vazias.

Testei algumas vezes e deu certo pra mim.

 
Postado : 05/11/2013 10:16 am
(@valdecirrk)
Posts: 230
Reputable Member
Topic starter
 

Desculpa, eu acabei não prestando atençao, ja corrigi e deu tudo certo, esta show de bola.

 
Postado : 06/11/2013 1:53 am