none
alterando uma celula é atualiado a horas e a data RRS feed

  • Pergunta

  • Boa tarde pessoal

    blz?

    Tenho uma planilha com alguns dados vinculados de um programa de automação. Esses dados (valores numerico) estao inseridos na linha 1.

    Queria q toda vez que esse valores mudassem, na linha 3 atualizasse a horas e na linha 4 a data. Pesquisando, encontrei um codigo em VBA e adequei a minha necessidade porem a a horas e a data nao atualiza. Se eu alterar uma celula, por exemplo a A2, a data e a hora é atualizada, porem quando a celula esta vinculada isso nao acontece. Fiz um teste vinculando uma outra celula da mesma planilha para a celula A2, mesmo assim a data e a hora nao atualiza.

    Seria possivel vazer isto? 

    Desde ja agradeço a atenção!

    abraços

    sexta-feira, 24 de fevereiro de 2012 19:16

Todas as Respostas

  • Teste esse código e veja se lhe auxilia na solução do seu problema

    sempre que houver alteração na linha 1 será atualizado as linhas 3 e 4 com data e hora respectivamente

    Private Sub Worksheet_Change(ByVal Target As Range)
    
        If Target.Row = 1 And Target.Value <> "" Then
            atualiza (Target.Column)
        End If
    
    End Sub
    Function atualiza(coluna As Integer)
    
            Cells(3, coluna) = CDate(Date)
            Cells(4, coluna) = Format(CDate(Now), "hh:mm:ss")
    
    End Function

    sábado, 25 de fevereiro de 2012 18:58
  • Boa tarde Jhonatan!!

    Ja agradeço pela atenção, mas quando eu faço um vínculo de uma célula de outra linha para uma célula da linha 1 e mudo o valor da outra célula, a horas e a data não atualiza. tenta fazer este teste, talvez VC entenda melhor o que estou dizendo.

    Mas agradeço mto a atenção!!


    • Editado Renatocb89 sábado, 25 de fevereiro de 2012 19:12
    sábado, 25 de fevereiro de 2012 19:11
  • Renato,

    Se possivel poste um exemplo da sua planilha ou mande no meu email, para que possa entender melhor sua dúvida.

    jhonait@hotmail.com


    sábado, 25 de fevereiro de 2012 19:20