MACRO p/ Inserir linha apos encontrar um determinado valor

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

Bom dia!!

Seja bem vindo!!!

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

alexandrevba escreveu:

Bom dia!!

Seja bem vindo!!!

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

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