none
ListBox VBA Excel RRS feed

  • Pergunta

  • Boa tarde Amigos do Forum

    Venho novamente pedir a ajuda de todos em um projeto que estou fazendo, onde estarei usando dados de uma linha de uma planilha em um listbox como segue:

    Dados da linha A1= 1 2 3 4 5 10 15 20 25 30

    Esta linha com estes dados estão em minha ListBox, eu preciso de uma macro que ao clicar duas vezes nestes dados eles se separam entre as colunas como segue: b1=1, c1=2, d1=3, e1=4, f1=5, g1=10, h1=15, i1=20, j1=25, k1=30

    Agradeco a ajuda de todos

    Abraço

    Mauro

    sexta-feira, 11 de outubro de 2013 17:29

Respostas

  • Mauro, ligue o gravador de macro, selecione e copie os dados, clique na célula destino e dê um colar-especial-transpor.

    Desligue o gravador.

    Associe a macro ao evento duplo-clique da listbox.

    Só.

    • Marcado como Resposta MauroMeira quarta-feira, 16 de outubro de 2013 19:34
    sexta-feira, 11 de outubro de 2013 18:56
  • Caro amigo jes_kp

    Obrigado pelo retorno, desculpa cara pela demora, esta macro não deu certo, ela cola o valo por completo em uma unica linha, eu preciso que cada número fosse para uma determinada coluna, como mostra o exemplo que ostrei.

    Abraço

    Mauro

    • Marcado como Resposta MauroMeira quarta-feira, 16 de outubro de 2013 19:34
    terça-feira, 15 de outubro de 2013 13:39
  • Mauro,

    Tente executar o código abaixo:

    Dim sA1() As String
    sA1 = Split("1 2 3 4 5 10 15 20 25 30", " ") 'ou utilize Cells(1, 1).Value

    Cells(1, 2).Value = sA1(0)
    Cells(1, 3).Value = sA1(1)
    Cells(1, 4).Value = sA1(2)

    ' Você pode seguir desta forma ou fazer um "For ... Next"

    Espero que seja útil para você.

    Abraços,

    Durval Ramos
    Microsoft Partner | MTA
    ----------------------------------
    Se foi resolvido clique "Marcar como resposta" e se foi útil "Votar como Útil"

    • Sugerido como Resposta Durval Ramos terça-feira, 15 de outubro de 2013 14:49
    • Marcado como Resposta MauroMeira quarta-feira, 16 de outubro de 2013 19:32
    terça-feira, 15 de outubro de 2013 14:48
  • Bom Dia Durval Ramos

    Obrigado pelo retorno me ajudou muito esta macro, valeu

    Abraço

    Mauro

    • Marcado como Resposta MauroMeira quarta-feira, 16 de outubro de 2013 19:34
    quarta-feira, 16 de outubro de 2013 19:33

Todas as Respostas

  • Mauro, ligue o gravador de macro, selecione e copie os dados, clique na célula destino e dê um colar-especial-transpor.

    Desligue o gravador.

    Associe a macro ao evento duplo-clique da listbox.

    Só.

    • Marcado como Resposta MauroMeira quarta-feira, 16 de outubro de 2013 19:34
    sexta-feira, 11 de outubro de 2013 18:56
  • Caro amigo jes_kp

    Obrigado pelo retorno, desculpa cara pela demora, esta macro não deu certo, ela cola o valo por completo em uma unica linha, eu preciso que cada número fosse para uma determinada coluna, como mostra o exemplo que ostrei.

    Abraço

    Mauro

    • Marcado como Resposta MauroMeira quarta-feira, 16 de outubro de 2013 19:34
    terça-feira, 15 de outubro de 2013 13:39
  • Mauro,

    Tente executar o código abaixo:

    Dim sA1() As String
    sA1 = Split("1 2 3 4 5 10 15 20 25 30", " ") 'ou utilize Cells(1, 1).Value

    Cells(1, 2).Value = sA1(0)
    Cells(1, 3).Value = sA1(1)
    Cells(1, 4).Value = sA1(2)

    ' Você pode seguir desta forma ou fazer um "For ... Next"

    Espero que seja útil para você.

    Abraços,

    Durval Ramos
    Microsoft Partner | MTA
    ----------------------------------
    Se foi resolvido clique "Marcar como resposta" e se foi útil "Votar como Útil"

    • Sugerido como Resposta Durval Ramos terça-feira, 15 de outubro de 2013 14:49
    • Marcado como Resposta MauroMeira quarta-feira, 16 de outubro de 2013 19:32
    terça-feira, 15 de outubro de 2013 14:48
  • Bom Dia Durval Ramos

    Obrigado pelo retorno me ajudou muito esta macro, valeu

    Abraço

    Mauro

    • Marcado como Resposta MauroMeira quarta-feira, 16 de outubro de 2013 19:34
    quarta-feira, 16 de outubro de 2013 19:33