Erro Formulario userform excluir e editar cadastro [RESOLVIDO]

[Elaine Carvalho]

Boa Tarde,
Trabalho no serviço publico, e fiz uma planilha seguindo tutorial no youtube, para cadastrar entra e saída de pacientes. O problema não estou conseguindo editar e excluir cadastro.

Com o comando editar apresenta o erro.
Erro em tempo de execução’1004’:
O método ‘Range’ do objeto’_Global’ falhou
With Range("Pacientes")

Com o comando excluir apresenta o erro.
Erro de compilação:
O argumento não é opcional
With Worksheets = Plan2.Range("C:C")

Segue em anexo planilha.
Desde de já agradeço pela ajuda.

[Reinaldo]

"...Com o comando editar apresenta o erro..."
Experimente:

Código: Selecionar todos

Private Sub cmdeditar_Click()
 '1º Verificar se o cadastro já existe
If TxtID.Text <> "" Then
    'Editar o cadastro
    Dim linha As Range
    Dim nm As Integer
    With Range("Dados")
        Set linha = .Find(Me.TxtNome.Value)
        .Cells(linha.Row - 1, 1) = Me.TxtID.Value
        .Cells(linha.Row - 1, 3) = Me.TxtNome.Value
        .Cells(linha.Row - 1, 2) = CDate(Me.TxtEntrada.Text)
        .Cells(linha.Row - 1, 4) = CDate(Me.TxtSaida.Text)
        .Cells(linha.Row - 1, 5) = Me.TxtMotivo.Value
        .Cells(linha.Row - 1, 6) = Me.TxtObservacoes.Value
           
        Columns.AutoFit
    
        MsgBox "Alteração foi Efetuada com sucesso !!!", vbInformation, "Alteração de Cadastro de Pacientes"
    End With
End If
End Sub

"...Com o comando excluir apresenta o erro..."
Experimente:

Código: Selecionar todos

Private Sub cmdexcluir_Click()
'Declarar a variável Resp para receber uma resposta
Dim Resp As Integer
'Verificar se o texto foi digitado na caixa de pesquisa
If TxtNome.Text = "" Then
     MsgBox "Digite o Nome Do Paciente"
     TxtNome.SetFocus
     Exit Sub
End If
'Fazer a busca do registro digitado pelo usuário
With Plan2.Range("C:C")
    Set c = .Find(TxtNome.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Resp = MsgBox("Tem certeza que deseja excluir o registro?" & "De Numero de Registro:  " & TxtID.Value, vbYesNo, "Confirmação")
        
        If Resp = vbYes Then
            Rows(c.Row).Select
             Selection.EntireRow.Delete Shift:=xlUp
             'Limpar as caixas de texto
                TxtID = Empty
                TxtNome = Empty
                TxtEntrada = Empty
                TxtSaida = Empty
                TxtMotivo = Empty
                TxtObservacoes = Empty
                
             'Colocar o foco na caixa de texto
                TxtNome.SetFocus
        Else
             MsgBox "O paciente não será excluído!", vbInformation, "AVISO"
        End If
    Else
         MsgBox " Paciente não encontrado!"
    End If
End With
Atualiza
End Sub

[Elaine Carvalho]

Bom dia,
coloquei os codigos que você passou, mas ainda apresenta erro no comando editar.

"A variável do objeto ou a variável do bloco 'With" não foi definida"

E no comando excluir, esta excluindo a linha na Plan1 (Home) e não na Plan2 (Cad_Pacientes) onde estão os dados do Pacientes.

"...Com o comando editar apresenta o erro..."
Experimente:

Código: Selecionar todos

Private Sub cmdeditar_Click()
 '1º Verificar se o cadastro já existe
If TxtID.Text <> "" Then
    'Editar o cadastro
    Dim linha As Range
    Dim nm As Integer
    With Range("Dados")
        Set linha = .Find(Me.TxtNome.Value)
        .Cells(linha.Row - 1, 1) = Me.TxtID.Value
        .Cells(linha.Row - 1, 3) = Me.TxtNome.Value
        .Cells(linha.Row - 1, 2) = CDate(Me.TxtEntrada.Text)
        .Cells(linha.Row - 1, 4) = CDate(Me.TxtSaida.Text)
        .Cells(linha.Row - 1, 5) = Me.TxtMotivo.Value
        .Cells(linha.Row - 1, 6) = Me.TxtObservacoes.Value
           
        Columns.AutoFit
    
        MsgBox "Alteração foi Efetuada com sucesso !!!", vbInformation, "Alteração de Cadastro de Pacientes"
    End With
End If
End Sub

"...Com o comando excluir apresenta o erro..."
Experimente:

Código: Selecionar todos

Private Sub cmdexcluir_Click()
'Declarar a variável Resp para receber uma resposta
Dim Resp As Integer
'Verificar se o texto foi digitado na caixa de pesquisa
If TxtNome.Text = "" Then
     MsgBox "Digite o Nome Do Paciente"
     TxtNome.SetFocus
     Exit Sub
End If
'Fazer a busca do registro digitado pelo usuário
With Plan2.Range("C:C")
    Set c = .Find(TxtNome.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Resp = MsgBox("Tem certeza que deseja excluir o registro?" & "De Numero de Registro:  " & TxtID.Value, vbYesNo, "Confirmação")
        
        If Resp = vbYes Then
            Rows(c.Row).Select
             Selection.EntireRow.Delete Shift:=xlUp
             'Limpar as caixas de texto
                TxtID = Empty
                TxtNome = Empty
                TxtEntrada = Empty
                TxtSaida = Empty
                TxtMotivo = Empty
                TxtObservacoes = Empty
                
             'Colocar o foco na caixa de texto
                TxtNome.SetFocus
        Else
             MsgBox "O paciente não será excluído!", vbInformation, "AVISO"
        End If
    Else
         MsgBox " Paciente não encontrado!"
    End If
End With
Atualiza
End Sub

[Reinaldo]

Verifique

[Elaine Carvalho]

Reinaldo,
No comando excluir deu certo, porem editar ainda esta apresentando o erro.

Verifique

[Reinaldo]

Muito estranho .
Em seu modelo/exemplo (que anexei no post anterior) está ok, sem erro.
Qual o passo a passo que retorna erro?
Está utilizando o mesmo arquivo exemplo/modelo anexado?

[Elaine Carvalho]

Muito estranho .
Em seu modelo/exemplo (que anexei no post anterior) está ok, sem erro.
Qual o passo a passo que retorna erro?
Está utilizando o mesmo arquivo exemplo/modelo anexado?

Sim usei o que você anexou.
Passo a Passo.
Editei o nome Exemplo numero cinco, retirando a letra o da palavra cinco, ele editou.
Porem quando eu tentei novamente editar colocando novamente a letra o, apresentou o erro.
Tirei prints, segue em anexo.

[Reinaldo]

Bem, temos aqui um erro de conceito, não um erro de rotina/programa.
A determinação/procura de um item para edição, conforme seu modelo/exemplo inicial; é pelo nome do paciente, alterando esse nome a procura/localização retorna vazia; pois o nome alterado não é encontrado no Banco.
Sendo esse campo for passível de alteração; é preciso rever a estrutura de seu projeto no tocante a determinação do item/linha a ser modificado

[Reinaldo]

Alterei a rotina, para possibilitar alteração do Nome, veja se atende

[Elaine Carvalho]

Bem, temos aqui um erro de conceito, não um erro de rotina/programa.
A determinação/procura de um item para edição, conforme seu modelo/exemplo inicial; é pelo nome do paciente, alterando esse nome a procura/localização retorna vazia; pois o nome alterado não é encontrado no Banco.
Sendo esse campo for passível de alteração; é preciso rever a estrutura de seu projeto no tocante a determinação do item/linha a ser modificado

E realmente e um erro de conceito, pois como eu segui tutorial de youtube, e no modelos apresentado a pesquisa e feita por ID (código,numero de nf etc.) que não se edita.

Alterei a rotina, para possibilitar alteração do Nome, veja se atende

Reinaldo,
Atende sim,
Muito obrigada, por corrigir e explicar onde estava o erro.