Macro para selecionar a célula onde está o botão

[Ingo M P Américo]

Olá pessoal!

 

Criei uma planilha onde cada linha possui um botão para excluí-la.

Acontece que não estou conseguindo selecionar a linha que deve ser excluída, pois não consigo selecionar especificamente a célula onde está o botão e, a partir daí, dar resize na seleção via VBA.

 

Alguém sabe como fazer isso?

 

Já tentei de várias formas, mas os resultados que obtive não são os que eu quero.

Abaixo, estão as duas formas que consegui fazer:

 

MÉTODO 1:

Sub apagarLinha()
'
' apagarLinha
'
'''Para funcionar, precisa selecionar manualmente a primeira célula da linha que será excluída.
ActiveCell.Offset(0, 1).Select
Selection.Resize(Selection.Rows.Count + 2, _
Selection.Columns.Count + 7).Select
'Selection.Delete Shift:=xlUp
End Sub

MÉTODO 2:

 

Sub apagarLinha()
'
' apagarLinha
'
''' Para funcionar, precisa que o nome seja atribuído à primeira célula da linha que será excluída
Range("nomeDaCelula").Select
Selection.Resize(Selection.Rows.Count + 2, _
Selection.Columns.Count + 8).Select
Selection.Delete Shift:=xlUp
End Sub

 

[Ingo M P Américo]

Com tantos "crânios" em Excel aqui, ninguém pode me ajudar? 

[Wendell Menezes]

Olá Ingo,

 

A probabilidade de que alguém te ajude aumenta exponencialmente quando você disponibiliza uma cópia do seu arquivo para download. Ninguém quer perder tempo propondo uma solução que não seja exatamente o que você precisa.

 

Abraço

[Ingo M P Américo]

@Wendell Menezes Obrigado pela dica!

 

Estou mandando um exemplo anexo (com VBA comentado) e abaixo uma imagem do que eu estou querendo fazer: quando clicar em "apagar", apagar a linha da tabela e o botão.

 

exemploApagarLinha.zip

[Wendell Menezes]

Bom dia @Ingo M P Américo,

 

Siga os passos abaixo:

 

1. Clique com o botão direito do mouse sobre o botão da planilha > Formatar Control... > Não mover ou dimensionar com as células.

 

Esse passo é necessário para que o botão não seja deletado junto com a linha.

 

2. Atribua o script abaixo ao botão:

Sub Delete_Row()
    Rows(ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Delete
End Sub

Note que se o botão ocupar o espaço de várias células a do canto superior esquerdo será levada em consideração.

 

Abraço

[Ingo M P Américo]

@Wendell Menezes Funcionou perfeitamente com uma linha. Obrigado!

 

Porém, tentei reproduzir a lógica em um range e não funcionou (vide imagem abaixo). Ao invés de deletar as linhas que são ocupadas pelo botão, apenas a primeira linha do range é apagada.

 

 

Tentei fazer conforme abaixo, mas dá "erro em tempo de execução".

 

Sub Delete_Row()
    Rows(ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Select
    Selection.Resize(Selection.Rows.Count + 2, _
    Selection.Columns.Count + 3).Select
    Selection.Delete
End Sub

Estou mandando o exemplo anexo.

 

exemploApagarLinha.zip

[Wendell Menezes]

Sub Delete_Row()
    Rows(ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Resize(3).Delete
End Sub

 

[Ingo M P Américo]

@Wendell Menezes Funcionou!

Apenas modifiquei para funcionar com formas, ao invés de botão. Ficou assim:

 

Sub Delete_Row() Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row).Resize(3).Delete End Sub

 

Obrigado pela ajuda!