apagar linha mas não na totalidade

Question

tenho o seguinte codigo:

Private Sub apagar_Click()
Range("a2").Select


While ActiveCell <> ""
If ActiveCell = txtapagar.Text Then

ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(1, 0).Activate
Wend

End Sub

Agora em vez de me apagar toda a linha onde esta o activecell quero que me apage a linha mas só da coluna A até á D ou seja, quando digito por exemplo o numero 6 na txtapagar ele vai correr a coluna A até o numero 6 e apaga-me a linha da coluna A até a D.

Na coluna A tenho um codigo de numeração sequencial

O que me falta no codigo?

Será que me pode ajudar, obrigado 

Answer 1

Private Sub apagar_Click()
  Dim lngLast As Long
  Dim lngRow As Long
  Dim wks As Excel.Worksheet
  
  Set wks = Excel.ActiveSheet
  With wks
    lngLast = .Cells(.Rows.Count, "A").End(xlUp).Row
    For lngRow = lngLast To 2 Step -1
      If .Cells(lngRow, "A") = txtApagar Then
        .Cells(lngRow, "A").Resize(, 4).Delete Shift:=xlUp
      End If
    Next lngRow
  End With
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Obrigado pela resposta

mas nâo está a foncionar, não dá erro mas tambem nao apaga a linha

Answer 3

Qual é o conteúdo de txtApagar? E quais os valores estão na coluna A?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 4

Os valores da coluna A são sempre números de 1 até 200 ou 300, ou seja, não tem um fim especifico depende da quantidade de registos que tenho.

No txtapagar é sempre um numero.

Assim quando introduzo no txtapagar o numero 20 (por exemplo), o codigo percorre a coluna A até encontrar 20 e apaga a linha até a coluna D.

Obrigado pela atenção

 

 

Answer 5

Não estou conseguindo montar um cenário em que a macro não funciona. Poderia disponibilizar a pasta de trabalho em que está usando o código para eu testar?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br