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

[schlecht]

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 Autpen() denedim ama olması
Teşekkürler.

 

[turist]

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]

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]

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]

Teşekkürler. Çok işime yaradı inanın. İyi geceler.

 

[turist]

Sağ olun, iyi çalışmalar.