Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
VBA - localizar val...
 
Notifications
Clear all

VBA - localizar valor 0

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
790 Visualizações
RSS
 joanas
(@joanas)
Posts: 0
New Member
Topic starter
 

Bom dia,

estou a criar uma macro, para verificar se na coluna K existem zeros.
No fim, quero gravar numa célula o numero de zeros encontrados.

A macro está a dar erro, podem ajudar?

Sub Validar_Zeros()

Dim zerosencontrados As Integer
zerosencontrados = 0
FinalRow = Range("A65536").End(xlUp).Row

i = 7
Do While i <= FinalRow
If Cells(i, 5).value = ActiveCell.FormulaR1C1 = "=ROUND(0,1)" Then
zerosencontrados = zerosencontrados + 1
Range("I3").value = zerosencontrados
If Range("I3") <> 0 Then
Range("I2") = "Zeros Encontrados"
End If
Else
i = i + 1
End If

Loop

'MsgBox "número de Zeros encontrados" & "" & zerosencontrados

End Sub

Obrigada

 
Postado : 16/01/2015 5:21 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Joanes,

Seja bem vindo ao fórum...

Tenta assim:

Option Explicit
Sub Validar_Zeros()
Dim zerosencontrados    As Long
Dim FinalRow            As Long

zerosencontrados = 0
FinalRow = Range("A" & Rows.Count).End(xlUp).Row

    zerosencontrados = Application.WorksheetFunction.CountIf(Range("K1:K" & FinalRow), 0)
    Range("I3").Value = zerosencontrados
    Range("I2") = "Zeros Encontrados"

End Sub

Qualquer coisa da o grito.
Abraço

 
Postado : 16/01/2015 6:03 am
Forum Jump:
  Tópico Anterior
Próximo Tópico