Página 1 de 1
Inserir ou Apagar linha onde se encontra o objecto
Enviado: 17 Nov 2017 às 08:11
por idaalexandra
Ola pessoal!
Eu gostaria de saber se existe alguma macro para apagar uma linha onde se encontra o objecto.
Por exemplo, eu tenho um quadrado na celula E3 e quero apagar a linha onde o quadrado está, a linha 3. Qual a macro que localiza o objecto e apaga a linha onde esta?
Obrigadaaa!
Re: Inserir ou Apagar linha onde se encontra o objecto
Enviado: 17 Nov 2017 às 09:54
por babdallas
Veja se este pequeno exemplo ajuda.
Inserir ou Apagar linha onde se encontra o objecto
Enviado: 17 Nov 2017 às 10:53
por idaalexandra
Obrigada pela resposta.
O que eu queria mesmo era eliminar a linha onde está o objecto. No seu exemplo seria carregar em excluir e excluir esse mesmo botão.
Re: Inserir ou Apagar linha onde se encontra o objecto
Enviado: 17 Nov 2017 às 11:11
por babdallas
No exemplo que eu mandei, as linhas 2 e 10 têm forma ou imagem. Ao clicar no botão Excluir, estas linhas são excluídas. Não é isso o que deseja?
Se não for, sugiro postar uma planilha exemplo com o resultado esperado. Aí fica mais fácil de ajudar.
Inserir ou Apagar linha onde se encontra o objecto
Enviado: 17 Nov 2017 às 11:18
por idaalexandra
Aqui está
Re: Inserir ou Apagar linha onde se encontra o objecto
Enviado: 17 Nov 2017 às 15:18
por babdallas
Desculpe a ignorância, mas não entendi. O que quer dizer com "ao carregar na forma azul/laranja/verde"?
Se puder explicar com um pouco mais de detalhe, eu agradeço.
Re: Inserir ou Apagar linha onde se encontra o objecto
Enviado: 17 Nov 2017 às 17:47
por osvaldomp
idaalexandra escreveu:
O que eu queria mesmo era eliminar a linha onde está o objecto.
Código: Selecionar todosSub ExcluiOuInsereLinha()
If Left(ActiveSheet.Shapes(Application.Caller).Name, 3) = "Rec" Then
Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row).Delete
ElseIf Left(ActiveSheet.Shapes(Application.Caller).Name, 3) = "Sin" Then
Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row).Insert
End If
End Sub
obs. todas as figuras devem ser vinculados à macro
Re: Inserir ou Apagar linha onde se encontra o objecto
Enviado: 17 Nov 2017 às 22:46
por babdallas
Com a resposta do Osvaldo eu entendi o que você quer. Segue anexo, com código muito parecido com o do Osvaldo. Só renomeei as autoformas porque estava dando erro no código e não deixei as autoformas moverem-se conforme as linhas são inseridas ou excluídas.
Inserir ou Apagar linha onde se encontra o objecto
Enviado: 20 Nov 2017 às 07:30
por idaalexandra
Obrigado aos 2. É isso mesmo! Será que podem ajudar só em mais uma coisinha?. Envio o anexo.
Re: Inserir ou Apagar linha onde se encontra o objecto
Enviado: 20 Nov 2017 às 08:58
por babdallas
Veja se é isso.