Ir para conteúdo
Fórum Script Brasil
  • 0

Rows com variável


PFNienow

Pergunta

Estou com essas linhas de comando, porem gostaria de saber como posso substituir o numera 12 por uma variável. Já tentei com uma variável Integer, mas sempre dá erro 13. O objetivo é se ter linhas variáveis para ocultar a partir da número 9.

Dim wIr As Worksheet

Set wIr = Worksheets("IR")

wIr.Rows("9:12").EntireRow.Hidden = True

Cordial abraço

Claudio

email: pfnienow@hotmail.com

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

Integer

Private Sub Button_FiltroIR_Filtrar_Click()
    
    Dim wIr As Worksheet
    Dim Linhas As Integer
    
    Set wIr = Worksheets("IR")
    Linhas = ComboBox_FiltroIR_Período.ListIndex
   
    If Linhas <= 1 Then
        wIr.Rows.Hidden = False
        wIr.Range("AC2").Value = 0
      Else
        wIr.Range("AC2").Value = Linhas
        wIr.Rows("9:Linhas").EntireRow.Hidden = True
        
    End If
    
    Call Dados_ComboBox_FiltroIR
    Unload Form_FiltroIR
    
End Sub

Link para o comentário
Compartilhar em outros sites

  • 0
17 horas atrás, PFNienow disse:

Integer

Private Sub Button_FiltroIR_Filtrar_Click()
    
    Dim wIr As Worksheet
    Dim Linhas As Integer
    
    Set wIr = Worksheets("IR")
    Linhas = ComboBox_FiltroIR_Período.ListIndex
   
    If Linhas <= 1 Then
        wIr.Rows.Hidden = False
        wIr.Range("AC2").Value = 0
      Else
        wIr.Range("AC2").Value = Linhas
        wIr.Rows("9:Linhas").EntireRow.Hidden = True
        
    End If
    
    Call Dados_ComboBox_FiltroIR
    Unload Form_FiltroIR
    
End Sub

 

 

Seu código está correto. 

No entanto, você colocou o seguinte trecho de forma errada:

wIr.Rows("9:Linhas").EntireRow.Hidden = True

O certo seria:

wIr.Rows("9:" & Linhas).EntireRow.Hidden = True

 

Link para o comentário
Compartilhar em outros sites

  • 0
57 minutos atrás, Erik Wesley disse:

 

 

Seu código está correto. 

No entanto, você colocou o seguinte trecho de forma errada:


wIr.Rows("9:Linhas").EntireRow.Hidden = True

O certo seria:


wIr.Rows("9:" & Linhas).EntireRow.Hidden = True

 

Caríssimo Erik Wesley, muitíssimo obrigado!!!!!

Deu certo!!!!!! 

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...