Ir ao conteúdo
  • Cadastre-se

Excel Unir dois comandos no VBA


Ir à solução Resolvido por Edson Luiz Branco,

Posts recomendados

Gostaria de saber se tem como eu unir esses dois comandos, pois os dois tem o mesmo nome e dá erro quando se aplica na planilha, já tentei de diversas formas mas não resolveu.

 

PRIMEIRO CÓDIGO

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$B$44" Then Exit Sub
If Target.Value = 0 Then
    Rows("45").EntireRow.Hidden = True
    Rows("46").EntireRow.Hidden = True
    Rows("47").EntireRow.Hidden = True
    Rows("48").EntireRow.Hidden = True

End If 

 

End Sub

 

SEGUNDO CÓDIGO

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$B$49" Then Exit Sub
If Target.Value = 0 Then
    Rows("50").EntireRow.Hidden = True
    Rows("51").EntireRow.Hidden = True
    Rows("52").EntireRow.Hidden = True
    Rows("53").EntireRow.Hidden = True

End If

 

End Sub

 

 

Os códigos são iguais, porém só muda a célula q foi alterada e onde vai alterar.

 

Se alguem souber me ajudar agradeço

 

Link para o post
Compartilhar em outros sites
  • Solução

Boa tarde!

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If (Target.Address = "$B$44" Or Target.Address = "$B$49") And Target.Value = 0 Then
    Target.EntireRow.Resize(4).Offset(1).Hidden = True
  End If
End Sub

 

  • Curtir 1
Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Redes-Wi-Fi-capa-3d-newsletter.png

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!