Macro para inserir linhas e copiar valores selecionados

Excel Intermediário

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.

Foto de Karla S.
Karla perguntou há 4 anos

Sabe a resposta?

Ganhe 10 pts por resposta de qualidade
Responder dúvida
2 respostas
0
votos
Nenhum usuário votou nessa resposta como útil.
Professor Julio B.
Identidade verificada
  • CPF verificado
  • E-mail verificado
Respondeu há 4 anos

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

 

 

Envie uma dúvida gratuitamente

Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.

0
votos
Nenhum usuário votou nessa resposta como útil.
Professor Everton C.
Identidade verificada
  • CPF verificado
  • E-mail verificado
Respondeu há 4 anos

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

Professores particulares de Excel

+ Ver todos
Encontre professor particular para te ajudar nos estudos
R$ 60 / h
Julio B.
Porto Alegre / RS
Julio B.
Identidade verificada
  • CPF verificado
  • E-mail verificado
Banco de Dados em Excel Excel - Power Bi Power Query em Excel
Venha aprender Computação, Excel
R$ 50 / h
Vilson B.
Ji-Paraná / RO
Vilson B.
5,0 (42 avaliações)
Horas de aulas particulares ministradas 96 horas de aula
Tarefas resolvidas 28 tarefas resolvidas
Identidade verificada
  • CPF verificado
  • E-mail verificado
1ª hora grátis
Excel Avançado Excel Básico Excel Intermediário
Mestrado: Assessoria de Administração (Instituto Politécnico do Porto)
Conheça meu método inovador "excel mão na massa" que criei para ajudar quem precisa aprender rápido e sair na frente nas vagas de emprego e trabalho!
R$ 120 / h
Johny L.
Fortaleza / CE
Johny L.
4,3 (36 avaliações)
Horas de aulas particulares ministradas 94 horas de aula
Tarefas resolvidas 29 tarefas resolvidas
Identidade verificada
  • CPF verificado
  • E-mail verificado
Excel para 3ª idade Excel Básico Excel para Curso Superior
Graduação: Engenharia Civil (IFCE - Campus Fortaleza)
Professor da UFC - Aulas de estatística práticas e aplicadas ao mercado de trabalho além de acadêmico