Ola Pessoal,

Estou com um erro no comando atualizar, quando seleciono um cliente ex: 2 e faço a atualização e clico no botão atualizar ele atualiza normal, mas continua descendo as linhas da planilha acrescentando a atualização até achar um campo vazio, segue o codigo:

Private Sub cmdAtualizar_Click()

    Dim codigo As String
    Dim Linha As Integer
            
    If Trim(Me.TextCodigo.Value) = "" Then
        Me.TextCodigo.SetFocus
        MsgBox "Existe um ou mais campos vazios, Por favor verificar", vbInformation, "Cadastro de Paciêntes"

        Exit Sub
    End If

    Linha = 2
    codigo = TextCodigo
    
    Sheets("CadPaciente").Select
    Do Until Sheets("CadPaciente").Cells(Linha, 1) = ""

        If Sheets("CadPaciente").Cells(Linha, 2) = codigo Then
            Sheets("CadPaciente").Cells(Linha, 1).Select

            ActiveCell.Offset(0, 1).Value = TextCodigo.Text
            ActiveCell.Offset(0, 2).Value = TextNome.Text
            ActiveCell.Offset(0, 3).Value = TextEndereco.Text
            ActiveCell.Offset(0, 4).Value = TextBairro.Text
            ActiveCell.Offset(0, 5).Value = TextCidade.Text
            ActiveCell.Offset(0, 6).Value = TextFone1.Text
            ActiveCell.Offset(0, 7).Value = TextFone2.Text
            ActiveCell.Offset(0, 8).Value = TextEmail.Text
            ActiveCell.Offset(0, 9).Value = ComboPlano.Text
            ActiveCell.Offset(0, 10).Value = ComboStatus.Text
            ActiveCell.Offset(0, 11).Value = TextDtInicio.Text
            ActiveCell.Offset(0, 12).Value = TextDtFinal.Text
            ActiveCell.Offset(0, 13).Value = ComboProfissional.Text
            ActiveCell.Offset(0, 14).Value = TextArea.Text
            ActiveCell.Offset(0, 15).Value = TextQtAtende.Text
            ActiveCell.Offset(0, 16).Value = TextValorAtendeUn
            ActiveCell.Offset(0, 17).Value = TextDiagnostico.Text

            MsgBox "Atualização efetuada com sucesso", vbInformation, "Cadastro de Paciêntes"

        End If

        Linha = Linha + 1

    Loop

       ActiveWorkbook.Save

End Sub

Já Li e reli todo o codigo, mas sou novo então algo esta passando direto.

Agradeço desde já pela ajuda.

Junior Lins
SKP: [email protected]