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

  • Pergunta

  • 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.

    quinta-feira, 2 de junho de 2011 13:56

Todas as Respostas

  • Pode colocar um exemplo desta Planilha?
    Rafael Hoffmann
    quinta-feira, 2 de junho de 2011 14:36
  • Como posso colocar a planilha disponível aqui?

    quinta-feira, 2 de junho de 2011 14:55
  • E o que tem nas linhas 5 e 6?
    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    quinta-feira, 2 de junho de 2011 14:59
  • 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?
    quinta-feira, 2 de junho de 2011 15:06
  • 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
    quinta-feira, 2 de junho de 2011 15:11
  • 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?

    quinta-feira, 2 de junho de 2011 15:37
  • Sub InsereRegistro()
     Cells(Rows.Count, "C").End(xlUp).Offset(1) = Range("C4")
    End Sub

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    quinta-feira, 2 de junho de 2011 15:49
  • Inseri na planilha e ele não fez nada. Esse Range ("C4") ele vai copiar a linha 4 toda?

    quinta-feira, 2 de junho de 2011 16:05
  • envia em meu e-mail: rafa_hoffmann@hotmail.com
    Rafael Hoffmann
    quinta-feira, 2 de junho de 2011 16:42
  • Mandei agora.
    quinta-feira, 2 de junho de 2011 16:48
  • 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
    quinta-feira, 2 de junho de 2011 19:36