Rows com variável

[PFNienow]

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

[Alyson Ronnan Martins]

Qual variável esta usando?

String, Long ou Intiger(acho que e assim)

 

[PFNienow]

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

[PFNienow]

Alguém saberia ajudar??

[Erik Wesley]

  Em 24/07/2018 em 19:35, 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

Expand  

 

 

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

 

[PFNienow]

  Em 25/07/2018 em 12:45, 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

 

Expand  

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

Deu certo!!!!!! 

[Erik Wesley]

  Em 25/07/2018 em 13:44, PFNienow disse:

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

Deu certo!!!!!! 

Expand  

Disponha!