none
Rotina em VBA RRS feed

  • Pergunta

  • Preciso que alguém me ajude a criar uma rotina em VBA no excel para filtrar uma tabela quando seleciono numa caixa de listagem o curso.

    alguém?

    segunda-feira, 10 de junho de 2013 18:53

Respostas

  • Considere que o curso se encontra na coluna C:

    Sub fMain()
        Dim lngLast As Long
        Dim strCurso As String
        
        strCurso = InputBox("Qual curso deseja visualizar?")
        If strCurso = "" Then Exit Sub
        
        On Error Resume Next
        ActiveSheet.ShowAllData
        Cells.AutoFilter
        On Error GoTo 0
        
        lngLast = Cells(Rows.Count, "A").End(xlUp).Row
        ActiveSheet.Range("A1:J" & lngLast).AutoFilter Field:=Columns("C").Column _
        , Criteria1:="=*elétrica*"
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 10 de junho de 2013 21:30
    Moderador

Todas as Respostas

  • Mariana, o que já tens pronto? O pessoal pode te ajudar mas é preciso indicar onde está tua dúvida.

    Edison

    segunda-feira, 10 de junho de 2013 19:32
  • Tenho uma tabela com o nome, morada, idade, data de nascimento... curso e código de curso e agora preciso de uma rotina que quando escrevo numa msgbox o nome do curso só apareçam os alunos que estão nesses cursos.
    segunda-feira, 10 de junho de 2013 19:35
  • Já tentaste algo usando o código do curso como referência?

    Edison

    segunda-feira, 10 de junho de 2013 19:38
  • Não, mas eu não consigo perceber como fazer nem com o código nem com o nome do curso. 

    Mariana

    segunda-feira, 10 de junho de 2013 19:39
  • Considere que o curso se encontra na coluna C:

    Sub fMain()
        Dim lngLast As Long
        Dim strCurso As String
        
        strCurso = InputBox("Qual curso deseja visualizar?")
        If strCurso = "" Then Exit Sub
        
        On Error Resume Next
        ActiveSheet.ShowAllData
        Cells.AutoFilter
        On Error GoTo 0
        
        lngLast = Cells(Rows.Count, "A").End(xlUp).Row
        ActiveSheet.Range("A1:J" & lngLast).AutoFilter Field:=Columns("C").Column _
        , Criteria1:="=*elétrica*"
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 10 de junho de 2013 21:30
    Moderador