Notifications

Clear all

Exclusão de Linha - Tamanho Definido de "K2:P2"

2024 - VBA & Macros

Post Recente por chook 13 anos atrás

4 Posts

2 Usuários

0 Reactions

1,056 Visualizações

RSS

chook

(@chook)

Posts: 197

Estimable Member

Topic starter

Bom dia amigos,
estou com um probleminha aqui, acho que é simples, vamos lá:

Tenho um Combobox que seleciono o nome. O que preciso é que seja excluido a linha que o produto está conforme lógica abaixo:

Private Sub CommandButton3_Click()
i = pegar a linha que o cursos está
    Range("Ki:Pi").Select
    Selection.Delete Shift:=xlUp
End Sub

Atenciosamente,

Alex Lacerda
[email protected]

Postado : 29/03/2012 6:34 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Sinceramente eu não entendi!!

Seria nesta parte...(.EntireRow.Delete)

Selection..EntireRow.Delete Shift:=xlUp

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 29/03/2012 7:05 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

chok, me baseando pelo que postou, você quer Deletar somente os Ranges selecionados e não a Linha, veja que temos diferença nos termos.

Deletar Linha = Apagar a linha inteira, e não precisariamos usar Range("K2:P2")

Deletar somente a Seleção, já se explica por si mesmo.

Mas lembre-se que o cursor tem de estar na linha, e como não postou como irá chegar até a mesma, então, se for esta segunda a opção que quer, a instrução seria :
Neste caso estamos deletando o range selecionado, movendo para cima a linha.

Sub Del_Selecao()

    Dim i
    
    i = ActiveCell.Row
    
    Range("K" & i & ":P" & i).Select
    Selection.Delete Shift:=xlUp

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 29/03/2012 7:21 am