Excel Kaydeden kim

[Mehmet Sait]

Merhaalar,

Formda bulduğum kodlara kaydeden kişi bilgisine ek olarak B sütununa tarih ve saati eklemek mümkün mü ?

ThisWorkbook kod

Option Explicit
Sub KayıtKontrol()
    Dim str As String
    Dim i As Long
    Dim No As Long
    Dim KaydıYapan As String
    Dim Say As Long
    i = 199
    str = String$(200, 0)
    No = GetUserName(str, i)
    If No <> 0 Then KaydıYapan = Left$(str, i) Else KaydıYapan = ""
    Say = WorksheetFunction.CountA(ThisWorkbook.Sheets("Sayfa1").Range("A1:A65500")) + 1
    ThisWorkbook.Sheets("Sayfa1").Range("A" & Say) = KaydıYapan
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    KayıtKontrol
End Sub

Modül

Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long

Yardımlarınız için teşekkür ederim.

 

[AdemCan]

Merhaba
ThisWorkbook.Sheets("Sayfa1").Range("A" & Say) = KaydıYapan
satırının altına ekleyiniz.

ThisWorkbook.Sheets("Sayfa1").Range("B" & Say) = Now

 

[Mehmet Sait]

Merhaba
ThisWorkbook.Sheets("Sayfa1").Range("A" & Say) = KaydıYapan
satırının altına ekleyiniz.

ThisWorkbook.Sheets("Sayfa1").Range("B" & Say) = Now

Teşekkür ederim hocam, A2 ve B2 den başlatmak mümkün mü A1 ve B1 e başlık yazmak istiyorum.

 

[AdemCan]

Say = WorksheetFunction.CountA(ThisWorkbook.Sheets("Sayfa1").Range("A1:A65500")) + 1 satırını

Say = ThisWorkbook.Sheets("Sayfa1").Range("A" & Rows.Count).End(3).Row + 1

bu satır ile değiştiriniz.

 

[Mehmet Sait]

Say = WorksheetFunction.CountA(ThisWorkbook.Sheets("Sayfa1").Range("A1:A65500")) + 1 satırını

Say = ThisWorkbook.Sheets("Sayfa1").Range("A" & Rows.Count).End(3).Row + 1

bu satır ile değiştiriniz.

Teşekkür ederim.

 

[AdemCan]

Rica ederim.