Ir ao conteúdo
  • Cadastre-se

Recommended Posts

Amigos, boa noite!

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

imagem do meu projeto

image.thumb.png.7b22de5aa1a9183f8f456b215105ad5d.png

 

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.

image.png.3a70af7a6c5b3e899fba1854d5dd1ee9.png

 

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Opa, obrigado meu amigo!

Funcionou perfeitamente! muito bom mesmo, Obrigado pela ajuda.

 

Deixa te perguntar é possível ativar o botão somente quando atender um número de condições?

por exemplo

condição "pedir ao comprador" ou "pedir ao reabastecimento" ativar o botão, se essas condições não foram atendidas no status a botão fica bloqueado!

da pra fazer isso?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×