Postada em 17/09/2011 18:40 hs
Ola turma do VBWEB
Estou iniciando na programação e estou tentando fazer um simples sistema de cadastro de VBA no Excel. Fiz a planilha que vai receber os dados, o formulario mais quando peço para execultar o formulario da o seguinte erro. "Erro de tempo de execução 9". "Subscrito fora do intervalo". Aplanilha do excel tem os seguintes campos - Nome, endereço, numero, bairro, cidade, estado e email. Abaixo vai o codigo;
Private Sub UserForm_Initialize()
CarregarCaixa
Sheets("Cadastro").Select
Range("A1048576").End(xlUp).Offset(1, 0).Select
End Sub
Sub CarregarCaixa()
Dim estado(26) As String
estado(0) = "AC"
estado(1) = "AL"
estado(2) = "AM"
estado(3) = "AP"
estado(4) = "BA"
estado(5) = "CE"
estado(6) = "DF"
estado(7) = "ES"
estado(8) = "GO"
estado(9) = "MA"
estado(10) = "MG"
estado(11) = "MS"
estado(12) = "MT"
estado(13) = "PA"
estado(14) = "PB"
estado(15) = "PE"
estado(16) = "PI"
estado(17) = "PR"
estado(18) = "RJ"
estado(19) = "RN"
estado(20) = "RO"
estado(21) = "RR"
estado(22) = "RS"
estado(23) = "SC"
estado(24) = "SE"
estado(25) = "SP"
estado(26) = "TO"
ComboEstado.List = estado()
End Sub
Private Sub BcoCadastrar_Click()
If Me.TextNome.Value = "" Then
MsgBox "Preencha o campoNome.", vbExclamation, "Aviso"
Me.TextNome.SetFocus
Exit Sub
Elself Me.TextEnd.Value = "" Then
MsgBox "Preencha o campo endereço.", vbExclamation, "Aviso"
Me.TextEnd.SetFocus
Exit Sub
Elself Me.TextNumero.Value = "" Then
MsgBox "Preencha o campo Numero.", vbExclamation, "Aviso"
Me.TextNumero.SetFocus
Exit Sub
Elself Me.TextBairro.Value = "" Then
MsgBox "Preencha o campo Bairro.", vbExclamation, "Aviso"
Me.TextBairro.SetFocus
Exit Sub
Elself Me.TextCidade.Value = "" Then
MsgBox "Preencha ocampo Cidade.", vbExclamation, "Aviso"
Me.TextCidade.SetFocus
Exit Sub
Elself Me.TextEmail.Value ="" Then
MsgBox "Preencha o campo Email.", vbExclamation, "Aviso"
Me.TextEmail.SetFocus
Exit Sub
Elself Me.ComboEstado.Value = "" Then
MsgBox "Escolha o estado.", vbExclamation, "Aviso"
Me.ComboEstado.SetFocus
Exit Sub
End If
Rem Grava os dados
ActiveCell.Value = Me.TextNome.Value
ActiveCell.Offset(0, 1).Value = Me.TextEnd.Value
ActiveCell.Offset(0, 2).Value = Me.TextNumero.Value
ActiveCell.Offset(0, 3).Value = Me.TextBairro.Value
ActiveCell.Offset(0, 4).Value = Me.TextCidade.Value
ActiveCell.Offset(0, 5).Value = Me.ComboEstado.Value
ActiveCell.Offset(0, 6).Value = Me.TextEmail
Rem Localiza a próxima celula vazia
Range("A1048576").End(xlUp).Offset(1, 0).Select
End Sub
Private Sub BcoFechar_Click()
Unload Me
End Sub
Private Sub BcoLimpar_Click()
TextNome = ""
TextEnd = ""
TextNumero = ""
TextBairro = ""
TextCidade = ""
TextEmail = ""
End Sub
Edson Rodrigues
|
