Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  

Recommended Posts

Postado (editado)

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

Editado por Andersom Melari

Compartilhar este post


Link para o post
Compartilhar em outros sites
Postado (editado)

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

Editado por Andersom Melari

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

É possivel sim. Alterando o codigo do botão inserindo um If no começo.

  • Curtir 1

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






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

×