Oturum sahibinin adının kaydedilmesi

[furens]

Arkadaşlar daha önceden sizlerin yapmış olduğu uygulamada Tc kimlik noyu girince o anki tarih ve saat otomatik olarak kayıt ediliyordu.buraya ayrıca bilgisayar oturumu kiminse tarih ve saatle birlikte oturum sahibinin ismide o sütuna kaydedilebilirmi ileriki zamanlarda o sorguyu kimin yaptığını bulabilmek için?

 

[Necdet]

Merhaba,

Aşağıda kırmızı ile belirttiğim satırı kodlarınıza ekledim.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 4 Then Exit Sub
    Cells(Target.Row, 1) = Format(Now, "DD/MM/YYYY")
    Cells(Target.Row, 2) = Format(Now, "HH:mm")
   [COLOR=red] Cells(Target.Row, "I") = Application.UserName
[/COLOR]End Sub

Not : Kişi adının doğru yazımı için xl de kullanıcı adının düzgün girilmesi gerekir.

 

[kan-nas]

Üstad J ye tarih kolonu aç ve aşağıdaki kodları dene

Range("ı65536").End(3)(2, 1) = Application.UserName ' PC açılırken kimin adıyla açıldığını gösterir.

Range("j65536").End(3)(2, 1) = Now()' buda malum şimdiki tarih-saat vs vs.

 

[kan-nas]

Necdet Ustam,
Senin kodların ne demek açıklayabilir misin.? Target lardan fazla anlamıyorum hatat hiç anlamıyorum.

furens,tabiki Necdet ustamınki gibi kodları aşağıdaki aralığa yazmalısın

Private Sub Worksheet_Change(ByVal Target As Range)
.................
..............
.............
end sub

 

[furens]

evet ustam tşk eline sağlık ekledim oldu

 

[Necdet]

Necdet Ustam,
Senin kodların ne demek açıklayabilir misin.? Target lardan fazla anlamıyorum hatat hiç anlamıyorum.

furens,tabiki Necdet ustamınki gibi kodları aşağıdaki aralığa yazmalısın

Private Sub Worksheet_Change(ByVal Target As Range)
.................
..............
.............
end sub

Merhaba,

Target'ın sözlük anlamı hedef demek. vba da O an üzerinde bulunulan hücre demektir.

Target.Address --> hücrenin adresini
Target.Row --> hücrenin satır numarasını
Target.Column --> hücrenin sütun numarasını verir.