Bir hücreye veri girildiğinde hemen yanındaki hücreye kullanıcı adı yazdırma hk,

[TiOr]

Merhaba Kıymetli Üstatlar,

Ekte bulunan dosyamda C Sütununa veri girdiğimde A sütununa otomatik tarih yazdırabiliyorum aşağıdaki kod ile;

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

Yine C Sütununa veri girdikçe B sütununa otomatik kullanıcı adını yazdırmasını istiyorum mesela "TİOR"

Bu işlemi sayfanın kod bölümüne kod ile yapmak istiyorum yukardaki örnekte olduğu gibi.

Kıymetli desteklerinizi talep eder, iyi çalışmalar dilerim.

 

[Korhan Ayhan]

Tarih bölümü yerine aşağıdaki komutları deneyiniz.

Application.UserName
Environ("Username")

 

[TiOr]

@Korhan Ayhan Hocam Merhaba,
Bilgi için teşekkür ederim, her ikisini de uyguladım fakat bu şekilde o oturumda hangi kullanıcı çalışıyorsa onun adını yazmaktadır.
Benim istediğim benim yazdığım veriyi yazsın örnek Environ("TiOR")
Çünkü örnek veriyorum 20 tane pc var 20 sinde de aynı oturumdan 20 farklı kullanıcı çalışıyor ve her birisinin ismi farklı ve dolayısı ile her birinin exceline kendi isimlerini tanımlayacağım.
Yardımcı olur iseniz mutlu olurum.
İyi hafta sonları.

 

[TiOr]

Yardımcı olabilecek üstatlardan kıymetli desteklerini bekler, iyi çalışmalar dilerim.

 

[yusuf1284]

Hocam girişte basit bir kullanıcı sistemi yapsan herkese kullanıcı verirsin listeden adını seçsin 1 saniye sürmez seçmesi yetkileri ve ulaşabileceği sayfaları da belirlemiş olursun

 

[TiOr]

@yusuf1284 Üstat Selam,
Çok fazla detaya girmek istemedim açıkçası dosya üzerinde.
Ama hallettik. İstediğim şekilde dosyayı düzenledim.
Konu of..
Teşekkürler yine de ilginiz için...