Ir ao conteúdo
  • Cadastre-se

EXCEL: Como criar formulário e enviar para próxima linha em branco?


luisfranope1109

Posts recomendados

Eu fiz o formulário e fui no salvar... mas nao sabia q nao salva o projeto do VBasic.... nem sei como salvar.

Bom, a ideia seria um formulario para entrar com os campos:

NOME DO PRODUTO:

MARCA:

PESO TOTAL (g):

PESO POR PORÇÃO (g):

CALORIA POR PORÇÃO (g):

QUANTIDADE EM GRAMAS (g):

E depois de clicar botão ENVIAR esses dados ficarem na planilha depois da ultima linha com informações (dados).

Imagino nao ser difícil... mas, sendo sincero, nao sei fazer.

Obrigado meu caro *--*:P

Link para o comentário
Compartilhar em outros sites

Certinho... agora o lance é como fazer...

Obs.: alguns campos deverão ficar em branco na planilha, ou seja, serão feitos calculos. Ex.:

Nome produto | Marca | peso total | peso porção | caloria porção | CALORIAS 1| qtd em gramas | CALORIAS 2...

onde CALORIAS 1 sera 'peso total' * 'caloria porção' / 'peso porção' e CALORIAS 2 outros calculos

Bom, se puder me ajudar, agradeço...

Luis

Link para o comentário
Compartilhar em outros sites

Mas o formulario nao envia os dados.

você pegou um "template" ponto... porque nao sei porque botões RESTAURAR, LOCALIZAR ANTERIOR, LOCALIZAR PROXIMA e CRITERIOS... eu iria criar apenas os botões LIMPAR, CANCELAR e ENVIAR.

Se puder me passar mais ou menos como fez esse formulario... agradeço.

Obrigado

Luis

Link para o comentário
Compartilhar em outros sites

Luis

Eu usei o formulário do excel, já que você não fez o teu formulário.

Faça como o Jef falou, faça um fórmulário como você deseja e nós faremos os códigos VBA.

O segredo, é que na hora de Salvar, abaixo do nome você tem que selecionar:

Pasta de Trabalho Habilitada para Macros do Excel, senão o fórmulário não é salvo.

Link para o comentário
Compartilhar em outros sites

Valeu.

Estou enviando a planilha completa. O formulário é o UserForm3 que esta na planilha Calorias Novo. Em Calorias Novo já poderá ver que nas células das colunas G, I e K tem cálculos que preciso executar.

Se der pra fazer, fico agradecido.

Att.

Luis

Link: http://www.sendspace.com/file/zz6ex9

Link para o comentário
Compartilhar em outros sites

O código do seu botão 'Envia' pode ser esse:

Private Sub CommandButton3_Click()

'primeira linha em branco em A
Dim lin As Long
lin = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'lança os dados das textbox
Cells(lin, 1) = Me.TextBox6
Cells(lin, 2) = Me.TextBox1
Cells(lin, 3) = Me.TextBox2
Cells(lin, 4) = Me.TextBox5
Cells(lin, 5) = Me.TextBox3
Cells(lin, 6) = Me.TextBox4
Cells(lin, 8) = Me.TextBox7

'insere fórmulas
'em G
Cells(lin, 7).FormulaR1C1 = "=IFERROR(RC[-3]*RC[-1]/RC[-2],"""")"
'em I
Cells(lin, 9).FormulaR1C1 = "=IFERROR(RC[2]*RC[-2]/100,"""")"
'em K
Cells(lin, 11).FormulaR1C1 = "=IFERROR(100*RC[-3]/RC[-7],"""")"

End Sub

Experimente, faça um teste e volte a nos comunicar.

Ainda faltam alguns comandos complementares como desativar atualização de tela, verificar se todos os campos foram preenchidos, trocar a TextBox6 'Doce ou Salgado' por uma ComboBox associada a uma lista, etc.

Mas para começar e fazer o que você pediu já serve.

Abraços.

Link para o comentário
Compartilhar em outros sites

Agora eu criei um botão FORMULARIO (pra chamar o formulario) e consegui chamar o formulario... falta agora fazer com q os dados enviados cheguem como numeros para serem formatados como ja havia personalizado: ex.: 120 seria modificado pra 120 g (### "g"). também estou quebrando cabeça pra alinhar o TAB pra ir passando de campo em campo no formulario... se puder falar algo pra ajudar, nao dispenso.

Muito obrigado por tudo

Lu

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...