Ir ao conteúdo
  • Cadastre-se
deejaywesley

RESOLVIDO Excel vba delimitador

Recommended Posts

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
	

  • Curtir 1

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?

 

  • Curtir 1

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.

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





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

×