Foto de Karla S.
Karla há 5 anos
Enviada pelo
Site

Macro para inserir linhas e copiar valores selecionados

Bom dia, numa planilha de controle de ponto, gostaria de criar macro para inserir linha e copiar os valores da linha selecionada abaixo dessa, quando o funcionário clicasse em um botão. Os botões para inserir nova linha ficam na coluna A, as datas na coluna B, o dias da semana na coluna C. Ex.: O funcionário deseja inserir nova linha com a data 01/03/2020, localizada na linha 9, coluna B. A nova linha deverá ficar logo abaixo desta. e o funcionário poderá inserir quantas linhas quiser para essa data. Da mesma forma, o funcionário deseja inserir nova linha para a data 06/03/2020 que agora foi deslocada, quando inseridas novas linhas acima. Em resumo, gostaria de uma macro para inserir linhas e copiar valores da linha selecionada para a linha logo abaixo, inserindo quantas linhas quiser.

Excel Geral
2 respostas
Professor Julio B.
Respondeu há 5 anos
Contatar Julio

Bom dia

Dá pra fazer sim por macro, mas precisa me mandar um exemplo para meu email jcbpoa2005@hotmail.com e lhe mando o resultado de você espera.

Abraços

Prof. Julio

whats (51) 99646-2523

 

 

Um professor já respondeu

Envie você também uma dúvida grátis
Ver resposta
Tutoria com IA
Converse com a Minerva IA e aprenda, tire dúvidas e resolva exercícios
Professor Everton C.
Identidade verificada
  • CPF verificado
  • E-mail verificado
Respondeu há 5 anos
Contatar Everton

Olá Karla!
Tudo bem com você?

Apesar de bem detalhada, eu não entendi muito bem a sua explicação.

Por isso, vou deixar um exemplo que copia valores e insere em nova linha ou nova planilha, você pode fazer uma adaptação para o que você deseja.

Espero que possa contribuir, não esqueça de marcar esta resposta.

Obrigado!

For linha = 1 To Rows.Count

If Worksheets("Ponto Março").Range("A" & linha).Value = "" Then

Selection.Copy

Sheets("Ponto Março").Select

Range("A" & linha).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Ponto Abril").Select

Exit Sub

End If

Next linha

Um professor já respondeu

Envie você também uma dúvida grátis
Ver resposta
Minerva IA
do Profes
Respostas na hora
100% no WhatsApp
Envie suas dúvidas pelo App. Baixe agora
Prefere professores para aulas particulares ou resolução de atividades?
Aulas particulares
Encontre um professor para combinar e agendar aulas particulares Buscar professor
Tarefas
Envie sua atividade, anexe os arquivos e receba ofertas dos professores Enviar tarefa