Bir sütuna veri girildiğinde diğer sütuna Statusbar'daki metni yazdırma

[serif_007]

Arkadaşlar merhaba.

Bir excel tablom var bu tabloyu kullanana arkadaşlara kullanıcı adı ve şifre vererek giriş yapmalarını sağlıyorum. Bu tabloya giriş yapan kişinin ismi de resimde görüldüğü üzere Statusbar'da yazıyor. Bu Statusbarda yazan ismi örnek veriyorum b sütununa herhangi bir veri girildiğinde akabinde N sütununa karşılık gelen satıra yazmasını istiyorum. Örneğin;

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 B sütununa veri girildiğinde C sütununa tarih yazması için kullanıyorum. Aynı şekilde B sütununa veri girildiğinde N sütununa Statusbar'daki Kullanıcının adını yazmasını istiyorum. Bu konuda yardımcı olursanız sevinirim.

 

[hamitcan]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    Cells(Target.Row, "n") = Application.StatusBar
End Sub

 

[serif_007]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    Cells(Target.Row, "n") = Application.StatusBar
End Sub

Çok teşekkür ederim, tam istediğim gibi oldu.