Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Rotinas para excluir e copiar dados

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
douglasr20
Colaborador
Colaborador
Mensagens: 11
Registrado em: Sex Jul 03, 2020 5:56 pm

Rotinas para excluir e copiar dados

Mensagem por douglasr20 »

Olá! Ficaria muito grato se alguém pudesse me auxiliar. Tenho um planilha de cadastro de duplicatas e preciso criar uma macro Apagar que quando eu executá-la ela exclui uma linha inteira incluindo algumas células que estão bloqueadas para edição.

Imagem

E para não ir excluindo as linhas indefinidamente, essa macro também criaria uma cópia de linha anterior no final.

Imagem

E voltaria para cima na primeira célula onde não contém dados.

Imagem

Atenciosamente


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Rotinas para excluir e copiar dados

Mensagem por Raygsson »

Um comando simples para excluir uma linha pode ser esse:
Worksheets("Sheet1").Rows(3).Delete
onde
Worksheets("nome da planilha").Rows(nº da linha a ser excluida).Delete
Vai precisar aplicar alguma logica para decidir quais linhas excluir.


douglasr20
Colaborador
Colaborador
Mensagens: 11
Registrado em: Sex Jul 03, 2020 5:56 pm

Re: Rotinas para excluir e copiar dados

Mensagem por douglasr20 »

Raygsson escreveu: Ter Jul 07, 2020 12:29 am Um comando simples para excluir uma linha pode ser esse:
Worksheets("Sheet1").Rows(3).Delete
onde
Worksheets("nome da planilha").Rows(nº da linha a ser excluida).Delete
Vai precisar aplicar alguma logica para decidir quais linhas excluir.
Sim, usei esse comando e pesquisei outros. Gravei uma macro, depois alterei o código. Criei uma variável X como linha qualquer e também inseri no código desproteger e proteger planilha.

Muito obrigado pela ajuda!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder