Inclusão de Linha (VBA)  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Inclusão de Linha (VBA)

Mensagempor chrispaiva » Seg Fev 12, 2018 8:45 pm

Prezados, boa noite.

Faz a muito tempo que estou longe de linhas de códigos e tenho usado o excel, basicamente com as formulas padrões.
Recentemente apareceu uma demanda e imagino que com alguma pesquisa e ajuda consiga fazer o quero, pois imagino não deva ser algo de extrema complexidade e gostaria das dicas de vocês qual seria a melhore maneira de implementar o código.

Problema:
1. Necessito adicionar linhas em uma tabela onde estão separadas por um determinado grupos, como identificado pelo cabeçalho "SETOR 1, SETOR, 2, ETC".

Dúvidas:
1. Em meu código "muito simples" acabei usando uma coluna com alguns números de controle para poder identificar onde não é possível inserir as linhas, foi a forma mais "burra" que encontrei.
2. Pensei se seria possível ao adicionar o botão "novo item" eu pudesse selecionar o grupo da tabela "SETOR 1, SETOR 2" e então o código adicionaria automaticamente a linha logo abaixo do grupo selecionado.
3. Ao adicionar a linha as fórmulas devem ser copiadas para o correto funcionamento.
4. Poderia até usar um formulário para dar entrada aos dados onde poderia selecionar o grupo, a descrição do produto, e os demais itens de acordo com a validação de dados já usada nas linhas, mas a ideia é que seja simples de usar nesse momento para depois quem sabe fazer algo mais elaborado. O importante é ser funcional.

Se puder contar com à ajuda e opinião do vocês, seria muito válido.
Você não está autorizado a ver ou baixar esse anexo.
chrispaiva
Membro
Membro
 
Mensagens: 5
Registrado em: Seg Fev 12, 2018 7:55 pm
Localização: Recife-PE
Has thanked: 2 times
Have thanks: 0 time

{ SO_SELECT }

Re: Inclusão de Linha (VBA)

Mensagempor klarc28 » Seg Fev 12, 2018 9:53 pm

Nas células A19 e A20, está faltando a letra "s" na palavra "exaustor".
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 470
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 160 times

Re: Inclusão de Linha (VBA)

Mensagempor chrispaiva » Seg Fev 12, 2018 10:43 pm

Olá, obrigado pelo retorno.
Baixei a planilha, mas verifiquei que só adicionou alguns botões sem códigos.
Qual era a ideia ?

Att,
chrispaiva
Membro
Membro
 
Mensagens: 5
Registrado em: Seg Fev 12, 2018 7:55 pm
Localização: Recife-PE
Has thanked: 2 times
Have thanks: 0 time

Anexo

Mensagempor klarc28 » Seg Fev 12, 2018 10:44 pm

Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
chrispaiva (Ter Fev 13, 2018 12:32 am)
klarc28
Membro
Membro
 
Mensagens: 470
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 160 times

Re: Anexo

Mensagempor chrispaiva » Ter Fev 13, 2018 12:51 am

Você diz criar uma tabela nomeada para cada sessão e então usar controles de tabela para adicionar as linhas ?

Obrigado pela planilha, seu código funcionou como desejava. Só não copiou direito as linhas de bordas e ao terminar o código fica uma célula selecionada.

Para evitar criar muitos botões para cada sessão. Poderia usar um formulário ao clicar um botão chamado "add item" e então carregar uma listbox com o conteúdo das linhas de uma tabela que contem os nomes das sessões, ou então criar um array com os nomes das sessões usando a coluna lateral com algum numero de controle, exemplo, quando encontrar o número 2 na coluna esquerda sabe que é um titulo de sessão e então armazena o texto da coluna direita para usar na lista box.
Ou então adicionar uma forma com o simbolo de (+) ao lado de cada sessão e então chamar o código.

O que acha que fica mais fácil implementar ?

Obrigado pela ajuda.
Editado pela última vez por wagner em Ter Fev 13, 2018 8:33 am, em um total de 1 vez.
Razão: Nas respostas não se deve fazer citações sem necessidade
chrispaiva
Membro
Membro
 
Mensagens: 5
Registrado em: Seg Fev 12, 2018 7:55 pm
Localização: Recife-PE
Has thanked: 2 times
Have thanks: 0 time

Anexo  [Resolvido]

Mensagempor klarc28 » Ter Fev 13, 2018 9:02 am

Se quiser adicionar ou remover setores, altere esta parte:

Código: Selecionar todos
Private Sub Workbook_Open()
Planilha1.ComboBox1.AddItem ("SETOR 1")
Planilha1.ComboBox1.AddItem ("SETOR 2")
Planilha1.ComboBox1.AddItem ("SETOR 3")

End Sub
Você não está autorizado a ver ou baixar esse anexo.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
chrispaiva (Ter Fev 13, 2018 11:12 am)
klarc28
Membro
Membro
 
Mensagens: 470
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 160 times

Re: Inclusão de Linha (VBA)

Mensagempor chrispaiva » Ter Fev 13, 2018 11:15 am

Muito grato em disponibilizar seu tempo em ajudar.

Quando comentou em usar o objeto table, dei uma pesquisada aqui e consegui fazer da seguinte forma.

Veja em anexo.

Poderia melhorar o código passando o parâmetro "nome da tabela", mas acho que assim resolve o que eu preciso.

Mais uma vez obrigado pela ajuda.
Você não está autorizado a ver ou baixar esse anexo.
chrispaiva
Membro
Membro
 
Mensagens: 5
Registrado em: Seg Fev 12, 2018 7:55 pm
Localização: Recife-PE
Has thanked: 2 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot], klarc28, Rui Maciel e 3 visitantes