Estava pensando em fazer algo com o Select Case, mas nao sei usar muito bem, tipo... seria assim:
Case 1
optbuttonChamadoTI = True
sheets("chamadoTI").cells(x,y)
'carrega os dados digitados no form.
???.Value = txtNome.Value
???.Value = ComboBox1.Value
???.Value = TextBox1.Value
???.Value = txtDescrição.Value
Case 2
optbuttonChamadoTI = True
sheets("chamadoTI").cells(x,y)
'carrega os dados digitados no form.
???.Value = txtNome.Value
???.Value = ComboBox1.Value
???.Value = TextBox1.Value
???.Value = txtDescrição.Value
end select
Acho que ta tudo errado....o "???" não sei o que colocar...
Reinaldo vc fez curso de excel???? Tem pela internet?
Esses são meus comandos no VBA:
Private Sub cmdOk_Click()
If txtNome.Text = "" Then
MsgBox "Digite o Nome de usuario"
txtNome.SetFocus
Exit Sub
End If
'Procurar a primeira célula vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
Range("B2").Select
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
'Carregar os dados digitados nas caixas de texto para a planilha
ActiveCell.Value = txtNome.Value
ActiveCell.Offset(0, 0).Value = txtNome.Value
ActiveCell.Offset(0, 1).Value = ComboBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox1.Value
ActiveCell.Offset(0, 3).Value = txtDescrição.Value
'Inserir data e hora
ActiveCell.Offset(0, 4).Value = Now
Dim Response
Sheets(1).Select
Response = MsgBox("Deseja inserir novo chamado?", vbYesNo, "Atenção")
Select Case Response
Case 6
txtNome.Value = Empty
txtDescrição.Value = Empty
TextBox1.Value = Empty
txtNumeroChamado = Empty
'Limpar as caixas de combinação
ComboBox1.Value = Empty
'Limpar os botões CheckBox e OptionButton
optChamadoTI.Value = False
optIntegração.Value = False
'Limpar as caixas de texto
Sheets("TI").Select
Case 7
ActiveWorkbook.Close savechanges:=True
End Select
End Sub
Private Sub ComboBox1_Change()
TextBox1.Value = Cells(ComboBox1.ListIndex + 4, 19).Value
End Sub
Private Sub Image1_Click()
MsgBox "Quando for Chamado T.I, e não se relacionar a uma empresa, favor colocar Empresa 0000 - Nenhum.", vbOKOnly, "Ajuda"
End Sub
Private Sub cmdCancelar_Click()
'quando o botão cancelar for pressionado, o formulario deverá ser descarregado.
'Limpar as caixas de texto
txtNome.Text = Empty
txtDescrição.Text = Empty
TextBox1.Text = Empty
txtNumeroChamado.Text = Empty
'Limpar as caixas de combinação
'Colocar o foco na primeira caixa de texto
txtNome.SetFocus
End Sub
Private Sub optChamadoTI_Change()
Sheets("CHAMADOS TI").Visible = True
Sheets("CHAMADOS TI").Select
End Sub
Private Sub optIntegração_Change()
Sheets("INTEGRAÇÃO").Visible = True
Sheets("INTEGRAÇÃO").Select
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Hauahuahua, Não vai conseguir sair!!" _
, vbCritical _
, "Erro"
End If
End Sub
Private Sub cmbSair_Click()
Sheets("TI").Select
Unload Me
End Sub
Postado : 06/09/2012 8:37 am