Notifications

Clear all

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

2024 - Fórmulas Avançadas - Funções Microsoft Excel

Post Recente por Fernando Fernandes 11 anos atrás

7 Posts

1 Usuários

0 Reactions

863 Visualizações

RSS

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

planilhando 26.05.rar

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.

26_05_13_Preencher data e hora quando digitar na coluna B_Patropi.zip

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