LIKCZ

Pessoa, boa tarde. Alguém pode me ajudar? Eu fiz um formulário vba (meu primeiro formulario), mas a data está vindo invertida (americana) "mm/dd/yyyy" e queria que fosse brasileira (dd/mm/yyyy". Segue abaixo o codigo da macro inserir = salvar Sub Inserir() bloqueado = True Dim tabela As ListObject Dim n As Integer, id As Integer Set tabela = Planilha1.ListObjects(1) id = Range("ID").Value n = tabela.Range.Rows.Count tabela.Range(n, 1).Value = id tabela.Range(n, 2).Value = UserForm1.cbbdentista.Value tabela.Range(n, 3).Value = UserForm1.txtpaciente.Value tabela.Range(n, 4).Value = UserForm1.txtdata.Value tabela.Range(n, 5).Value = UserForm1.cbbprocedimento.Value UserForm1.ListBox1.RowSource = "" tabela.ListRows.Add Range("ID").Value = id + 1 Call Atualizar_ListBox Call LimparCampos MsgBox "Ocorrência registrada com sucesso!", vbInformation, "Informação" bloqueado = False End Sub

@Midori Oi, então, não consegui..deu o mesmo erro com esse codigo. Mas, eu dei outro jeito e consegui queria te agradecer muito pela atenção e pela disposição em me ajudar, você é um profissional diferenciado!

@Midori Acho que o erro está aqui (foto anexo). Não entendo o motivo de ter dado nulo. Sub Editar() bloqueado = True Dim TABELA As ListObject Dim n As Integer, l As Integer Set TABELA = Plan1.ListObjects(1) AQUI ACONTECE O ERRO: n = UserForm1.ListBox1.Value DÁ QUE O VALOR É NULO.

@Midori Entendi.. o formulário registra bem, mas na hora de editar é que acontece o erro. O arquivo fecha =/ A macro de editar é esse... não sei o que acontece. Sub EDITAR() bloqueado = True Dim tabela As ListObject Dim n As Integer, l As Integer Set tabela = Plan1.ListObjects(1) n = Registro_Ocorrencias.ListBox1.Value l = tabela.Range.Columns().Find(n, , , xlWhole).Row tabela.Range(l, 2).Value = Registro_Ocorrencias.txtdata.Value tabela.Range(l, 3).Value = Registro_Ocorrencias.txtnomedentista.Value tabela.Range(l, 4).Value = Registro_Ocorrencias.txtnomepaciente.Value tabela.Range(l, 5).Value = Registro_Ocorrencias.cbbprocedimento.Value Call Atualizar_ListBox MsgBox "A ocorrência foi atualizada" bloqueado = False End Sub

Olá, por favor, preciso de ajuda urgente... Vi um vídeo sobre formulario e resolvi reproduzir porque a princípio atendia exatamente a uma tarefa que preciso fazer, pretendo fazer o curso completo futuramente, mas o fato é que quando estava quase acabando o formulário deu esse erro de execução: 2147417848 (80010108) " O metodo 'Value' do objeto "Range" falhou. Acredito que o erro esteja na macro editar e no campo data porque sempre que tento editar, ele fecha a planilha e abre um novo arquivo em branco. Agora, o erro que aparece é 94 null invalido. Alguém pode me ajudar? Planilha de Reporte de Ocorrencias - copia erro - clube.zip