Pergunte aqui
1

Excluir linha através de botão

perguntadas 2020-04-12 05:04:10 +0200

imagem do gravatar de Walter Filho

Como faço um botão de pressão para excluir uma determinada linha de outra planilha? Já criei dez botões numa mesma planilha e gravei uma macro para excluir a linha, mas sempre a mesma linha é deletada; quero escolher qual linha cada botão vai excluir. Estou criando formulários e as informações são registradas em duas planilhas. Preciso colocar um botão de excluir uma linha numa das planilhas e apagar os dados das duas planilhas simultaneamente, excluindo as linhas.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Ola @Walter Filho, seja bem vindo ao Grupo.

Terá de criar quantas macros forem necessárias para cada botão, ou única deletando sempre a linha ativa.

Anexe um exemplo do arquivo, e detalhes das alterações, use editar sua pergunta e com o ícone clipe anexe o arquivo.

-----------------------------------------------------------------------------

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Não use Adicionar resposta para comentário. Grato.

imagem do gravatar de SchiavinattoSchiavinatto ( 2020-04-12 16:48:55 +0200 )editar

1 Resposta

0

respondidas 2020-04-16 19:29:42 +0200

imagem do gravatar de Conrado

@Walter Filho, seja bem vindo

Segue código para excluir linha correspondente informada

    Sub DeletaLinha 
    Dim oDOc as Object, oPlan as Object
    Dim Linha as Long
    Dim l as Long

    oDoc = ThisCOmponent
    rem aqui você define qual o nome da aba
    oPlan = oDoc.Sheets.getByName("Planilha1")
    rem aqui você informa o número da linha que deseja excluir, lembrando que para programação, linha 1 = 0
    Linha = InputBox ("Informe o número da linha que deseja apagar")
    l = Linha - 1
    rem aqui é o comando para excluir a linha informada no imputbox
    oPlan.rows.removeByIndex(l, 1)
End Sub
editar assinalar como ofensivo Excluir Link mais

Comentários

Para a linha da célula ativa:

Sub DeletarLinhaAtiva
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:DeleteRows", "", 0, Array())
End Sub
imagem do gravatar de SchiavinattoSchiavinatto ( 2020-04-16 22:29:39 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

2 seguidores

Estatísticas

Perguntadas: 2020-04-12 05:04:10 +0200

Lidas: 19 vezes

Última atualização: Apr 16