Soru Açılışta Makro Çalıştırmak

schlecht

Altın Üye
Katılım
13 Kasım 2009
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Merhaba,

Private Sub CommandButton4_Click()
Range("A19").Value = Application.UserName
Range("b19").Value = Environ("USERNAME")
End Sub

butona bastığımda bu kod ile bilgisayar isimlerini hücreye yazdırabiliyrum. Açılışta bunun otomatik çalılması için ne yapmalıyım.
Sub Auto_Open() denedim ama olması
Teşekkürler.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Private Sub Workbook_Open()
Sheets("Sayfa Adı").Range("A19").Value = Application.UserName
Sheets("Sayfa Adı").Range("b19").Value = Environ("USERNAME")
End Sub
Sayfa Adı yerine kullanacağınız sayfa ismini yazıp deneyin.
 

schlecht

Altın Üye
Katılım
13 Kasım 2009
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
sayın turist çok teşekkür ederim. Gayet güzel çalıştı.

bu konuyla bağlantılı olup olmaığını tam kestiremedim ama bir soru daha sormka isterim.

Sheets("Sayfa Adı").Range("b19").Value = Environ("USERNAME")

bu kodda ("USERNAME") olarak xx12345 veya xx123456 gibi bir kullanıcı adı gelmekte. ilk 2 karakter harf sonra 5 adet rakam veya ilk 2 karakter harf sonra 6 adet rakam, burada ilk 2 karakterin (harflerin) silinmesini sağlayabilirmiyiz. sadece rakam kalsın. Forumda arama yaptım ama "anahtar" kelime ne onu bulamadım. Ne aramam gereltiğini bilemedim açıkçası.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sheets("Sayfa Adı").Range("b19").Value = Mid(Environ("USERNAME"), 3, 10)
şeklinde deneyin.
10 değeri sayıların maximum 10 karakter olmasına göredir. Gerekirse ihtiyacınıza uygun değiştirebilirsiniz.
 

schlecht

Altın Üye
Katılım
13 Kasım 2009
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Teşekkürler. Çok işime yaradı inanın. İyi geceler.
 
Son düzenleme:

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sağ olun, iyi çalışmalar.
 
Üst