Exclusão de linha c...
 
Notifications
Clear all

[Resolvido] Exclusão de linha com condição.


Dunguinha
(@dunguinha)
Eminent Member Registered
Entrou: 2 anos atrás
Posts: 47
Topic starter  

Bom dia.

Preciso excluir a linha se a célula ativa estiver na coluna A.

Exemplo:

Quero excluir a linha 8, mas só exclui se a célula ativa for a "A8", se a célula ativa for "B8 ou outra qualquer", não excluir.

Assim sucessivamente.

Este tópico foi modificado 1 mês atrás by Dunguinha

ResponderCitar (Quote)
Mauro Coutinho
(@coutinho)
Estimable Member Moderator
Entrou: 2 anos atrás
Posts: 105
 

@dunguinha não compreendi direito a sua colocação, mas vamos la.

 

Primeiramente, excluir so se A8 for a celula ativa, isso vai depender de como está trabalhando com sua planila, não sei se a rotina é uma parte ou está tentando adaptar de alguma outra. Como está utilizando MsgBox para confirmação, e o botão que chama a rotina se encontra na Plan1, não necessitamos de usar as instruções Select e Activate a não ser que for utilizar de outra planilha, e se a condição é so se A8 estiver ativa, então selecionamos a mesma antes, tambem reparei que temos "Application.ScreenUpdating = False" sem ter a vondição verdadeira antes, então não há necessidade dessa linha, fiz uns ajustes da forma que eu entendi, de uma olhada se seria isso, se não for, por favor detalhe melhor, assim podemos ser mais precisos nas respostas.

Sub Exluir_Linha()

Dim texto
Dim título
Dim CxDialog

texto = "Confirma exclusão para: "
texto = texto & vbLf & "Linha " & ActiveCell & ", Nota Fiscal " & ActiveCell.Offset(0, 2)
título = " Confirmação"

CxDialog = MsgBox(texto, vbYesNo + vbInformation, título)

If CxDialog = vbYes Then

Range("A8").Select

x = ActiveCell.Row

Rows(x).Delete Shift:=xlUp

Range("C10000").End(xlUp).Offset(1, 0).Select

Exit Sub
End If

End Sub

[]s Mauro Coutinho


Dunguinha curtiu
ResponderCitar (Quote)
Anderson
(@anderson)
Estimable Member Registered
Entrou: 12 meses atrás
Posts: 172
 

@dunguinha

 

 

Sub apagarlinha()

If ActiveCell.Column = 1 Then

Plan1.Range("A" & ActiveCell.Row).EntireRow.Delete

End If

End Sub


Sub deslocarlinha()


If ActiveCell.Column = 1 Then

Plan1.Range("B" & ActiveCell.Row).Select
Plan1.Range(Selection, Selection.End(xlToRight)).Select
Selection.Delete Shift:=xlUp
End If



End Sub

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.


Dunguinha curtiu
ResponderCitar (Quote)
Dunguinha
(@dunguinha)
Eminent Member Registered
Entrou: 2 anos atrás
Posts: 47
Topic starter  

Mauro a Idea é apagar qualquer linha desde que célula ativa esteja selecionada na coluna "A".

Eu vou adaptar esse código numa planilha mais complexa.

O código do nosso amigo Anderson acertou em cheio minha necessidade.

Agradeço o empenho e a atenção dos dois em me ajudar.

 

Abraços, 


ResponderCitar (Quote)
Mauro Coutinho
(@coutinho)
Estimable Member Moderator
Entrou: 2 anos atrás
Posts: 105
 

@dunguinha foi o que eu disse de não ter compreendido, ainda bem que o colega Anderson foi mais avido, porque me atentei pelo o que escreveu :

Quero excluir a linha 8, mas só exclui se a célula ativa for a "A8", se a célula ativa for "B8 ou outra qualquer", não excluir

Assim sucessivamente.

 

Especificamente diz "Excluir a linha 8 só se A8 for a ativa e sucessivamente ela será sempre a 8.

Mas bom que resolveu.

[]s

Mauro Coutinho

 


ResponderCitar (Quote)