Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Entrada e Saída de ...
 
Notifications
Clear all

Entrada e Saída de materiais

 
2024 - VBA & Macros
Post Recente por denisw 10 anos atrás
3 Posts
3 Usuários
0 Reactions
1,353 Visualizações
RSS
brenner
 brenner
(@brenner)
Posts: 27
Eminent Member
Topic starter
 

Olá galera,

Estou fazendo uma planilha básica de controle de materiais, e quero automatizar o processo o máximo possível, e minha idéia é fazer macros que ao selecionar "ENTRADA" ou "SAIDA", me auxiliem sem ter que preencher célula por célular no EXCEL.

Tipo, Chegou 250 canetas no dia 11/08/2014.

Ao invés de lançar isso manualmente na planilha (Abaixo), quero usar um useform que insira essa informação automaticamente, tanto pra entrada como pra saída.

Abs a todos.

Cotrole de Estoque.7z

Igor Brenner

[email protected]

"Em guerra nuclear eu tenho um canivete suiço?"

 
Postado : 11/08/2014 8:20 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Além das postagens em nossa base, leia:
http://www.tomasvasquez.com.br/blog/?s=modelos

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/08/2014 8:29 am
 denisw
(@denisw)
Posts: 64
Trusted Member
 

Private Sub CommandButton2_Click()
ThisWorkbook.Worksheets("NOME DA PLANILHA").Activate
Range("A2").Select 'A CÉLULA ONDE COMEÇA O CADASTRO
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox4.Value
ActiveCell.Offset(0, 1).Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox2.Value
ActiveCell.Offset(0, 3).Value = TextBox3.Value (SE OUVER MAIS TEXT BOX SÓ ADICIONAR)

 
Postado : 22/08/2014 10:03 am
Forum Jump:
  Tópico Anterior
Próximo Tópico