Excel formunun otomatik açılması

[siar]

Herkese Merhabalar,

Hazırlamış olduğum excel sayfasında, verilerin girişi için, "Data" altındaki Formun, sayfanın açılışıyla beraber, otomatik olarak açılmasını istiyorum ama yapamadım. Yardımlarınızı bekliyorum.

Teşekkürlerimle,

 

[Merhum İdris SERDAR]

Private Sub Workbook_Open()
UserForm1.Show
End Sub

 

[siar]

Teşekkür ederim Sn. Yurttaş. Lakin, Data Formu açtırmaya çalışıyorum. Ayrıca hazırlamış olduğum bir form mevcut değil. Yani excelin Veri altındaki formun açılması yapmaya çalıştığım. Tekrar teşekkür ederim.

 

[Merhum İdris SERDAR]

Ekteki örneği imceleyin.


ThisWorkbook'a aşağıdaki kodu koyun.

Private Sub Workbook_Open()

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.ShowDataForm
End Sub