Localizar ultima linha preenchida e escrever na próxima linha em branco

Question

Olá pessoal, bom dia!

 Eu tenho uma planilha com cabeçalho dos dados na linha 3 começando a partir da coluna C e os dados na linha 4.

 Tenho o mesmo cabeçalho na linha 7 começando também a partir da coluna C.

Gostaria de fazer uma macro que localiza-se a última linha preenchida na coluna C e escrevesse os dados da linha 4

na próxima linha em branco.

Answer 1

Pode colocar um exemplo desta Planilha?

---

Rafael Hoffmann

Answer 2

Como posso colocar a planilha disponível aqui?

Answer 3

E o que tem nas linhas 5 e 6?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 4

São linhas em branco. Gostaria que a cada clique que eu desse em um botão ele acrescentasse uma linha no final da planilha com os novos dados. Você quer que eu hospede a planilha nesse site que vc passou? É isso?

Answer 5

Não, este site é apenas minha assinatura.

A macro abaixo adiciona na última célula em branco da coluna C o conteúdo de uma inputbox:

Sub InsereRegistro()
  Cells(Rows.Count, "C").End(xlUp).Offset(1) = InputBox("Insira o registro:")
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 6

Na verdade eu queria que ele copiasse o conteúdo da linha 4 e colasse na última linha em branco da coluna C. Tem como fazer isso também?

Answer 7

Sub InsereRegistro()
 Cells(Rows.Count, "C").End(xlUp).Offset(1) = Range("C4")
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 8

Inseri na planilha e ele não fez nada. Esse Range ("C4") ele vai copiar a linha 4 toda?

Answer 9

envia em meu e-mail: [e-mail]

---

Rafael Hoffmann

Answer 10

Mandei agora.

Answer 11

Sub InsereRegistro()
 Rows(4).Copy Destination:=Cells(Rows.Count, "C").End(xlUp).Offset(1).EntireRow
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br