Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Zerar caso tenha ap...
 
Notifications
Clear all

Zerar caso tenha apenas frações a partir da segunda casa.

 
2024 - VBA & Macros
Post Recente por luislapa 11 anos atrás
3 Posts
2 Usuários
0 Reactions
799 Visualizações
RSS
 luislapa
(@luislapa)
Posts: 49
Eminent Member
Topic starter
 

Olá amigos,

Poderiam me dar uma força no comando:

Estou querendo zerar os valores que fique entre 0,01 e -0,01 ou seja todos os numeros que tenha apenas frações a partir da segunda casa zere.

abraços


ultimalinha = Cells(Cells.Rows.Count, 5).End(xlUp).Row
      For Each Cell In Range("A5:A" & ultimalinha)
            If Cell.Offset(0, 24) < "0,01" And Cell.Offset(0, 24) > "-0,01" Then
            Cell.Offset(0, 25).Value = 0
            End If
        Next Cell
 
Postado : 15/04/2014 8:41 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Troque:
If Cell.Offset(0, 24) < "0,01" And Cell.Offset(0, 24) > "-0,01" Then
Por
If Cell.Offset(0, 24) < 0,01 And Cell.Offset(0, 24) > -0,01 Then

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 15/04/2014 8:44 am
 luislapa
(@luislapa)
Posts: 49
Eminent Member
Topic starter
 

Obrigado Amigo,

Sem as aspas apresentou erro, então, troquei o ponto a virgula do numero por ponto e funcionou perfeito.

Vlw pela ajuda.

ultimalinha = Cells(Cells.Rows.Count, 5).End(xlUp).Row
For Each Cell In Range("A5:A" & ultimalinha)
If Cell.Offset(0, 24) < "0.01" And Cell.Offset(0, 24) > "-0.01" Then
Cell.Offset(0, 25).Value = 0
End If
Next Cell

 
Postado : 15/04/2014 11:01 am
Forum Jump:
  Tópico Anterior
Próximo Tópico