Notifications
Clear all

Criar lista com células mescladas

11 Posts
2 Usuários
0 Reactions
1,574 Visualizações
(@bruna-b)
Posts: 6
Active Member
Topic starter
 

Bom dia, estou com dificuldade em criar listas, pois no meu caso utilizo um grupo de linhas e algumas células mescladas como anexado.
os dados em vermelho na Plan1 são os que eu preciso criar uma lista, os quais estão na Plan3.
gostaria apenas de mudar o modelo, exemplo: PVK e ali constar todos os dados que eu posso escolher 80/3200 ou 125/3200 ...
alguém pode me ajudar em relação a isso ?

 
Postado : 09/05/2014 6:40 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

bruna.b,

Não sei se entendi bem a sua necessidade. Todavia, segue após alterações.

Peço, por gentileza, da próxima vez que anexar arquivos aqui no fórum, que faça antes a compactação dos mesmos com ZIP (por menor que sejam). São as regras do Fórum.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 09/05/2014 7:01 am
(@bruna-b)
Posts: 6
Active Member
Topic starter
 

Me desculpe pela falta de atenção Wagner.
o que necessito que que a lista que esta abaixo da PVK 80 ou 125 ou 250 a qual consta na Plan3, vá para a plan1 como uma lista.
segue abaixo o modelo completo em zip.

 
Postado : 09/05/2014 7:39 am
(@bruna-b)
Posts: 6
Active Member
Topic starter
 

acho que preciso fazer uma combinação de células, pois gostaria de transferir tudo que esta abaixo do titulo PVK 80/3200 para a plan1

 
Postado : 09/05/2014 7:41 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Bom... da forma que você quer, a maneira mais prática e rápida que achei foi com a utilização de código VBA.

Desse modo, segue nova versão. Para testar, basta selecionar o modelo na célula N9 da Plan1.

Veja se assim lhe atende.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 09/05/2014 9:27 am
(@bruna-b)
Posts: 6
Active Member
Topic starter
 

é EXATAMENTE isso que eu desejo, como posso inserir mais dados ?
muuuito obrigada

 
Postado : 09/05/2014 9:57 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

O que é que você chama de inserir mais dados? Aonde? Na Plan3? Mais modelos? nas tabelas dos modelos? Mais colunas? Mais Linhas? Programação faz referência a linhas e colunas. Para inserção de dados a programação terá que ser alterada. Se os dados forem variáveis, há formas de se programar para dados variáveis, entretanto, respeitando-se certos conceitos...

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 09/05/2014 11:31 am
(@bruna-b)
Posts: 6
Active Member
Topic starter
 

o que eu preciso é inserir novos modelos, por exemplo pvk 250/3200 e assim vai.

 
Postado : 09/05/2014 11:32 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Se você inserir novos modelos na Plan3, seguindo a mesma disposição do layout dos outros três que já estão lá (ou seja, dando um espaço de uma coluna entre um modelo e outro, começando na linha 5 e terminando na linha 7), você terá pouquíssimas alterações para fazer no código. As linhas de código que lê isso são essas:

        Case Sheets("Plan3").Range("C1").Value
            Sheets("Plan3").Range("A5:F17").Copy Destination:=Sheets("Plan1").Range("J12:O24")

O que dizem essas linhas ao processador: Diz para ele examinar qual é o conteúdo da célula C1 da Plan3 e verificar se ele é igual ao que está sendo solicitado lá na célula N9 (Target.Value) da Plan1. Se for igual, diz para ele copiar a faixa A5:F17 (alusiva ao primeiro modelo PVK 80/3200 existente na plan3) para a faixa J12:024 existente na Plan1.

Assim ele faz com as duas outras tabelas dos outros dois modelos existentes. Ou seja. digamos que agora existe um outro modelo existente na faixa V1:AA17. Teria que ser inserido uma nova linha Case com o seguinte teor:

        Case Sheets("Plan3").Range("V1").Value
            Sheets("Plan3").Range("V5:AA17").Copy Destination:=Sheets("Plan1").Range("J12:O24")

OK???

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 09/05/2014 12:00 pm
(@bruna-b)
Posts: 6
Active Member
Topic starter
 

sou um pouco leiga no assunto, onde insiro esse código?

 
Postado : 09/05/2014 12:38 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Estando com a planilha do Excel aberta, utilize Alt + F11 para abrir o editor do VBA. Do lado esquerdo da janela do editor do VBA há uma janela chamada Projeto - VBAProject. Nessa janela te, alguns itens. Dê um clique duplo no item Plan1 (Plan1). Isso fará o VBA abrir a janela de edição que surgirá do lado direito do seu monitor. Lá está todo o código que faz o trabalho, conforme abaixo:

Insira outros códigos no lugar one eu assinalei com a frase OUTROS CASES DEVEM SER INSERIDOS AQUI. Depois salve tudo, feche o VBA e teste.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    If Target.Address = "$N$9" Then
        Select Case Target.Value
        Case Sheets("Plan3").Range("C1").Value
            Sheets("Plan3").Range("A5:F17").Copy Destination:=Sheets("Plan1").Range("J12:O24")
        Case Sheets("Plan3").Range("J1").Value
            Sheets("Plan3").Range("H5:M17").Copy Destination:=Sheets("Plan1").Range("J12:O24")
        Case Sheets("Plan3").Range("Q1").Value
            Sheets("Plan3").Range("O5:T17").Copy Destination:=Sheets("Plan1").Range("J12:O24")

        'OUTROS CASES DEVEM SER INSERIDOS AQUI.

        End Select
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 09/05/2014 1:15 pm