none
Buscar a ultima linha e colar em uma determinada celula. RRS feed

  • Pergunta

  • Galera, to precisando da ajuda de vocês

    Criei uma macro, porem estou com alguns problemas, preciso que a macro vá sempre até a ultima linha da coluna e copiei este valor e cole em uma determinada celular... por exemplo:

    Adicionei uma nova linha em uma planilha, a minha macro vai até essa ultima linha da Coluna D copia o valor e retorna ele na B1, então eu adiciono uma nova linha e a macro vai até ela denovo, copia e retorna na B1

    É possível fazer isso?

    Obrigado desde já.

    Abraços!
    quarta-feira, 20 de maio de 2009 14:31

Respostas

  • Bom Dia!!
    Sim meu amigo ,

    ai vai

    Sub AlgumaCoisa()

    Dim ultimalinha as

    Eno for colocar a linha onde a rotina começará, tipo B1 .,LINHA 3

    DEPOIS QUE DECLARAR NO dIM NO For  terá que proceder da seguinte forma

    For 3 To ultima linha ,(começa na ultima linha e cola na ultima linha vazia)

    Qualquer duvida post denovo ae...
    Se der certo , coloque como respondida


    Abraços

    quinta-feira, 30 de julho de 2009 16:19
  • Use esta linha de comando para realizar a operação de transferência do valor
    Cells(1, 2) = Cells(Cells(Rows.Count, 4).End(xlUp).Row, 4)

    [ ]s
    Adilson Soledade - MOS
    sexta-feira, 31 de julho de 2009 01:05

Todas as Respostas

  • Bom Dia!!
    Sim meu amigo ,

    ai vai

    Sub AlgumaCoisa()

    Dim ultimalinha as

    Eno for colocar a linha onde a rotina começará, tipo B1 .,LINHA 3

    DEPOIS QUE DECLARAR NO dIM NO For  terá que proceder da seguinte forma

    For 3 To ultima linha ,(começa na ultima linha e cola na ultima linha vazia)

    Qualquer duvida post denovo ae...
    Se der certo , coloque como respondida


    Abraços

    quinta-feira, 30 de julho de 2009 16:19
  • Use esta linha de comando para realizar a operação de transferência do valor
    Cells(1, 2) = Cells(Cells(Rows.Count, 4).End(xlUp).Row, 4)

    [ ]s
    Adilson Soledade - MOS
    sexta-feira, 31 de julho de 2009 01:05