Notifications
Clear all

Rotina em UserForm

2 Posts
2 Usuários
0 Reactions
1,044 Visualizações
(@freitasag)
Posts: 0
New Member
Topic starter
 

Bom dia Amigos,
Foi criado uma UserForm em uma planilha de dados para nos ajudar a inserir as informações na planilha,adicionamos um botão em um menu nessa planilha,porém quando clicamos no botão para inserir as informações,além de aparecer a Userform criada nos trás junto a planilha que esta em oculta a onde as informações serão imputadas.
Alguém poderia me ajudar para que quando ao clicar no botão,só aparecer a Userform e não aparecer a planilha onde será imputada as informações.

Private Sub CommandButton1_Click()
Dim cod 'Rotina para inserir os dados no estoque
Sheets("ENTRADA").Select 'Selciona a planilha entrada
Range("A60000").End(xlUp).Offset(1, 0).Select 'Seleciona a proxima linha disponivel para cadastro na coluna A
ActiveCell.Offset(0, 0).Value = Me.TextBox1.Value ' Lancar os valores das textbox's na planilha Coluna A
ActiveCell.Offset(0, 1).Value = Me.TextBox2.Value ' Lancar os valores das textbox's na planilha Coluna B
ActiveCell.Offset(0, 2).Value = Me.TextBox3.Value ' Lancar os valores das textbox's na planilha Coluna C
ActiveCell.Offset(0, 3).Value = Me.TextBox4.Value ' Lancar os valores das textbox's na planilha Coluna D
ActiveCell.Offset(0, 4).Value = Me.TextBox5.Value ' Lancar os valores das textbox's na planilha Coluna E
ActiveCell.Offset(0, 5).Value = Me.ComboBox1.Value ' Lancar os valores das textbox's na planilha Coluna F

'Limpas os textbox
Me.TextBox2 = Empty
Me.TextBox3 = Empty
Me.TextBox4 = Empty
Me.TextBox5 = Empty
Me.ComboBox1.Value = ""
Me.TextBox2.SetFocus
cod = Range("A60000").End(xlUp).Offset(0, 0).Value
Me.TextBox1 = cod + 1

End Sub

Obrigado

 
Postado : 26/06/2016 8:20 am
(@mprudencio)
Posts: 0
New Member
 

Disponibilize o arquivo

 
Postado : 26/06/2016 8:25 am