Status Bar'da yazan kullanıcı adını hücreye alma

[serif_007]

Arkadaşlar merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C1:C1048576]) Is Nothing Then Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy")
End Sub

bu kodu kullanarak c sütununa veri girdiğimde b sütununa o günün tarihini girmesi sağlıyorum.

kullandığım tabloda userform ile kullanıcı girişi yaptırıyorum. ve hangi kullanıcı ile giriş yapılırsa statusbar'da kullanıcı adı görünüyor. Yapmak istediğim şu yine c sütununa herhangibir veri girişi olduğunda L sütununa statusbar'da yazan kullanıcı adını yazmasını istiyorum. Bunu hangi makro ile yapabilirim yardımcı olur musunuz?

 

[veyselemre]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [C1:C1048576]) Is Nothing Then
        Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy")
        Cells(Target.Row, "L") = Application.StatusBar
    End If
End Sub