Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
vERIFICAR SE UM INT...
 
Notifications
Clear all

vERIFICAR SE UM INTERVALO INTEIRO ESTÁ VAZIO

 
2024 - VBA & Macros
Post Recente por Rinreis 4 anos atrás
8 Posts
3 Usuários
1 Reactions
1,242 Visualizações
RSS
 Rinreis
(@rinreis)
Posts: 6
Active Member
Topic starter
 

Preciso verificar se um intervalo inteiro está vázio se caso sim ocultar intervalo

fiz isto :

'verificar se o intervalo está vázio
Sheets("conferencia").Select
If WorksheetFunction.CountA(Range("b23:B25")) = 0 Then

Rows("21:25").EntireRow.Hidden = True
Else
End If

Mas o programa passa direto  e não acontece nada

 
Postado : 06/08/2020 7:54 pm
EdsonBR
 EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Aparentemente nesse trecho de código não há nada de errado. Então o intervalo B23:B25 contém alguma coisa: alguma fórmula, algum valor ou mesmo algum caractere invisível (muito comum quando se cola texto que vem da internet).

Faça um teste lá na planilha numa célula qualquer usando a =CONT.VALORES(B23:B25) pra ver qual resultado retorna. Ou anexe seu arquivo aqui para analisarmos.

 
Postado : 06/08/2020 9:45 pm
LaerteB reacted
 Anderson
(@anderson)
Posts: 203
Reputable Member
 

O código está corretíssimo e funciona. Veja o anexo.

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

 
Postado : 07/08/2020 12:37 pm
EdsonBR
 EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 
Postado por: @rinreis

Mas o programa passa direto  e não acontece nada

Postado por: @anderson

O código está corretíssimo e funciona.

??????????

Então não entendi. O que é que não está funcionando se está corretíssimo e funciona?

 
Postado : 07/08/2020 12:44 pm
 Rinreis
(@rinreis)
Posts: 6
Active Member
Topic starter
 

esta é uma parte do programa..... mas não lê

Coloquei uma msgbox("passei por aqui") e ela não é acionada

 
Postado : 07/08/2020 8:52 pm
 Rinreis
(@rinreis)
Posts: 6
Active Member
Topic starter
 

Sheets("conferencia").Select
If WorksheetFunction.CountA(Range("b23:B25")) = 0 Then

Rows("21:25").EntireRow.Hidden = True
Else
MsgBox ("passei aqui")
End If

 

a msgbox foi exibida

 
Postado : 07/08/2020 9:11 pm
 Rinreis
(@rinreis)
Posts: 6
Active Member
Topic starter
 

Vc tem razão em uma das células tem uma fórmula

tem como resolver?

 

 
Postado : 07/08/2020 9:14 pm
 Rinreis
(@rinreis)
Posts: 6
Active Member
Topic starter
 

resolvido obrigado

 
Postado : 07/08/2020 9:16 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico