locked
Exibir planilha em userform! RRS feed

  • Pergunta

  • Olá, tenho um formulário e queria um codigo de quando clico em um botão qualquer ele irá mostrar uma TextBox com minha planilha (de A1 a F7), alguem tem um código para isso? 

    OBS: Não precisa ser exibido necessariamente em textbox o ideial seria se ficasse as rules (réguas) para parecer uma tabela mesmo.

    OBS²: O nome da planilha é Sheet3.

    OBRIGADO!


    • Editado Riot Marcos quinta-feira, 30 de maio de 2013 21:14
    quinta-feira, 30 de maio de 2013 21:14

Respostas

  • Acho que você quis dizer que ListBox ao invés de TextBox.

    Para utilizar o exemplo abaixo, crie um formulário com um botão de comando chamado CommandButton1 e uma caixa de listagem chamada ListBox1 e cole o código abaixo na classe do formulário:

    Private Sub CommandButton1_Click()
        Dim rng As Range
        
        With ThisWorkbook.Worksheets("Sheet3")
            Set rng = .Range("A1:F7")
            Me.ListBox1.ColumnCount = rng.Columns.Count
            Me.ListBox1.RowSource = rng.Address(, , , True, rng.Parent.Range("A1"))
        End With
    End Sub

    Então, execute o código e clique no botão de comando.


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

    • Marcado como Resposta Riot Marcos segunda-feira, 3 de junho de 2013 17:50
    sexta-feira, 31 de maio de 2013 21:00
    Moderador

Todas as Respostas

  • Acho que você quis dizer que ListBox ao invés de TextBox.

    Para utilizar o exemplo abaixo, crie um formulário com um botão de comando chamado CommandButton1 e uma caixa de listagem chamada ListBox1 e cole o código abaixo na classe do formulário:

    Private Sub CommandButton1_Click()
        Dim rng As Range
        
        With ThisWorkbook.Worksheets("Sheet3")
            Set rng = .Range("A1:F7")
            Me.ListBox1.ColumnCount = rng.Columns.Count
            Me.ListBox1.RowSource = rng.Address(, , , True, rng.Parent.Range("A1"))
        End With
    End Sub

    Então, execute o código e clique no botão de comando.


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

    • Marcado como Resposta Riot Marcos segunda-feira, 3 de junho de 2013 17:50
    sexta-feira, 31 de maio de 2013 21:00
    Moderador
  • Olá Felipe,

    seu code é perfeito, sem erros. Muito obrigado.

    segunda-feira, 3 de junho de 2013 17:52
  • Caro Felipe,

    Sua dica para importar dados de uma planilha para uma list box me ajudou muito. No entanto ainda tenho dúvidas. Eu consigo formatar a maneira que os dados parecem, cor, cabeçalho e principalmente para que a largura das colunas fique como automático.

    Já agradeço,

    EdCorrea

    quinta-feira, 17 de julho de 2014 18:39
  • Edcorrea,

    Provavelmente o esforço para conseguir alcançar esse feito não vale a pena. Pode valer mais a pena você copiar a tabela como imagem e colar num formulário: http://www.ambienteoffice.com.br/excel/importar_objetos_de_planilha_como_imagem_num_formulario/


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

    sábado, 19 de julho de 2014 18:08
    Moderador
  • Felipe, boa tarde.

    Estou precisando abrir uma planilha dentro de uma tela de Userform,é possível fazer essa operação?? tentei de algumas formas, porém sem sucesso. Caso seja possível, consiguerei editar essa planilha normalmente dentro dessa tela?? Pode me ajudar?

    Abraço

    terça-feira, 7 de julho de 2015 19:22