MACRO COMBOBOX EXCEL
estou tendo um certo problema para gerar uma macro no Excel, comecei a pouco tempo a projetar então ainda estou aprendendo.
O problema é o seguinte:
Quando insiro valores no fomulário que criei, ha 2 combobox, uma de SO (sistema operacional, essa funciona bem) e outra de [Ô]Local da maquina[Ô] (meu problema).
gostaria que essa combobox citada, colocasse os dados inseridos no formulario que eu selecionar nela.
segue a macro que eu fiz e que só não funciona essa função. segue junto um anexo da planilha (não consegui add ela aqui, então coloquei ela no 4Shared)!!
http://www.4shared.com/file/ZDNxKYmNce/inventario_MACRO.html
qualquer ajuda sera bem vinda!! Obrigado!!
Citação:Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox2_Click()
End Sub
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets([Ô]Dialog MT[Ô]).Activate
Range([Ô]A1[Ô]).Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 5).Value = TextBox6.Value
ActiveCell.Offset(0, 6).Value = ComboBox1.Value
ActiveCell.Offset(0, 7).Value = ComboBox2.Value
TextBox1.Value = Empty
TextBox2.Value = Empty
TextBox3.Value = Empty
TextBox4.Value = Empty
TextBox5.Value = Empty
TextBox6.Value = Empty
ComboBox1.Value = Empty
ComboBox2.Value = Empty
TextBox1.SetFocus
MsgBox ([Ô]Registro cadastrada com sucesso![Ô])
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
adicionei um botão em cada planilha com logo das empesas correspondentes, porem eu gostaria mesmo que ela possuÃsse um único botão para cadastro com as opções da combobox...
ainda to aceitando ajuda!! vlw!!
como trabalhei nela pesquisando no google e aprendendo aos poucos irei postar o progresso dela aqui, caso ajude alguem que queira fazer algo parecido ou ate o mesmo...
Citação:Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox2_Click()
End Sub
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets([Ô]Dialog MT[Ô]).Activate
Range([Ô]A1[Ô]).Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 6).Value = TextBox6.Value
ActiveCell.Offset(0, 5).Value = ComboBox1.Value
ActiveCell.Offset(0, 7).Value = ComboBox2.Value
TextBox1.Value = Empty
TextBox2.Value = Empty
TextBox3.Value = Empty
TextBox4.Value = Empty
TextBox5.Value = Empty
TextBox6.Value = Empty
ComboBox1.Value = Empty
ComboBox2.Value = Empty
TextBox1.SetFocus
MsgBox ([Ô]Registro cadastrada com sucesso![Ô])
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
sendo que para colocar um botão em cada planilha e que seu botão faça um formulário q preencha cada uma, eu altero apenas o nome da [Ô]sheet[Ô] para o nome da planilha que eu gostaria que dados digitados focem.
Como irei usar varios botões em diferentes planilhas e cada uma tera uma macro com formulario e um [Ô]userform[Ô], coloquei nomes para não me perder, e para ter certeza que elas iram mesmo funcionar, coloquei tbm uma imagem de cada empresa que corresponde sua planilha...
para q o botão funcione na planilha eu adicionei a seguinte linha de comando obviamente mudando o nome [Ô]userform[Ô] original pelo nome que coloquei no formulário correspondente...
então eu conclui o trabalho assim, agora irei usar minha planilha com formulário para atualizar o inventario de maquinas e melhorar o meu trabalho como tecnico em TI, facilitando o atendimento e cadastramento de novas maquinas!
estou completamente aberto a sugestões!!! qualquer duvida comuniquem aqui, ou via MP, eu sou novo no forum e só consegui isso tudo em uma semana me dedicando!!
vlw pessoal!!!