Excel VBA Gerador de pedidos

Andersom Melari · 19 de maio de 2018

Amigos, boa noite!

Estou desenvolvendo um novo projeto e estou precisando de ajuda no desenvolvimento de um código VBA

imagem do meu projeto

a ideia ai é ao clicar no botão adicionar ao pedido, as informações contidas nos campos conforme a tabela abaixo serem adicionados nas colunas, a cada linha inserida o código busca a próxima linha vazia e adiciona outro item quando clicar no botão, e assim por diante.

CÓDIGO DO PRODUTO = CÓD. PRODUTO [CÉLULA Q2]

CÓDIGO EAN = EAN [CÉLULA AD11]

DESCRIÇÃO PRODUTO = DESCRIÇÃO [CÉLULA F4]

TIPO ABAST. = DINÂMICA DE ABASTECIMENTO [CÉLULA S6]

LOJA = LOJA [CÉLULA AD6]

QTDE PEDIDO = PEDIDO [CÉLULA E15]

ao clicar no botão, as informações são copiadas das células acima e coladas na listagem na próxima linha vazia.

se puderem ajudar a desenvolver o VBA agradeço.

SEGUE ANEXO.

Gerador de Pedido_teste.zip

Andersom Melari · 19 de maio de 2018

Consegui fazer esse código gravando uma Macro, organizei as linhas e colunas e consegui colar, mas pelo que to vendo vou precisar de algum loop pra verificar se a próxima linha está vazia pra e adicionar outro Produto.

Sub AddPedido()
'
' Add Informações do produto a Folha de Pedido
'

'
    Sheets("Gerador de Pedido").Select
    Range("AH2,AI2,AJ2,AK2,AL2,AM2").Select
    Range("AM2").Activate
    Selection.Copy
    Sheets("Pedido").Select
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A5").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End Sub

Estou estudando, se alguém tiver uma ideia, Obrigado!

Segue anexo com a macro e o modelo atualizado.

Gerador de Pedido_macro.zip

Valteson · 19 de maio de 2018

Criei um código usando basicamente o Do while pra encontrar a primeira linha vazia.

Segue o código e a planilha.

Sub AddPedido()
'
' Adiciona o pedido à planilha Pedido
'
Dim u, v As Worksheet

'Atribue as planilhas às variáveis

Set u = Worksheets("Gerador de Pedido")
Set v = Worksheets("Pedido")

v.Select
v.Range("A4").Select

If v.Range("A4") = "" Then 'Testa se a primeira linha está vazia

v.Range("A4").Value = u.Range("Q2").Value
v.Range("B4").Value = u.Range("AD11").Value
v.Range("C4").Value = u.Range("F4").Value
v.Range("D4").Value = u.Range("S6").Value
v.Range("E4").Value = u.Range("AD6").Value
v.Range("F4").Value = u.Range("E15").Value

Else

Do While ActiveCell.Value <> "" ' Procura a primeira linha vazia
ActiveCell.Offset(1, 0).Activate    'Desce uma linha
Loop

ActiveCell.Value = u.Range("Q2").Value
ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = u.Range("AD11").Value
ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = u.Range("F4").Value
ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = u.Range("S6").Value
ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = u.Range("AD6").Value
ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = u.Range("E15").Value
ActiveCell.Offset(0, 1).Activate

End If

u.Select
u.Range("Z17").Select


End Sub

Gerador de Pedido_macro.rar