Soru Application.Username Adını Düzeltme

[bulentkars]

Arkadaşlar Merhaba,

Kullandığımız Ofislerde Kullanıcı isimleri Soyisim sonra isimle bitiyor. Ben Ad ve soyad olarak değiştirip aradaki virgülü silmek istiyorum. Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler.
Not: İşlem yapıldıktan sonra aradaki virgül silinecek. Eğer arada virgül yoksa işlem yapmayacak.

Mevcut Olması Gereken
Sonmez Mete, Ahmet Ahmet Sonmez Mete
Kars, Bulent Bulent Kars

 

[Necdet]

Merhaba,

Application.UserName excelde seçeneklerde geçen kullanıcı adını verir.
Bunu excel seçeneklerinden değiştirebilirsiniz.

 

[bulentkars]

Necdet Bey Merhaba

kodu Auto opene koyup açan kullanıcının makinasında düzeltmeyi otomatik yapmasını istiyorum. Çünkü makinalar kapanıp açıldığında soyisim ve isim olarak eski haline dönüyor. Kullandığımız eklentinin auto open penceresine kodu koyup ad soyad olarak düzeltmek istiyorum.

 

[Necdet]

Merhaba,
Kendinize uyarlayınız.

Sub aa()

Dim d As Variant
Dim kullanici As String

d = Split(Application.UserName, ",")

If UBound(d) > 0 Then
    kullanici = d(1) & " " & d(0)
Else
    kullanici = d(0)
End If

MsgBox kullanici

End Sub

 

[bulentkars]

Necdet Bey,
Çok Teşekkür ederim. Elinize sağlık..