Excel data fixa "vba excel"

[D.G.P]

Pessoal, boa noite, alguém poderia fazer um grande favor de me ajudar com uma tarefa do EXCEL

Preciso inserir a data atual do dia, agregado com a função "SE"

Abaixo, segue algumas tentativas, sem solução,  algumas até deu certo na hora de inserir, mas quando atualizo os filtros acaba atualizando de acordo com a data vigente

<Function Teste1()
    With Application
        .SendKeys "^;"
    End With
End Function>



<Function Teste2()
  SendKeys ("^;")
End Function>


<Function Teste3()

DataFixa = Format(Now(), "DD/MM/YYYY")

End Function>

Desde já, Muito Obrigado!

[Basole]

Desculpe mas nao entendi sua demanda 

 

[D.G.P]

Eu preciso criar uma função igual a =HOJE(), mas que seja fixa, que não altere no dia seguinte e nem quando altero algo na planilha

[devair1010]

@David Guilherme Perandré    você quer usar códigos vba para isso ou na planilha mesmo ? 

 

[D.G.P]

17 minutos atrás, devair1010 disse:

@David Guilherme Perandré    você quer usar códigos vba para isso ou na planilha mesmo ? 

 

Se você puder me passar as duas opções será ótimo 

[Basole]

@David Guilherme Perandré para os dados da celula com a formula Hoje não se alterarem voce precisa converte-los em valores

Segue exemplo:

Cole o codigo abaixo no modulo vbe da sua planilha (aba) .

E altere no codigo o intervalo das celulas que deseja inserir a formula

Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
     If Not Intersect(Target, Range("A2:A100")) Is Nothing Then  
         With Target
         .Value = .Value
         End With
     End If
  On Error GoTo 0
End Sub

 

[D.G.P]

Em 25/03/2020 às 22:08, Basole disse:

@David Guilherme Perandré para os dados da celula com a formula Hoje se alterarem voce prccisa converter a celula em valores

Segue exemplo:

Cole o codigo abaixo no modulo vbe da sua planilha (aba) .

E altere no codigo o intervalo das celulas que deseja inserir a formula

Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
 If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
   On Error GoTo 0
 With Target
 .Value = .Value
 End With
 End If
End Sub

Deu certo quando eu uso a função =HOJE(), Mas quando uso combinada com a função =SE, ele não aceita eu apertar o enter                           minha inteção é basicamente essas >>>> 

 =SE(B2="F";=HOJE();"")

 

 

adicionado 7 minutos depois

corrigindo a fórmula : 

=se(b2="f";hoje();"ok")

adicionado 21 minutos depois

uma coisa que eu tentei usar foi o SendKeys como função com a teclas "CTRL+;" mas deu erro

[Basole]

Alterei para converter a celula apenas se o resultado for Hoje()

Ou seja se o resultado da formula for Hoje() entao substituirá por 25/03/2020

Caso contrario continuaá a formula com o resultado Ok 

Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
 If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
  
 With Target
    If Target.Value = VBA.Date Then
     .Value = .Value
    End If
 End With
 
 End If
  On Error GoTo 0
End Sub

 

[D.G.P]

 

^^ segue acima meu projeto

Tentei adaptar no meu projeto, mas não consegui, tem hora que muda os nomes das funções para inglês kkkk
Você tem alguma maneira mais simples?

adicionado 15 minutos depois

está dando algum tipo de bug no excel

[Basole]

Experimente desta forma 

 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 5 And Target.Row > 1 Then
        If Target.Value <> "" Then
            Application.EnableEvents = False
         If Target.Offset(, 1) = "C" Then
            With Target
                .Value = VBA.Date
                .NumberFormat = "dd/mm/yyyy"
            End With
          End If
        End If
    End If
    
    Application.EnableEvents = True
    
End Sub

Se nao der certo disponibilize o arquivo ou um exemplo

 

 

[D.G.P]

AJUDA DATA FIXA_CLUBE DO HARDWARE.xlsx

 

Acho melhor eu te enviar o arquivo, fica mais fácil

Muito obrigado!

adicionado 1 minuto depois

34 minutos atrás, Basole disse:

Experimente desta forma 

 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 5 And Target.Row > 1 Then
        If Target.Value <> "" Then
            Application.EnableEvents = False
         If Target.Offset(, 1) = "C" Then
            With Target
                .Value = VBA.Date
                .NumberFormat = "dd/mm/yyyy"
            End With
          End If
        End If
    End If
    
    Application.EnableEvents = True
    
End Sub

Se nao der certo disponibilize o arquivo ou um exemplo

 

 

AJUDA DATA FIXA_CLUBE DO HARDWARE.xlsx

 

Segue o arquivo em anexo

[Basole]

@David Guilherme Perandré nao exatamente qual coluna voce faz as alteracoes 

 

Mas considerando a coluna F segue exemplo

   * substitua o codigo anterior por este: 

Private Sub Worksheet_Calculate()
Dim target As Range
Set target = ActiveCell
If target.Column = 6 And target.Row > 1 Then
        If target.Value <> "" Then
         If target.Value = "C" Then
         Application.EnableEvents = False
            With target.Offset(, -1)
                .Value = VBA.Date
                .NumberFormat = "dd/mm/yyyy"
                   If .Errors(9).Value Then
                      .Errors(9).Ignore = True
                   End If
            End With
            Application.EnableEvents = True
          End If
        End If
    End If
End Sub

 

 

[D.G.P]

Boa noite amigo, desculpa a demora, mas não deu certo!
E COPIEI E COLEI NO VBA