luiza lopes

os dados não são excluídos! Como faço para marcar a linha da planilha BD, não entendi direito, poderia me explicar?

Enviei pelo e-mail! Obrigadaaa @Alyson Ronnan Martins

Boa noite, @Alyson Ronnan Martins! Estava aplicando o código e acabou surgindo um problema que não sei resolver. Ao adicionar uma nova tabela na aba "Dados" e Transpor as colunas para a aba "Lista", o código replica toda a informação existente e adiciona a nova linha da última tabela. Ao invés de apenas adicionar a nova linha. Por exemplo: vamos supor que esse é um exemplo da minha aba Dados: bola, caneta, lápis, carrinho e quero adicionar o elemento joão, o código está fazendo isso: bola, caneta, lápis, carrinho,bola, caneta, lápis, carrinho, joão. E o que eu precisava seria:bola, caneta, lápis, carrinho,joão. Alguma ideia de como posso resolver esse problema? Vou enviar o código novamente com as alterações que fiz para se adaptar ao q eu precisava: <>Option Explicit Sub TransporDados() Dim uLinha As Long 'Última linha Dim lLista As Long 'Linha nova na tabela Lista Dim cLista As Long 'Coluna nova na tabela lista Dim yLista As Long 'Coluna pesquinsando a lista Dim g As Long 'Grupo do produto Dim x As Long 'Linha Dim y As Long 'Coluna Dim txtCampo Dim txtValor Application.ScreenUpdating = False Application.Calculation = xlCalculationManual uLinha = Sheets("BD").Cells(Rows.Count, "A").End(xlUp).Row For g = 1 To uLinha Step 10 'Ultima linha da lista lLista = Sheets("Análise de Dados").Cells(Rows.Count, "A").End(xlUp).Row + 1 'Loop pulando de 2 em 2 começando na coluna 2 até 6 For y = 2 To 6 Step 2 'Loop para passar pelas linhas For x = g To g + 9 txtCampo = Sheets("BD").Cells(x, y - 1).Value2 txtValor = Sheets("BD").Cells(x, y).Value2 'Procurar a coluna para colocar o valor For yLista = 1 To 31 Step 1 If Sheets("Análise de Dados").Cells(1, yLista).Value = txtCampo Then cLista = yLista yLista = 32 'Parar o for End If Next yLista 'Cadastrar o valor na tabela nova Sheets("Análise de Dados").Cells(lLista, cLista).Value = txtValor Next Next y Next g Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

DEU CERTO!!!! UHU MUITO OBRIGADA. Tem algo que eu possa fazer pra te ajudar?

Não entendi, poderia escrever onde está errado, por favor? Eu mudei o nomes das abas para "BD" e "Análise de Dados"

Bom dia, fico no aguardo @Alyson Ronnan Martins!

Boa noite, @Alyson Ronnan Martins .Consegui arrumar! Agora surgiu outra duvida. Estou adaptando o seu codigo para o meu no entando a tabela que estou usando é um pouco diferente e resultou em quatro linhas que ele não identifica. Sabe me dizer qual seria o problema? Essa é a nova tabela que estou usando Os dados transpostos ficam assim: E terminam na coluna 31. Todos ficaram corretos menos os de Volume Terra, Volume Bordo e Inspeção na Barra que ficaram em branco! Sabe me dizer o porque? Seu código que alterei: <> Sub cmdImportarTexto() Dim uLinha As Long 'Última linha Dim lLista As Long 'Linha nova na tabela Lista Dim cLista As Long 'Coluna nova na tabela lista Dim yLista As Long 'Coluna pesquinsando a lista Dim g As Long 'Grupo do produto Dim x As Long 'Linha Dim y As Long 'Coluna Dim txtCampo Dim txtValor Application.ScreenUpdating = False Application.Calculation = xlCalculationManual uLinha = Sheets("BD").Cells(Rows.Count, "A").End(xlUp).Row For g = 2 To uLinha Step 10 'Ultima linha da lista lLista = Sheets("Análise de Dados").Cells(Rows.Count, "A").End(xlUp).Row + 1 'Loop pulando de 2 em 2 começando na coluna 2 até 6 For y = 2 To 10 Step 2 'Loop para passar pelas linhas For x = g To g + 10 Step 1 txtCampo = Sheets("BD").Cells(x, y - 1).Value txtValor = Sheets("BD").Cells(x, y).Value 'Procurar a coluna para colocar o valor For yLista = 1 To 31 Step 1 If Sheets("Análise de Dados").Cells(1, yLista).Value = txtCampo Then cLista = yLista yLista = 32 'Parar o for End If Next yLista 'Cadastrar o valor na tabela nova Sheets("Análise de Dados").Cells(lLista, cLista).Value = txtValor Next Next y Next g Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Simm, é bem isso que está acontecendo. o cLista fica vazio! Alguma ideia de como arrumar isso?

Primeiro, muito obrigada pela ajuda @Alyson Ronnan Martins! Agora, tentei rodar no meu computador mudando apenas o nome das abas e aparece isso: Nessa linha aqui, alguma ideia para resolver esse problema?

Claro! vou te mandar a tabela sem preencher que fica mais claro: Essa é a tabela, o esquema é cada pessoa vai preencher ela de modo diferente e preciso transpor essas informações para outra aba. As informações que quero transpor são aquelas que as pessoas vão preencher ( espaço em branco). Veja se ficou mais claro agora! E as informações tem que ficar assim na outra aba @Alyson Ronnan Martins

Exatamente isso! O problema é que as colunas que preciso as informações são mescladas. Tipo preciso só das informações das linhas 2, 4 e 6 e essas informações fariam de 7 em 7 linhas.

Sim, serão 7 informações preenchidas. Mas só as informações da 2,4 e 6 colunas que devem ser transpostas na outra aba. Como se fosse assim: Essa foto é da aba com as informações transpostas já

Os valores que nunca mudam são os da coluna 1, 3 e 5. A tabela original seria essa e funcionaria de modo que cada vez uma pessoa diferente iria preencher os dados com valores diferentes. E agora eu preciso transpor esses dados para colunas diferentes porem na mesma aba. Me avise se ainda não ficou claro a ideia, por favor! Você está me ajudando mtu

Oii, então o código criado ficou mtu bom! Atende quase tudo o que eu preciso. Vou tentar te explicar melhor o que acontece com a tabela usando valores diferentes. Vou mandar os prints aqui. As duas figuras são em abas diferentes. Antes eu usei "Nome do Produto" como exemplo, agora acho que com esse exemplo ficou mais claro. Obrigada desde jaaa Oii, então o código criado ficou mtu bom! Atende quase tudo o que eu preciso. Vou tentar te explicar melhor o que acontece com a tabela usando valores diferentes. Vou mandar os prints aqui. As duas figuras são em abas diferentes. Antes eu usei "Nome do Produto" como exemplo, agora acho que com esse exemplo ficou mais claro. Obrigada desde jaaa. Creio que só falte adicionar um loop das informações e colocar todas na mesma aba.

Certo, muito obrigada!