Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 MACRO p/ Inserir linha apos encontrar um determinado valor

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
RogerioPioli



Mensagens : 8
Data de inscrição : 21/09/2012

MensagemAssunto: MACRO p/ Inserir linha apos encontrar um determinado valor   Sex Set 21, 2012 6:09 am

Ola pessoal,

Sou novo no forum, conheço pouco de macro/vba e estou precisando de ajuda.
Agradeço desde ja a colaboração.

Tenho uma arquivo com duas pastas (Plan1 e Plan2), este arquivo é enviado para meus representantes para fazerem o pedido de compras.

Na Plan1, tenho uma planilha para digitação de pedido,
Na Plan2, tenho a lista de preços para que quando digito o código do produto na Plan1, ele preenche automaticamente a descrição, preço, IPI, etc...

Até ai tudo bem, usei formula PROCV e funciona perfeitamente.

O que preciso é criar um botão na Plan1, para que quando precisar incluir um novo produto na Plan2, ele procure o código mais próximo, inclua uma linha abaixo para digitar as informações deste novo produto (como código, descrição, valor, IPI, NCM, etc...)

Segue exemplo da planilha abaixo:
..... A .........B........ C ....... D
1
LISTA DE PREÇOS - JAN/2012
2
3 Cod. Descricao ..... UN R$ Aliq. IPI NCM / Clas. Fiscal
4 310 INTERRUPTOR PC 10,00 15% 85365090
5 311 INTERRUPTOR PC 10,00 4% 85365090-EX01
6 312 INTERRUPTOR PC 10,00 4% 85365090-EX01
7 317 INTERRUPTOR PC 10,00 4% 85365090
8 318 INTERRUPTOR PC 10,00 4% 85365090

Então, por exemplo: Preciso incluir o novo produto 315, ao clicar no botão, abra uma janela para eu digitar 315 ai ele deve procurar na Plan2 o menor numero mais proximo (neste caso, o numero menor seria o 312 que esta na linha 6 coluna A) inlcuir uma linha após, ou seja, na linha 7 para eu digitar os dados através de um formulario, digo atraves de um formulario porque a Plan2 é oculta para o usuario.

Agradeço muito se alguem puder ajudar com uma macro para isto.

Obs.: Encontrei exemplos de códigos mas nao consegui adaptar nenhum....rsrsrs

Obrigado
Rogerio




Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: MACRO p/ Inserir linha apos encontrar um determinado valor   Sex Set 21, 2012 1:36 pm

Bom dia!!

Seja bem vindo!!! cheers

Poste seuarquivo em site gratuito como senspace e outros e nos mando o link...


Exemplo...tente adaptar
Código:
Private Sub CmdSalvar_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets.Application.Sheets("Nome_Sua_Planilha_Aqui")
iRow = ws.Cells(Rows.Count, 2) _
 .End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = TextCod.Value
ws.Cells(iRow, 2).Value = TextNome.Value
ws.Cells(iRow, 3).Value = TextEndereco.Value
ws.Cells(iRow, 4).Value = TextBairro.Value
ws.Cells(iRow, 5).Value = TextCidade.Value
ws.Cells(iRow, 6).Value = ComboBox1.Value
ws.Cells(iRow, 7).Value = TextFone1.Value
ws.Cells(iRow, 8).Value = TextFone2.Value
ws.Cells(iRow, 9).Value = TextEmail.Value
ws.Cells(iRow, 10).Value = TextObs.Value
ws.Cells(iRow, 11).Value = TextData.Value

MsgBox "os dados foram salvos com sucesso!!", vbOKOnly, "Cadastro salvo"

End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
RogerioPioli



Mensagens : 8
Data de inscrição : 21/09/2012

MensagemAssunto: Re: MACRO p/ Inserir linha apos encontrar um determinado valor   Sex Set 21, 2012 3:39 pm

alexandrevba escreveu:
Bom dia!!

Seja bem vindo!!! cheers

Poste seuarquivo em site gratuito como senspace e outros e nos mando o link...


Exemplo...tente adaptar
Código:
Private Sub CmdSalvar_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets.Application.Sheets("Nome_Sua_Planilha_Aqui")
iRow = ws.Cells(Rows.Count, 2) _
 .End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = TextCod.Value
ws.Cells(iRow, 2).Value = TextNome.Value
ws.Cells(iRow, 3).Value = TextEndereco.Value
ws.Cells(iRow, 4).Value = TextBairro.Value
ws.Cells(iRow, 5).Value = TextCidade.Value
ws.Cells(iRow, 6).Value = ComboBox1.Value
ws.Cells(iRow, 7).Value = TextFone1.Value
ws.Cells(iRow, 8).Value = TextFone2.Value
ws.Cells(iRow, 9).Value = TextEmail.Value
ws.Cells(iRow, 10).Value = TextObs.Value
ws.Cells(iRow, 11).Value = TextData.Value

MsgBox "os dados foram salvos com sucesso!!", vbOKOnly, "Cadastro salvo"

End Sub

Obrigado Alexandre

Vou tentar adaptar este código, mas pelo que vi e entendi esse código seria para gravar os dados na planilha, ok?
mas antes de gravar como identificar em que linha deve ser incluido? tipo ele deve percorrer a coluna A procurando o valor que quero inserir para ai inserir uma linha e gravar os dados.

A ordem dos fatores creio que nao interfere, por exemplo, eu posso primeiro abrir um form e digitar os dados (e o código) que quero incluir e quando clicar em gravar ai ele vai procurar o linha onde deve ser incluido o código de maneira que a Plan2 fique sempre em ordem crescente de código, mas ai é que é meu maior problema, como fazer identificar a linha onde deve ser inserida, ja que meus código nao são uma sequencia 1, 2, 3, 4, 5, 6, etc.... temos diversas linhas de produtos e cada uma começa com um numero, ai sim dentro dessa linha de produtos tem uma sequencia, ex.: 310, 311, 312, 317, 318, 3300, 3311. Ai lanço um novo produto por ex.: o 315, preciso que inclua entre o 312 e o 317...

Nao sei se fui claro...rsrs
Vou tentar postar a planilha para facilitar e lhe informo.

Grato
rogerio
Voltar ao Topo Ir em baixo
Ver perfil do usuário
RogerioPioli



Mensagens : 8
Data de inscrição : 21/09/2012

MensagemAssunto: Re: MACRO p/ Inserir linha apos encontrar um determinado valor   Sex Set 21, 2012 3:50 pm

Alexandre

Ja postei o arquivo mas nao consigo postar o link

*******sendspace.com/file/1vebnu

a senha da planilha é um (1) espaço

muito obrigado pelo ajuda.

Rogerio
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: MACRO p/ Inserir linha apos encontrar um determinado valor   Hoje à(s) 8:56 am

Voltar ao Topo Ir em baixo
 
MACRO p/ Inserir linha apos encontrar um determinado valor
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Mudar cor das linhas do fórum (inserir uma linha)
» Como inserir dados no MEIO de um arquivo txt
» Bug no fórum após inserir CSS
» Colocar imagem em determinado local do fórum
» [Resolvido]Consulta Inserir Valor do Parâmetro

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: