Ir para conteúdo
Fórum Script Brasil

PFNienow

Membros
  • Total de itens

    5
  • Registro em

  • Última visita

Posts postados por PFNienow

  1. Senhores, como faço para centralizar um formulário sobre a planilha aberta, quando estou utilizando duas telas no computador? Só sei fazer isso quando estou utilizando uma tela. E como o sistema saberá quando estou com uma ou duas tela para aplicar a formatação correta de centralização? Grato. 

        With Form_FiltroIR
            .Top = Application.Top / 2
            .Left = Application.Left / 2
        End With

     

    Obrigado e desculpa pela abertura desse tópico, mas não encontrei respostas nos demais tópicos deste Fórum ou na Internet.

  2. 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!!!!!! 

  3. 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

  4. 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

×
×
  • Criar Novo...