Página 1 de 1

Relacionar colunas

Enviado: 17 Mai 2016 às 18:31
por FernandoZ
Estou mexendo uma planilha bem grande no excel, perdendo muito tempo por não encontrar uma fórmula pra resolver uma questão que "talvez" seja simples. Preciso relacionar 2 colunas, o problema é a sequência:
Coluna A / Coluna B
A1 = B1
A4 = B2
A7 = B3
A10 = B4
A13 = B5
ou seja, enquanto na coluna A vou alternando de 3 em 3 células, na coluna B vou de uma em uma. Espero ter sido claro.

Alguém sabe que fórmula ou função do excel usar para isso?

Caso já exista um tópico sobre isso no fórum, peço que me informem.

Grato FernandoZ

Relacionar colunas

Enviado: 17 Mai 2016 às 18:40
por Parkeless
Olá Fernando!

Você quer passar os dados da coluna A para a B ou o contrário?

Re: Relacionar colunas

Enviado: 17 Mai 2016 às 21:27
por FernandoZ
Olá PARKELESS, grato pela atenção, na verdade os dados virão de uma planilha para outra, mas seguindo as mesmas colunas, dados da coluna A da Plan3T (nome da 1ª planilha) para a coluna A da Arv3T (nome da 2ª planilha).

Re: Relacionar colunas

Enviado: 18 Mai 2016 às 10:50
por Deciog
Fernando, Bom Dia.

Poste um modelo de planilha com o resultado esperado

Decio

Re: Relacionar colunas

Enviado: 18 Mai 2016 às 14:26
por FernandoZ
Anexei planilha mostrando o que preciso fazer.

Relacionar colunas

Enviado: 18 Mai 2016 às 15:09
por Parkeless
Fernando,

Fiz através de macro, teste o código abaixo por favor:
Código: Selecionar todos
Sub DefinirArv3T()

'Apagar dados da Arv3T

Sheets("Arv3T").Range("A2:G1000000").ClearContents

Dim Arv3T()

ReDim Arv3T(1 To Application.WorksheetFunction.CountA(Sheets("Plan3T").Range("A:A")), 1 To 7)

'Definir matriz
Dim l As Long 'linha Plan3T
Dim c As Long 'coluna Plan3T e Arv3T (não muda)
Dim i As Long 'linha Arv3T


For l = 2 To UBound(Arv3T)
    If Cells(l, 1) = "" Then: Exit For 'Sair se não achar valor em UT
    i = i + 1
    For c = 1 To 7
        Arv3T(i, c) = Cells(l, c)
    Next c
    l = l + 2 'pular 3 linhas (2 agora + 1 no next a seguir)
Next l

Sheets("Arv3t").Range("A2:G" & UBound(Arv3T)) = Arv3T

MsgBox "Arv3T gerada com sucesso!", vbInformation

End Sub

Re: Relacionar colunas

Enviado: 18 Mai 2016 às 20:50
por AndersonLeal
Olá,

Veja a planilha em anexo. Utilizei a função DESLOC.

Abraço!

Relacionar colunas

Enviado: 19 Mai 2016 às 11:42
por Parkeless
Olá Vieira, bom dia!

Por favor, crie um novo tópico com a sua dúvida ;)

Relacionar colunas

Enviado: 19 Mai 2016 às 13:47
por vieira120414
Olá, tudo bem?

como faço para criar um tópico ?

desde já agradeço pela atenção.

Re: Relacionar colunas

Enviado: 20 Mai 2016 às 21:12
por FernandoZ
Obrigado a todos que dispensaram um pouco de seu tempo para me auxiliar, ambas as soluções apresentadas deram resultado, o uso de macros ainda me é misterioso, portanto me enrolei um pouco com o código do Parkeless, consegui aplicá-lo mas não conseguiria alterá´lo em caso de uma mudança no range por exemplo, o Anderson Leal me passou uma fórmula usando a função DESLOC que também funcionou perfeitamente, fato é que a planilha está pronta.

Procurarei aprofundar meus conhecimentos em Excel, grato.