Boa noite, segue abaixo um "quebra-galho" o ruim é que voce terá que fazer uma macro para cada botão que está em cada linha.
Não sei quantas linhas voce terá mas com essa macro de exemplo ela vai eliminar o conteúdo da linha 11.
Se forem poucas linhas dá até para usar dessa forma, criando uma macro para cada botão.
Sub ELIMINA_LINHA11()
Rows("11:11").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
Para linha 12 voce mudaria tudo onde está 11 para 12 e assim por diante.
Postado : 10/08/2013 8:31 pm