windows kullanıcı adı

[Way-Out]

Merhaba,

Excelde windows kullanıcı adını yazdırabiliyorum istediğim hücreye ama yapmak istediğim ve yapamadığım bişey var bu konuda yardımınızı istiyorum.

Sorum şu örnek veriyorum windows kullanıcı adı : ahmet.yilmaz

Excelde aynısı çıkıyor bunun ama benim istediğim Ahmet Yilmaz şeklinde bunu yazdırmak aradaki noktayı kaldırmak istiyorum bunu nasıl yapabilirim ? Bilgisi olan varmı yardımcı olabilecek birileri varmıdır acaba bana ?

Range("G21").Value = Environ("Username")

Yukarıda yazmış olduğum kod ile windows kullanıcı adını çıkarıyorum

 

[Asri]

Aşağıdaki şekilde deneyin

Sub yaziduzeni()
   adliste = Split(LCase(Environ("Username")), ".")
   Range("G21").Value = UCase(Left(adliste(0), 1)) & Mid(adliste(0), 2, Len(adliste(0))) & " " & UCase(Left(adliste(1), 1)) & Mid(adliste(1), 2, Len(adliste(1)))
End Sub

Yada biraz daha anlaşılır

Sub yaziduzeni()
   adliste = Split(LCase(Environ("Username")), ".")
   adi = adliste(0)
   soyadi = adliste(1)
   adi = UCase(Left(adi, 1)) & Mid(adi, 2, Len(adi))
   soyadi = UCase(Left(soyadi, 1)) & Mid(soyadi, 2, Len(soyadi))
   Range("G21").Value = adi & " " & soyadi
End Sub

 

[Murat OSMA]

Alternatif..

[SIZE="2"]Sub Emre()
    ad = "ahmet.yilmaz"
    MsgBox StrConv(Replace(ad, ".", " "), 3)
End Sub[/SIZE]

 

[Emir Hüseyin Çoban]

.

Sub kod()
    isim = Replace(Environ("Username"), ".", " ")
    MsgBox WorksheetFunction.Proper(isim)
End Sub

.

 

[Way-Out]

herkese teşekkür ederim sorun çözülmüştür