Inquiridor
apagar linha mas não na totalidade

Pergunta
-
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 SubAgora 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
Todas as Respostas
-
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
-
-
-
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
-