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

[luisfranope1109]

Gostaria de saber algumas instruções para CRIAR FORMULÁRIO e, principalmente ENVIAR OS DADOS PARA A PRÓXIMA LINHA EM BRANCO na planilha.

Desde já obrigado!!!

[jeffsilveira]

Veja esse arquivo simples para teste.

http://www.sendspace.com/file/ubvlup

[luisfranope1109]

É exatamente isso.

Enviei minha planilha pra que possa dar uma olhada... ja fiz ate o escopo do formulario no VBasic.... http://www.sendspace.com/file/9i1pha

valeu.... *-*

[Clobs]

Como eu programo?

[jeffsilveira]

A planilha não possui nenhum formulário!

Monte um como você mencionou e reenvie, por favor.

Abraços.

[luisfranope1109]

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 *--*

[Patropi]

Boa tarde Luis

Baixe a planilha e veja se é isto que você deseja:

Não se esqueça de habiltar as macros ao acessar a planilha.

http://www.sendspace.com/file/r2yah3

Dê retorno.

Um abraço.

[luisfranope1109]

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

[Patropi]

Luis

Assim fica complicado fazer, você fica passando aos poucos.

Tem que postar uma planilha com todos os detalhes possíveis.

Sobre as fórmulas, quando você aplicar as fórmulas nas colunas, no fórmulário não aparecerá mais a opção de preenchimento.

Att

[luisfranope1109]

De qq forma, valeu, obrigado.

A planilha é aquela que mandei... ond eu colocaria so aqueles dados...

É difícil uma explicação de como fazer esse formulario e, principalmente, como fazer ele enviar para a primeira celula em branco da planilha?

Grande abraço

LU:D

[Patropi]

Luis

Como eu peguei o bonde andando e eu nem sabia que você tinha psotado uma pplanilha.

Veja como ficou na tua planilha:

http://www.sendspace.com/file/i8n15s

Dê retorno.

Abs.

[luisfranope1109]

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

[Patropi]

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.

[luisfranope1109]

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

[jeffsilveira]

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.

[luisfranope1109]

Obrigado Jeff....

Vou pesquisar aqui mas se puder adiantar onde coloco esse codigo.

Obrigado mesmo

Lu

[jeffsilveira]

Aqui está a planilha com o código no formulário:

http://www.sendspace.com/file/bnrulz

[luisfranope1109]

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

[jeffsilveira]

Em um módulo qualquer cole o código abaixo e atribua a macro 'chama' ao botão (clique direito no botão, atribuir macro e escolha 'chama').

Sub chama()
UserForm3.Show
End Sub