Excluir dados de uma Linha sem apagá-la por inteiro

[Luan Valle]

Olá! 

Sou novo por aqui e preciso da ajuda de vocês. Estou criando uma planilha para uma igreja lançar seus dízimos e suas despesas. Criei um formulário de lançamentos e no código, há uma opção de pesquisar pelo número de lançamento e apagar aquele lançamento da pesquisa. O problema é que o código está apagando também o número de lançamento, que está na primeira coluna (A:A).

Como fazer para apagar somente a partir do número de lançamento?

 

Abaixo, o código que uso e um print do formulário com a planilha.

 

Private Sub bt_excluir_Click()
'Declarar a variável Resp para receber uma resposta
Dim Resp As Integer
'Fazer a busca do registro digitado pelo usuário
With Worksheets("Saídas").Range("A:A")
Set c = .Find(txt_lançamento.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Resp = MsgBox("Tem certeza que deseja excluir o registro?", vbYesNo, "Confirmação")
If Resp = vbYes Then
c.Select
ActiveCell.Delete
Selection.EntireRow.Delete
'Limpar as caixas de texto
txt_data.Value = Empty
txt_empresa.Value = Empty
txt_cnpj.Value = Empty
txt_nf.Value = Empty
txt_documento.Value = Empty
txt_discriminação.Value = Empty
txt_banco.Value = Empty
txt_valor.Value = Empty
txt_juros.Value = Empty
txt_data.SetFocus
Else
MsgBox "O registro não será excluído!"
End If
Else
MsgBox "Registro não excluído"
End If
End With
Exit Sub

End Sub

 

Aguardo pela ajuda de vocês.

[Alyson Ronnan Martins]

Tentou mudar essa linha de código?

Selection.EntireRow.Delete

 

[Luan Valle]

Em 07/05/2018 at 22:09, Alyson Ronnan Martins disse:

Tentou mudar essa linha de código?

Selection.EntireRow.Delete

 

Não, e ainda não consegui o que queria. Pensei em anexar um link de download da planilha, caso disponha a ajudar.

[Basole]

@Luan Valle sim coloque o link de download da planilha, fica mais fácil as pessoas entenderem, e lhe ajudar.

[Luan Valle]

Galera, consegui!

Na verdade, excluí essa opção e deixei para que a pessoa que lançar os dados apague da forma manual. Só protegi a planilha para não apagar a sequência de números. Obrigado!