Página 1 de 1

Colocar Condição Para Mostrar Valores

Enviado: 02 Jun 2018 às 13:33
por walber
Boa tarde.

Uso este código em meu formulário e queria saber se tem com colocar uma condição para que não mostre o valor da linha.
Este é o código

With ThisWorkbook.Sheets("Plan1")
.Activate
For a = 2 To .Cells(Cells.Rows.Count, "A").End(xlUp).Row
Cells(a, "A").Select
If Cells(a, "A") <> "" Then
If Format(Month(Cells(a, "A")), "00") = Mes And Year(Cells(a, "A")) = Ano Then
somaPlan1Mes = somaPlan1Mes + CDbl(Format(Cells(a, "B"), "currency"))
End If
End If
Next

ele funciona somando os valores da coluna 2 da planilha conforme o mes escolhido, mas gostaria que quando tiver uma observação na coluna 3 da planilha, seja desconsiderado este valor.
tem como?

Re: Colocar Condição Para Mostrar Valores

Enviado: 02 Jun 2018 às 14:16
por mprudencio
Se eu entendi seu codigo isso deve funcioanar

With ThisWorkbook.Sheets("Plan1")
.Activate
For a = 2 To .Cells(Cells.Rows.Count, "A").End(xlUp).Row
Cells(a, "A").Select
If Cells(a, "A") <> "" Then
If Format(Month(Cells(A, "A")), "00") = Mes And Year(Cells(A, "A")) = Ano Then
If Cells(a, "C" ) = "" Then ' acrecentei este if para pesquisar se a coluna C esta vazia se estiver executa a soma
somaPlan1Mes = somaPlan1Mes + CDbl(Format(Cells(a, "B"), "currency"))
End If
End If
End If
Next

Colocar Condição Para Mostrar Valores

Enviado: 03 Jun 2018 às 00:06
por walber
É isso mesmo, obrigado