[Albino]

boas.
haverá alguma forma de fazer com que a data assumida numa celula com a formula hoje(), não se altere no dia seguinte para esse dia.

tenho nas celulas da coluna b a seguinte formula
=se(a5=”pago”;hoje();””)
o que pretendo é que depois de a condição ser verdadeira essa data não se altere, isto é fique sempre nessa celula.
obrigado

[Anónimo]

bom dia albino,

também já tive este problema e a melhor solução que encontrei foi esta que vai no ficheiro, adapta à tua medida.

esquece a formula com a data de hoje, com formulas já mais conseguiras manter a data de hoje no mesmo dia, pelo menos que eu saiba.

deverás utilizar o evento worksheet_change da seguinte forma:

private sub worksheet_change(byval target as excel.range)

application.enableevents = false

if target.column = 1 then range(“$b$” & target.row).value = date

application.enableevents = true

end sub

[attachment]c:fakepathtravar data volatil.xlsm[/attachment]

este procedimento encontrei-o algures na net já algum tempo, também o uso numa situação parecida.

vg-excel-gest
victor gamboa

[Anónimo]

Travardatavolatil.zip

[Albino]

olá vg
obrigado, a tua solução funciona, no entanto qualquer que seja a entrada na celula, vai escrever a data na outra.

eu adaptei outra solução um pouco mais complexa, mas que para o meu caso tráz vantagens pois a celula do “if” contem sempre dados.
o que eu pretendo é que só escreve a data quando a celula tiver detrminado valor, que no meu caso é a palavra “pago”

este código tem uma desvantagem que é ter de ser activada por botão de comando, portanto não faz a introdução automáticamente o que seria o ideal.
haverá forma de adaptar o código para efectuar isso?

ou então adaptar o teu código para que só edite a celula quando a outra tenha detrminado valor?

eis o código que usei:

sub fixadata()

activesheet.unprotect
for linha = 1 to 100

if range(“f” & linha).value = “pago” then
application.enableevents = false
range(“i1”).select ‘ celula a ser copiada onde esta a formula hoje()
selection.copy
range(“g” & linha).select ‘ celula de destino
selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=false
application.cutcopymode = false
end if

next linha
activesheet.protect

end sub

obrigado

[Anónimo]

boa noite albino,

a solução que apresentei era apenas um exemplo básico que não tinha nada haver com a tua especificidade, que deverias ter aproveitado para adaptar mas no entanto como copiei o código directamente da fonte adaptai-o devidamente, aproveitando as referencias do teu exemplo, portanto deverá funcionar na tua folha de cálculo automaticamente sem recurso a botões.

private sub worksheet_change(byval target as excel.range)

if target.column = 6 and range(“$f$” & target.row) = “pago” then range(“$g$” & target.row).value = date

end sub

e mais uma vez apenas com uma linha de código conseguimos o nosso objectivo, não esqueças de colar este procedimento no módulo privado da folha que pretendes que ele funcione, tal como está no exemplo que se anexa, ok.

deverás testar primeiro no exemplo que anexo.

vg-excel-gest
victor gamboa
Travardatavolatil2.zip

[Albino]

olá victor
funciona bem.
só alterei a palavra “pago” para minusculas uma vez que a formatação da celula tem um tipo de letra que aparece sempre em maiusculas. senão obrigava -me a escrever sempre a 1ª letra em maiuscula.

de resto está expectacular.
obrigado.

ps: que leitura me aconselhas para aprender/progredir mais no vba?

[Anónimo]

olá albino,

mais um truque:

se quiseres que o procedimento funcione sem te preocupares com maiúsculas e minúsculas, terás de fazer esta declaração inicial:

option compare text

ou seja:

option compare text

private sub worksheet_change(byval target as excel.range)

if target.column = 6 and range(“$f$” & target.row) = “pago” then range(“$g$” & target.row).value = date

end sub

a partir de agora no procedimento ou na folha podes por pago, pago, pago, pago, etc… que vai funcionar sempre.

quanto a leituras vou ver o que melhor te posso aconselhar para aprender as bases do vba e depois digo-te.

[Albino]

olá victor

5 estrelas

obrigado

[Autor]

Artigos