Este fórum está sendo desativado

[Davenightmare]

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

[alexandrevba]

Boa tarde!!

Poste o arquivo modelo contendo todo o código fonte.
O exemplo, insere usuário e data, após duplo click na célula correspondente baseado no interlo de A1:A5 e B5:B5.

Código: Selecionar todos

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     
    Dim r As Excel.Range
     
    Set r = Union(Range("A1:A5"), Range("B1:B5"))
     
    If Intersect(r, Target) Is Nothing Then
        Exit Sub
    End If
     
    Cells(Target.Row, 1).Value = Environ("USERNAME")
    Cells(Target.Row, 3).Value = Now()
     
    Cancel = True
     
End Sub

Att