Bilgisayar kullanıcı ismini alma

[ASLAN7410]

Merhaba, hayırlı akşamlar.

Ekte gönderdiğim excel dosyamı ortak ağ üzerinde kullanıyoruz.
B veya E sütunundaki aktif hücrede değişiklik olduğu zaman M sütununda Application.Username olarak bilgisayar kullanıcı ismi tam olarak gelmektedir.
(Bu işlemde ASLAN ERASLAN gelmektedir.)
Yapmak istediğim bu tam ismin sadece ilk ismi almak istiyorum. (Sadece ASLAN yazmasını istiyorum.)

Yardımcı olur musunuz?

 

[tamer42]

Merhaba, hayırlı akşamlar.

Ekte gönderdiğim excel dosyamı ortak ağ üzerinde kullanıyoruz.
B veya E sütunundaki aktif hücrede değişiklik olduğu zaman M sütununda Application.Username olarak bilgisayar kullanıcı ismi tam olarak gelmektedir.
(Bu işlemde ASLAN ERASLAN gelmektedir.)
Yapmak istediğim bu tam ismin sadece ilk ismi almak istiyorum. (Sadece ASLAN yazmasını istiyorum.)

Yardımcı olur musunuz?

Kodlarınızdaki ilgili bölümü aşağıdaki gibi düzenleyin.

a = Application.UserName

b = Split(a, " ")

    Cells(Target.Row, "M").Value = b(0)

 

[ASLAN7410]

Sayın Tamer Bey, ilginiz için çok teşekkür ediyorum, ellerinize sağlık çok güzel çalışıyor.

Küçük bir sorum olacak,
If Not Intersect(Target, Range("B2:B5000,E2:E5000")) Is Nothing Then bu kodu Or şeklinde nasıl yazabilirim

If Not Intersect(Target, Range("B2:B5000") Or Range("E2:E5000")) Is Nothing Then bu şekilde yazıyorum, hata veriyor.

 

[Haluk]

Hatırlatma:

"Application.Username" bilgisayarda o andaki oturumu açan kullanıcı değil, Excel kullanıcısının adını verir...

.

 

[tamer42]

Sayın Tamer Bey, ilginiz için çok teşekkür ediyorum, ellerinize sağlık çok güzel çalışıyor.

Küçük bir sorum olacak,
If Not Intersect(Target, Range("B2:B5000,E2:E5000")) Is Nothing Then bu kodu Or şeklinde nasıl yazabilirim

If Not Intersect(Target, Range("B2:B5000") Or Range("E2:E5000")) Is Nothing Then bu şekilde yazıyorum, hata veriyor.

If Not Intersect(Target, Range("B2:B5000,E2:E5000")) Is Nothing Then

şeklinde deneyebilirsiniz.

 

[ASLAN7410]

Sayın Haluk Bey ilginiz için teşekkür ediyorum.
If Not Intersect(Target, Range("B2:B5000,E2:E5000")) Is Nothing Then
Demek istediğim o değil, B sütunu yada E sütunu nasıl yazarım demek istemiştim.

 

[ASLAN7410]

Sayın Tamer Bey, 5.mesajınızdaki vermiş olduğunuz kod zaten var.
If Not Intersect(Target, Range("B2:B5000,E2:E5000")) Is Nothing Then bu kısmı B sütunu yada E sütunu nasıl yazarım demek istemiştim.

 

[Korhan Ayhan]

Bu komut satırı zaten B ve E sütunun dikkate al demektir.

 

[ASLAN7410]

Anladım Sayın Korhan Bey, çok teşekkür ediyorum.

 

[tamer42]

Sayın Tamer Bey, 5.mesajınızdaki vermiş olduğunuz kod zaten var.
If Not Intersect(Target, Range("B2:B5000,E2:E5000")) Is Nothing Then bu kısmı B sütunu yada E sütunu nasıl yazarım demek istemiştim.

Bunu neden "Or" ile yapmak istediğinizi anlamadım, diğer şekilde işinizi çözmüyor mu?

 

[Zeki Gürsoy]

Bilgisayar oturum hesabı adı ile diğer bazı bilgilere sistem değişkenleri ile ulaşabiliyoruz. Sistem değişkenlerinin içeriklerine ise Environ fonksiyonu ile ulaşabiliyoruz. Aşağıdaki metot, bunların listesini ekranınıza döker...

Sub System_Variables()
    Dim i As Integer, arr As Variant

    Range("a1:b1") = Array("DEĞİŞKEN ADI", "DEĞERİ")
    
    i = 1
    
    Do Until Len(Environ$(i)) = 0
    
        arr = Split(Environ$(i), "=")
        
        Range(Cells(i + 1, "a"), Cells(i + 1, "b")) = arr
        
        i = i + 1
        
    Loop
    
    MsgBox Environ$("username")
    
End Sub

 

[ASLAN7410]

Sayın Tamer Bey, Sayın Korhan Bey 8.mesajda cevap vermişti.

İlginiz için çok teşekkür ediyorum.

 

[ASLAN7410]

Sayın Zeki Bey, bilgi için çok teşekkür ediyorum.