Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Código VB para Indexar Produtos
-
- Colaborador
- Mensagens: 12
- Registrado em: Sáb Jul 23, 2011 8:01 am
Código VB para Indexar Produtos
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á.
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á.
- joseA
- Jedi
- Mensagens: 1048
- Registrado em: Qui Out 22, 2009 7:22 am
- Localização: Cel. Fabriciano - MG
Re: Código VB para Indexar Produtos
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:
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
-
- Colaborador
- Mensagens: 12
- Registrado em: Sáb Jul 23, 2011 8:01 am
Re: Código VB para Indexar Produtos
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
É 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
- joseA
- Jedi
- Mensagens: 1048
- Registrado em: Qui Out 22, 2009 7:22 am
- Localização: Cel. Fabriciano - MG
Re: Código VB para Indexar Produtos
Veja aplicação...
- Anexos
-
- IndexarLinhas.zip
- (8.76 KiB) Baixado 252 vezes
-
- Colaborador
- Mensagens: 12
- Registrado em: Sáb Jul 23, 2011 8:01 am
Re: Código VB para Indexar Produtos
Obrigado, José, é isso mesmo. Você acaba de resolver meu problema!
Grato.
Grato.
-
- Colaborador
- Mensagens: 12
- Registrado em: Sáb Jul 23, 2011 8:01 am
Re: Código VB para Indexar Produtos
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.
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.