Bilgisayar Adı veya Tam Bilgisayar Adı gösterme

[adige18]

mrb benim istediğim şimdi biz bir excel belgesini 3 kişi kullanıyoruz ağdan o excel belgesini hangi pc de açarsak o kişinin bilgisayar adını veya tam bilgisayar adını A1 hücresine yazmasını istiyorum yardımcı olursanız çok sevinirim şimdiden çok tşk...

 

[geren36]

aşağıdaki kodu yazınız.

Private Sub Workbook_Open()
Sheets("sheet1").Range("a1").Value = CreateObject("WScript.Network").computerName
End Sub

 

[adige18]

kodu yazdım ama hata verdi örnek bir excel sayfası göndersem hatanın nerden kaynaklandığını bulurmusunuz şimdiden tşk..

 

[firstisland]

Merhaba...

Aşağıdaki linki incelerseniz, oradaki bilgilerden faydalanabilirsiniz...
İyi çalışmalar..

http://www.excel.web.tr/forumdisplay.php?f=118

 

[adige18]

oraya bakmıştım ama yapamadım gönderdiğim örnekte yaparsanız sevinirim iyi çalışmalar tşk

 

[Necdet]

Kodu aşağıdaki şekilde yazınız

Private Sub Workbook_Open()
Sheets(1).Range("a1").Value = CreateObject("WScript.Network").computerName
End Sub

 

[adige18]

Çok TeŞekkÜrler....

 

[geren36]

ornek dosyanız ektedir. dosyayı açar açmaz sayfa1'de a1 hücresinde kullanıcı adını görebilirsiniz..

kolay gelsin.. :hey:

 

[asem]

PEKİ paylaşımdaki dosyayı açan tüm kullanıcaları gösteren bir makro varmı acaba?