Ir ao conteúdo
  • Cadastre-se
deejaywesley

RESOLVIDO Excel vba delimitador

Posts recomendados

Bom dia Galera a quanto tempo... :wiggle:

 

meu probleminha é o seguinte...

preciso que este código, ou similar,

Sub Treta()

    Sheets("Plan1").Select
    Range("B2:B15").Select
    Selection.Copy
    Sheets("Plan2").Select
    Range("G2").Select
    ActiveSheet.Paste
    Sheets("Plan1").Select
    Range("B2").Select

Plan1.Range("B2").ClearContents

ActiveWorkbook.Save


End Sub

 

pegue os valores da coluna B2:B15, que são assim

18-2-3-60-50-30-30

40-5-3-20-70-40-90
26-2-3-10-50-20-20
71-6-3-40-80-40-10
etc

 

e cole na plan2 a partir de G2 assim...

 

G2 --------- H2 --------- I2 --------- J2 --------- K2 --------- L2 --------- M2

18 ---------- 2---------- 3 ----------- 60 --------- 50 --------- 30 --------- 30

40 ---------- 5---------- 3 ----------- 20 --------- 70 --------- 40 --------- 90
26 ---------- 2---------- 3 ----------- 10 --------- 50 --------- 20 --------- 20
71 ---------- 6---------- 3 ----------- 40 --------- 80 --------- 40 --------- 10

 

alguém sabe alterar ai pra mim...

desde ja, muito obrigado!:cool:

Compartilhar este post


Link para o post
Compartilhar em outros sites

@deejaywesley veja se é isso que precisa. 

 

	Sub Transpor_Cell_Col_Basole()
    Dim i As Long, x As Long, strArray() As String, MyArray As String
	    With ThisWorkbook.ActiveSheet
      
        For x = 2 To 15
            MyArray = .Cells(x, 2).Text
	            strArray = Split(MyArray, "-")
	            For i = LBound(strArray) To UBound(strArray)
                ThisWorkbook.Sheets("plan2").Cells(x, i + 7).Value = strArray(i)
            Next i
	        Next x
	.Range("B2").ClearContents
ThisWorkbook.Save
    End With
	End Sub
	

Compartilhar este post


Link para o post
Compartilhar em outros sites

Opa!:D

Boa noite @Basole

 

testei seu código aqui, mas não funcionou não...

acho que eu não soube fazer ele rodar aqui na planilha, mas tá tranquilo...

fiz uma gambiarra aqui com umas formulas, e aparentemente não esta dando erro, qualquer coisa posto outra mensagem aqui...

 

forte abraço parceiro:cool:, muito obrigado pela resposta!:thumbsup:

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

@Basole

Boa tarde

 

Nossa! baixei o arquivo q você postou e é isso ai mesmo..

não tinha funfado o meu teste por navaiada minha mesmo aqui kkkkkk

 

fico show parceiro..

forte abraço!

 

pequena duvida...

faz um tempo q não perguntava nada aqui, e não to achando como dar o tópico como resolvido...

volto como antigamente, o moderador que coloca como resolvido?

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não tenho certeza, mas acho que tem que alterar o status do titulo do topico, em editar titulo e altere o status para "resolvido"

 

obrigado.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
Este tópico está parado há muito tempo. Certifique-se que a sua mensagem tem a ver com o tema sendo discutido. Obrigado.

Junte-se à conversa

Você pode postar agora e cadastrar-se depois. Se você tem uma conta, faça o login para postar.

Visitante
Responder

×   Você colou conteúdo com formatação.   Restore formatting

  Só é possível ter até 75 emoticons.

×   O link foi automaticamente convertido para mostrar o conteúdo.   Clique aqui para mostrá-lo como link comum

×   Seu texto anterior foi restaurado.   Limpar o editor

×   You cannot paste images directly. Upload or insert images from URL.






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!