Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Código VB para Indexar Produtos

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Adão José Silva
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sáb Jul 23, 2011 8:01 am

Código VB para Indexar Produtos

Mensagem por Adão José Silva »

Bom dia.
Alguém poderia me ajudar com um código em VB no Excel (não servem funções já existentes no excel) tem que ser uma macro com código VB que desse um loop na planilha do excel que é muito extensa, onde indexasse os produtos com o mesmo nome e pularia uma linha quando começasse outro produto com outro nome.
EX.:
maçã
maçã

pera
pera

banana
banana

Agradeço desde já.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Código VB para Indexar Produtos

Mensagem por joseA »

Seja bem vindo ao fórum Adão,

Não sei se entendí corretamente sua solicitação, vejamos:
Terias na plan.

maçã
maçã
pera
pera
banana
banana

e querias inserir uma linha abaixo do produto que tiver o subsequente diferente?

Se for isso, penso que as linhas abaixo lhe atenderão:

Código: Selecionar todos

Sub IndexarLinha()
    i = 2
    While Cells(i, 1).Value <> ""
        If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
            Rows(i).Insert
            i = i + 1
        End If
        i = i + 1
    Wend
End Sub


Adão José Silva
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sáb Jul 23, 2011 8:01 am

Re: Código VB para Indexar Produtos

Mensagem por Adão José Silva »

José, boa tarde.
É quase isto, só que quando mudar o produto pula-se a linha, como exemplo abaixo, se pude me ajudar agradeço muito.

Sds

Produtos

abacaxi
abacaxi
abacaxi
abacaxi
abacaxi
abacaxi
abacaxi

banana
banana
banana
banana
banana
banana
banana

graviola
graviola
graviola
graviola
graviola
graviola
graviola

laranja
laranja
laranja
laranja
laranja
laranja
laranja

maçã
maçã
maçã
maçã
maçã
maçã
maçã

mamão
mamão
mamão
mamão
mamão
mamão
mamão

melancia
melancia
melancia
melancia
melancia
melancia
melancia

pera
pera
pera
pera
pera
pera
pera

uva
uva
uva
uva
uva
uva
uva


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Código VB para Indexar Produtos

Mensagem por joseA »

Veja aplicação...
Anexos
IndexarLinhas.zip
(8.76 KiB) Baixado 252 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Adão José Silva
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sáb Jul 23, 2011 8:01 am

Re: Código VB para Indexar Produtos

Mensagem por Adão José Silva »

Obrigado, José, é isso mesmo. Você acaba de resolver meu problema!

Grato.


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Código VB para Indexar Produtos

Mensagem por joseA »

Estando ao nosso alcance disponha.


Adão José Silva
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sáb Jul 23, 2011 8:01 am

Re: Código VB para Indexar Produtos

Mensagem por Adão José Silva »

José, boa noite.
Desculpe-me, mas agora estou tendo dificuldades para somar os valores referentes a cada produtos justamente na linha inserida, estou usando o codigo da linha abaixo mas está somando tudo. Poderia me ajudar ?
Range("F" & i).FormulaLocal = "=soma(F1:F" & iLinha - 1 & ")"

Grato.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder