Notifications
Clear all

DUVIDA NA UTILIZAÇÃO DA FUNÇÃO HOJE()

7 Posts
1 Usuários
0 Reactions
872 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

:roll: Boa tarde pessoal, tenho uma duvida em utilizar a função hoje() em uma serie de células onde para cada linha tem um número de pedido, colocando a hora do registro do PC, mas quando atualiza a hora todos os registros ficam com a mesma hora.

Segue ema nexo um exemplo e explicações do resultado esperado.

silva_jmp

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2013 1:56 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Sem dúvida que isso vai acontecer!!..no momento que o excel fazer o calculo hora atual será exibida!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2013 2:03 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre, tem alguma maneira das horas não alterarem, em formula ou vba?
Tem alguma sugestão?
silva_jmp

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2013 2:11 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Silva

Fiz com VBA, quando vc preencher a coluna B na coluna A é preenchida a data e a hora sem sofrer atualização.

Dê retorno.

Um abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2013 2:32 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Veja se é isso

Sub CopiarColarEspecial_AleVBA_8247()
 Dim LR As String
With Range("A1:A1000")
LR = .Range("A6555").End(xlUp).Row
.AutoFilter
.AutoFilter Field:=1, Criteria1:=">0"
.Range("A2:A" & LR).SpecialCells(xlCellTypeVisible).Select
End With

Selection.SpecialCells(xlCellTypeVisible).Select
For Each Cell In Selection
Cell.Copy
Cell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Next
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2013 3:02 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Patropi e Alexandre obrigado por mais esta ajuda, Alexandre apliquei a seu código, mas não deu nenhum resultado, coloquei o código na Plan1, Patropi sua contribuição deu certo, eu agradeço a contribuição dos dois.

silvajmp

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2013 4:24 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Eu não tive problema..
http://www.4shared.com/file/4uGprxx-/Eu ... blema.html

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2013 4:47 pm