Pessoal,
No Intervalo T2:U25 preciso de função que Localize célula(s) com Valor(es) igual a Zero e Delete-o(s).
Mas, é para localizar e deletar Zeros somente a partir do último Valor diferente de Zero, como no exemplo abaixo:
Intervalo [T2:U25]
T..............U
Out/13.......8.400
Nov/13.......0 (não pode deletar este zero)
Dez/13.....…3.500
Jan/14.......0 (não pode deletar este zero)
Fev/14...….12.000
Mar/14......18.000
Abr/14......0 (não pode deletar este zero)
Mai/14.......22.750
Jun/14.......111
Jul/14........3.500
Ago/14.......0 (é para deletar Todos os zeros a partir daqui (Ago/14 no caso)
Set/14........0
Out/14.......0
Nov/14.......0
Dez/14.......0
Jan/15.......0
Fev/15.......0
Mar/15.......0
Abr/15.......0
Mai/15.......0
Jun/15.......0
Jul/15........0
Ago/15.......0
Set/15........0
Grato,
Pedro
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Localizar e Deletar Zero [Resolvido]
-
- Colaborador
- Mensagens: 74
- Registrado em: Qua Jul 25, 2012 12:42 pm
- Localização: Montes Claros-MG
Localizar e Deletar Zero [Resolvido]
Editado pela última vez por pedrobb em Sáb Mai 17, 2014 4:26 pm, em um total de 1 vez.
-
- Colaborador
- Mensagens: 74
- Registrado em: Qua Jul 25, 2012 12:42 pm
- Localização: Montes Claros-MG
Re: Localizar e Deletar Zero
Resolvido com Função de Reinaldo:
Sub excluindo()
Dim x As Integer
For x = 25 To 2 Step -1
If Cells(x, "U").Value = 0 Then
Cells(x, "U").ClearContents
Else
Exit Sub
End If
Next
End Sub
Sub excluindo()
Dim x As Integer
For x = 25 To 2 Step -1
If Cells(x, "U").Value = 0 Then
Cells(x, "U").ClearContents
Else
Exit Sub
End If
Next
End Sub
-
- Colaborador
- Mensagens: 74
- Registrado em: Qua Jul 25, 2012 12:42 pm
- Localização: Montes Claros-MG
Re: Localizar e Deletar Zero [Resolvido]
Resolvido com Função de Reinaldo:
Sub excluindo()
Dim x As Integer
For x = 25 To 2 Step -1
If Cells(x, "U").Value = 0 Then
Cells(x, "U").ClearContents
Else
Exit Sub
End If
Next
End Sub
Sub excluindo()
Dim x As Integer
For x = 25 To 2 Step -1
If Cells(x, "U").Value = 0 Then
Cells(x, "U").ClearContents
Else
Exit Sub
End If
Next
End Sub
- vbalexandre
- Manda bem
- Mensagens: 122
- Registrado em: Sáb Dez 11, 2010 6:57 pm
Re: Localizar e Deletar Zero [Resolvido]
Boa noite!!
favor indicar as postagens cruzadas!!
http://www.planilhando.com.br/forum/vie ... 10&t=11668
Att
favor indicar as postagens cruzadas!!
http://www.planilhando.com.br/forum/vie ... 10&t=11668
Att