Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
substituir uma form...
 
Notifications
Clear all

substituir uma formula por seu resultado altomaticamente

 
2024 - VBA & Macros
Post Recente por Issamu 8 anos atrás
2 Posts
2 Usuários
0 Reactions
1,064 Visualizações
RSS
 Dave
(@dave)
Posts: 6
Active Member
Topic starter
 

galera gostaria de saber se existe uma foma de que depois que o Excel calcule a formula ela seja substituída por seu resultado sem que eu entre na célula e clique em f9.
por exemplo
tenho uma lista de registros e o campo para o nome do usuário que inseriu aquele determinado registro.
usei um modulo para aparecer o nome do usuário,

Function NomeUsuario()
NomeUsuario = Application.UserName
End Function

Porem, quando um usuário insere dados em uma nova linha todas as outras são alterados para o nome daquele usuário.
quero que cada vez que aquele modulo (função) for calculado seja convertido em texto automaticamente para que não seja recalculado.
obs todos os dados estão em uma tabela

 
Postado : 22/09/2016 12:19 pm
Issamu
 Issamu
(@issamu)
Posts: 605
Honorable Member
 

Olá!
Você pode adaptar o código abaixo, que deve ser inserido no módulo da sua planilha.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
    Target.Value = Target.Value
End If
Application.EnableEvents = True
End Sub

O intervalo considerado no código é de A1:A100, esse intervalo você tem que adaptar a realidade da sua planilha.

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 22/09/2016 12:37 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico