none
apagar linha mas não na totalidade RRS feed

  • 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 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 

    sexta-feira, 22 de novembro de 2013 11:44

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

    segunda-feira, 25 de novembro de 2013 23:42
    Moderador
  • Obrigado pela resposta

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

    terça-feira, 26 de novembro de 2013 22:43
  • Qual é o conteúdo de txtApagar? E quais os valores estão na coluna A?

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

    terça-feira, 26 de novembro de 2013 23:42
    Moderador
  • 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

     

     
    quarta-feira, 27 de novembro de 2013 13:56
  • 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

    quinta-feira, 28 de novembro de 2013 23:01
    Moderador