Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
CELULA COM O NOME L...
 
Notifications
Clear all

CELULA COM O NOME LOGADO OU DO COMPUTADOR

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

Olá de novo pessoal, olha eu aqui pedindo socorro novamente.
tenho uma planilha que fica em rede e é alimentada por pelo menos 3 pessoas ao mesmo tempo.
gostaria de saber como faço para que em uma célula na frente da linha preenchida aparecesse o nome do usuário que fez aquele lançamento
tentei esse modulo que encontrei em um forum:

Function NomeUsuario()
NomeUsuario = Application.UserName
End Function

porem, quando um usuário insere algo ele muda todos os registros para o nome daquele usuário quero um modo q em cada linha apareça o nome do usuário que preencheu apenas aquela linha e não mude mais

por exemplo

usuario | data | placa do veiculo | horario de entrada...
dave.n |22/9 | abc0000 | 7:30...
rose.s |22/9 | bca1234 | 8:30...
dave.n |22/9 | zxy4321 | 9:30...
rose.s |22/9 | txt9876 | 10:30...
.
.
.
se alguém puder me ajudar

 
Postado : 22/09/2016 8:44 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Use esse codigo no modulo da planilha em que é necessario registrar o usuario.

Private Sub Worksheet_Change(ByVal Target As Range)
 ' Caso deseje que o registro seja feito apos a alteração em outra coluna troque o 2 pelo numero da coluna desejada
If Target.Column <> 2 Then Exit Sub
' Sempre que alterar a coluna B
 ' Caso deseje que o registro seja feito apos a alteração em outra coluna troque o B pela coluna
If Range("B" & Target.Row).Value <> "" Then  
' Registra o Usuario logado na maquina na coluna A
 ' Se quiser registrar a maquina que foi feita a alteração troque para ComputerName com aspas
   Range("A" & Target.Row).Value = Environ("Username")
   
End If

End Sub

Registra o nome do usuario na coluna A a cada alteração na coluna B

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 22/09/2016 9:17 am
 Dave
(@dave)
Posts: 6
Active Member
Topic starter
 

Olá Amigo, nao consegui utilizar esse codigo. sou novato com essa parte de macros e módulos.colei ele em um modulo na minha planilha e como utilizo?

 
Postado : 22/09/2016 11:33 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Eu disse no modulo da planilha.

Alt +F11

Cole o codigo

Veja o exemplo

Abra o arquivo abaixo

Digite algo na coluna B da plan1

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 22/09/2016 1:12 pm
 Dave
(@dave)
Posts: 6
Active Member
Topic starter
 

Mano perfeito!, eu não havia entendido que era pra escrever na coluna B agora entendi deu sertissimo.
muito obrigado

 
Postado : 26/09/2016 1:43 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico